VBA將Excel工作表以及工作簿名稱和文本另存為PDF

Question

此代碼僅保存工作簿名稱，而不保存文本“ Sample”。 我究竟做錯了什么？ 感謝所有答案，謝謝，愛德華

Sub SamplePDF()
Dim strFolder As String
    Dim i As Long

    'Find the position of the period in the file name
    i = InStr(ActiveWorkbook.Name, ".")

    Filename = Left(ActiveWorkbook.Name, i - 1) & "Sample"
    Sheets("Sample").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

Answer 1

您沒有告訴VBA文件名。 追加Filename:= Filename （盡管我會為了更好地讀取而將變量名更改為wbFilename ：

i = InStr(ActiveWorkbook.Name, ".")

wbFilename = Left(ActiveWorkbook.Name, i - 1) & "Sample"
Sheets("Sample").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality _
    :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True, Filename:=wbFilename

Answer 2

使用附加參數進行跟蹤：

Filename = Left(ActiveWorkbook.Name, i - 1) & "Sample.pdf"
Sheets("Sample").ExportAsFixedFormat Type:=xlTypePDF, Quality _
    :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True, Filename:=FileName

編輯：@SJR提到您可能需要在Filename添加擴展Filename
另外，我壓縮了Sheet("Sample").Select / ActiveSheet. （無論如何，這可能都是不正確的，我認為應該是Sheet("Sample").Activate ）。