excel - 使用VBA将Excel工作簿导出为PDF

Question

我正在尝试为妈妈解决她的问题:她需要将工作簿另存为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无效。她说自己遇到语法错误，但是由于我自己没有专业知识，所以无法测试。我看过一些类似的问题，但似乎找不到答案。

首先十分感谢

Answer 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