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

【问题标题】：saving as PDF file on VBA return "Document not saved" error在 VBA 上另存为 PDF 文件返回“文档未保存”错误
【发布时间】：2013-06-06 21:47:40
【问题描述】：

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

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 多张工作表，因此需要几分钟时间）。

【问题讨论】：

标签： excel vba pdf

【解决方案1】：

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

尝试使用Filename := sFileName

【讨论】：

【解决方案2】：

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

【讨论】：

【解决方案3】：

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

【讨论】：