VBA将Excel工作表以及工作簿名称和文本另存为PDF

Question

This code only saves with the workbook name and not the text "Sample". What am I doing wrong? All answers appreciated Thanks, Ed

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

You are not telling VBA the filename. Append Filename:= Filename (although I would change the variable name for better reading to, for example, 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

For trace with the additional argument:

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

Edit: @SJR mentioned your may need to add the extension in Filename
Also, I've condensed Sheet("Sample").Select / ActiveSheet. (which was probably incorrect anyway, I believe it should have been Sheet("Sample").Activate ).