VBA сохранить Excel лист с именем книги плюс текст в формате PDF

Question

Этот код сохраняется только с именем книги, а не с текстом «Образец».Что я делаю неправильно?Спасибо за все ответы Спасибо, Эд

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

Для трассировки с дополнительным аргументом:

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
Кроме того, я сжал Sheet("Sample").Select / ActiveSheet. (который былв любом случае, вероятно, неправильно, я думаю, это должно было быть Sheet("Sample").Activate).

Answer 2

Вы не говорите 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