Excel中的ExportAsFixedFormat问题

我需要帮助了解我在使用VBA时所处的环境。我希望只打印PDF，无论宏多么简单，我都会遇到一个运行时错误：

'1004应用程序定义或对象定义错误

它不可避免地将

ExportAsFixedFormat

“段落”放在黄色中，并给我这个错误

我花了一周的时间来做这件事，我把测试简化为创建一个全新的启用宏的工作簿，将宏复制到一个module1中并运行它。我已经消除了我的环境中所有可能的问题，它仍然给我带来麻烦。我甚至在以前运行32位时下载了64位

我能想到的唯一一件事是在大约一个月前为许可计划添加了一个类模块。就我所见，在我的VBA应用程序中找不到它。除了在Project Explorer树中，类模块或使用表单还存在于何处

---

这非常令人沮丧，因为所有这些都与宏本身无关。

在您提供其他信息（共享代码）之前，我将开始初步回答。我可能会也可能不会回来相应地调整这一点

我有一个文件，我使用数组中的显式名称将几张图纸导出为PDF格式

Sub PDF()
Dim FileName As String
Dim Name As String
Name = ActiveWorkbook.Worksheets("Table of Contents").Range("_Period")
Application.ScreenUpdating = False
FileName = ActiveWorkbook.FullName
FileName = Left(FileName, Len(FileName) - 5) & " " & Name & ".PDF"

Sheets(Array("Table of Contents", "Page 1", "Page 2", "Page 3")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True
Worksheets("Table of Contents").Select

Application.ScreenUpdating = True
End Sub

---

我知道使用

。选择
是不可取的，但这里的目的是当我的代码在这些工作表中循环时，我想在我开始的同一个选项卡上着陆，这样我知道它正确循环，这就是我的其他按钮和宏所在的位置。
始终（好的，99%的时间）帮助显示您遇到问题的代码。您可以共享其余代码吗。虽然你可能会说“不管我听到多么简单”，但还是少了一些东西。但是，如果没有您的其余代码，我无法准确评估问题所在。我只是从Mark S复制了下面的代码，以演示我在排除故障时使用了多少变量。我想把重点放在代码本身之外的更大的事情上，因为无论我输入它是为了执行我真正想要的，还是只是从互联网上复制一个，它都不可避免地会出错。ActiveSheet.ExportAsFixedFormat类型：=xlTypePDF，文件名：=FileName，u质量：=xlQualityStandard，IncludeDocProperties:=True，忽略打印区域:=False，OpenAfterPublish:=True