Question

运行之前完美运行的VBA代码时出现错误，我不知道该怎么办以及如何修复它。

代码：

Sub savePDF()

Dim fname As String
Dim FactuurFolder As String

FactuurFolder = MacScript("return (path to desktop folder) as string")

ChDir (FactuurFolder)

fname = "Factuur " + Range("B2").Value + " " + Range("B1").Value

ThisWorkbook.Sheets("Sheet2").Select
ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=fname, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

ThisWorkbook.Sheets("Sheet1").Select

End Sub

之前，此代码会生成一个PDF文件并将其保存到我的桌面，但现在它返回一个错误（在ActiveSheet.ExportAsFixedFormat行）：“导出过程中出错”（可能不是字面上的错误消息，不得不翻译它，然后：“Microsoft Visual Basic。运行时错误1004：应用程序或对象定义错误”。

我假设通过安装适用于Mac的Office套件的公共测试版引入了错误。有谁知道这个问题的解决方法？是不赞成使用ExportAsFixedFormat还是什么（当我查阅Microsoft VBA文档时看起来不像它。）

提前致谢！

VBA ActiveSheet.ExportAsFixedFormat在运行时返回错误1004

0 个答案: