Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/сохранение файла в формате pdf - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » сохранение файла в формате pdf (Макросы/Sub)
сохранение файла в формате pdf
карандаш Дата: Пятница, 22.01.2016, 22:08 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 326
Репутация: 7 ±
Замечаний: 0% ±

2010
сильно похожая тема закрыта на замок, а другие не подходят.

поэтому прошу подсказать ответ здесь, в новой теме.
есть макрос, который взят из других тем, но он выдаёт ошибку. В чем дело, не могу понять.

Пишет Ошибка 424: Object requred.

[vba]
Код
Sub SaveAsPdf()
    fn_ = Application.ActiveWorkbook.FullName
    fn = Mid(fn_, 1, InStrRev(fn_, ".") - 1) & ".pdf"     ' это замена расширения в имени файла с сохранением имени и пути
    
    If fn <> False Then                    ' не понимаю смысла сравнения строки с булевой переменной, но оставил как было в оригинале
' а вот это не работает:
        ActiveSheets.ExportAsFixedFormat Type:=xlTypePDF, Filename:=(fn), _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    End If
End Sub
[/vba]
 
Ответить
Сообщениесильно похожая тема закрыта на замок, а другие не подходят.

поэтому прошу подсказать ответ здесь, в новой теме.
есть макрос, который взят из других тем, но он выдаёт ошибку. В чем дело, не могу понять.

Пишет Ошибка 424: Object requred.

[vba]
Код
Sub SaveAsPdf()
    fn_ = Application.ActiveWorkbook.FullName
    fn = Mid(fn_, 1, InStrRev(fn_, ".") - 1) & ".pdf"     ' это замена расширения в имени файла с сохранением имени и пути
    
    If fn <> False Then                    ' не понимаю смысла сравнения строки с булевой переменной, но оставил как было в оригинале
' а вот это не работает:
        ActiveSheets.ExportAsFixedFormat Type:=xlTypePDF, Filename:=(fn), _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    End If
End Sub
[/vba]

Автор - карандаш
Дата добавления - 22.01.2016 в 22:08
krosav4ig Дата: Суббота, 23.01.2016, 03:38 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1420
Репутация: 585 ±
Замечаний: 0% ±

Excel 2007, 2013
должно быть [vba]
Код
ActiveSheet.ExportAsFixedFormat
[/vba]


(_)Õvõ(_)
 
Ответить
Сообщениедолжно быть [vba]
Код
ActiveSheet.ExportAsFixedFormat
[/vba]

Автор - krosav4ig
Дата добавления - 23.01.2016 в 03:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » сохранение файла в формате pdf (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!