VBA экспорт PDF через ExportAsFixedFormat Тип: = xlTypePDF

Question

Я пытаюсь сохранить лист Excel, используя следующий код:

Sub save_as_PDF()

Dim strPath As String, strName As String, strSaveName As String

strPath = "C:\Users\xxx\Documents" strName = "Test.pdf" strSaveName =
strPath & strName

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,
Filename:=strSaveName, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End Sub

На моем старом компьютере - с Excel 2010 и бесплатным Adobe Acrobat Reader создается файл PDF.

Однако на моем новом компьютере с Excel 2016, а также с бесплатным Adobe Acrobat Reader файл pdf не создается. Выдается следующая ошибка: Ошибка 430 - класс ошибок времени выполнения не поддерживает автоматизацию или не поддерживает ожидаемый интерфейс.

Я попытался установить тестовую версию Adobe 11 Pro, которая неПомогите. Кроме того, я могу создать PDF с помощью команды ручной печати. ​​