使用 VBA 将 Excel 工作簿导出为 PDF答案

【问题标题】：Exporting an Excel Workbook to PDF using VBA使用 VBA 将 Excel 工作簿导出为 PDF
【发布时间】：2020-06-27 12:34:35
【问题描述】：

我正在尝试远程帮助妈妈解决她的问题：她需要将工作簿另存为 xlsx 和 PDF。这是我的代码：

Sub sb_Copy_Save_ActiveSheet_As_Workbook()

Dim wksht As Worksheet
Set wksht = ActiveSheet

Dim path As String
path = "C:\Users\" & Environ$("Username") & "\Company Name\Company Name Team Site - Documents\PO Numbers\"

    wksht.Copy
    ActiveWorkbook.SaveAs Filename:=path & wksht.Range("G1") & " " & wksht.Range("F1").Value & ".xlsx"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF FileName:=path & wksht.Range("G1") & " " & wksht.Range("F1").Value & ".pdf" Quality:=xlQualityStandard OpenAfterPublish:=True

End Sub

我们让它可以在指定的文件路径中保存 xlsx 文件，但尝试将其导出为 PDF 不起作用。她说她遇到了语法错误，但由于我自己没有 excel，所以无法对其进行测试。我看过一些类似的问题，但似乎找不到答案。

提前非常感谢

【问题讨论】：

标签： excel vba syntax syntax-error

【解决方案1】：

您只需要添加逗号，以便

    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF FileName:=path & wksht.Range("G1") & " " & wksht.Range("F1").Value & ".pdf" Quality:=xlQualityStandard OpenAfterPublish:=True

变成

    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:=path & wksht.Range("G1") & " " & wksht.Range("F1").Value & ".pdf", Quality:=xlQualityStandard, OpenAfterPublish:=True

【讨论】：

我不敢相信这是问题所在！非常感谢，我已经盯着它很久了。