Ошибка выполнения в режиме ожидания до версии pdf

Я получаю ошибку времени выполнения, когда пытаюсь экспортировать «лист» / «диапазон в листе» в формате pdf, независимо от того, где я храню код в листе или другой модуль, независимо от того, какой путь я им даю. Я пробовал множество кодов. Несколько ниже. Я всегда получаю сообщение об ошибке. Любая идея почему?

ошибка
Ошибка времени выполнения «5»;
Неправильный вызов процедуры или аргумент

Коды, которые я пробовал:

Sub try() Sheets("Sheet1").Range("A1:F10").ExportAsFixedFormat Type:=xlTypePDF, fileName:= _ "c:\Book1.pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False End Sub 

,

 Sub luxation() ThisWorkbook.Sheets("Sheet1").Range("A1:F10").Select Selection.ExportAsFixedFormat _ Type:=xlTypePDF, _ fileName:="temp.pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub 

,

 Sub Sample() ActiveWorkbook.Sheets("Sheet2").Activate ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ fileName:=ActiveWorkbook.Path & "\Survey Report.pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub 

Нижеприведенная процедура будет экспортировать в указанное место в формате PDF:

 'rng - The range you wish to be exported' 'strFP - The file path to save the PDF to' Public Sub fExportPDF(rng As Range, strFP As String) 'Export as PDF With rng .ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFP, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False End With End Sub 

Чтобы использовать процедуру, назовите ее так:

 Sub SomeProc() fExportPDF ThisWorkbook.Worksheets(1).Range("A1:B3"), "C:\Some Location\example.pdf" End Sub 
Interesting Posts

Сопоставление между Excel и XML-файлом – Как обновить с C #

Импорт файла Excel с использованием Roo, ошибка: предоставление `упакованных` или` file_warning` в качестве отдельных аргументов для `Roo :: Excel.new` устарело

Добавление Sparkline через VBA

Компонент xlwings ActiveX не может создать объект при импорте UDF

Как вы получаете имя первой страницы книги excel?

Ошибка выполнения 1004 Формула диапазона

Отображение сгруппированных данных из PoverPivot в Excel с использованием сводной таблицы

VBA Auto Clear / Populate

Скопировать изображение Excel в ячейку таблицы Powerpoint

Как копировать столбцы на одном листе Excel VBA

Использование переменной Excel VBA для нескольких книг

Excel VBA Удалить дубликаты Reiteration vs Filter

Почему оператор if then превращается в #VALUE! после закрытия и повторного открытия файла Excel?

OpenXML – созданный стиль рабочего листа влияет на другие существующие

Как вставить столбец между другими столбцами (Perl Spreadsheet :: WriteExcel)

Давайте будем гением компьютера.