excel - 在 VBA 上另存为 PDF 文件返回“文档未保存”错误

Question

以下代码导致“文档未保存”错误：

sFileName = "C:\test.pdf"
Application.DisplayAlerts = False
wkbPDF.Worksheets.Select        
ActiveSheet.ExportAsFixedFormat Type := xlTypePDF, Filename := gsPDF_DIR & sFileName, _
  Quality:=xlQualityStandard, IncludeDocProperties := True, _
  IgnorePrintAreas := False, OpenAfterPublish := False

Application.DisplayAlerts = True

但在 VBA 之外执行此操作是成功的（但由于工作簿包含 100 多张纸，因此需要几分钟时间）。

Answer 1

如果有任何值，您的Filename:参数将无效，因为已经指定了驱动器、文件夹和文件名。gsPDF_DIRsFileName

尝试使用Filename := sFileName

Answer 2

我也遇到过这个问题。最糟糕的部分是 Microsoft VBA 的错误描述。我试图将文件保存在有写访问问题的 C 驱动器上。因此将其更改为不同的位置并且它可以工作。有时 VBA 会为您提供与实际问题无关的错误描述。

Answer 3

确保您的输出文件尚不存在。例如，如果gsPDF_DIR & sFileName之前已将文件保存在您的工作簿所在的同一目录中，则也可能会发生此错误。您可以通过删除以前保存的文件 gsPDF_DIR & sFileName 或简单地将工作簿移动到其他目录来解决此问题。