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。

Answer 1

我相信您唯一的问题是语法错误：

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,

该命令到此结束，但是它需要下面的参数。

将其更改为：

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

空格和下划线告诉VBA在下一行继续而不是结束命令，这样它将提取所需的参数。

VBA通过ExportAsFixedFormat类型：= xlTypePDF

1 个答案: