Мой код VBA для сохранения в формате PDF не будет работать. Может кто-то прочитать и посмотреть, что я могу делать не так?

Question

Sub SaveAsPDF()
    Dim NewFN As Variant
    NewFN = "C:\Users\Brock\Desktop\MPI\Financials\" & Range("b10").Value & ".pdf"
    Dim ActiveWorksheet As Variant
    ActiveWorksheet = "sheet1"
    ActiveWorksheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Ошибка 424 выскакивает каждый раз. Выделенная часть:

ActiveWorksheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

Я не могу понять, в чем проблема для меня. Я изучаю VBA-кодирование по ходу дела, поэтому я не знаю, что много значат!

Answer 1

ActiveWorkSheet должен быть рабочим листом или должен быть заключен в WorkSheets() при использовании его в качестве строки.

Как рабочий лист:

Dim ActiveWorksheet As WorkSheet
Set ActiveWorksheet = WorkSheets("sheet1")

Как есть:

Dim ActiveWorksheet As Variant
ActiveWorksheet = "sheet1"
Worksheets(ActiveWorksheet).ExportAsFixedFormat ...

Вы получаете ошибку, потому что:

"sheet1".ExportAsFixedFormat

Не работает в vba.