сохранение файла в формате pdf

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » сохранение файла в формате pdf (Макросы/Sub)

сохранение файла в формате pdf

карандаш

Дата: Пятница, 22.01.2016, 22:08 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 329

Репутация: 8 ±

Замечаний: 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]