Meu código do VBA para Salvar como PDF não funcionará. Alguém pode lê-lo e ver o que eu posso estar fazendo errado?

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

O erro 424 aparece toda vez. A parte destacada é:

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

Eu não consigo descobrir qual é o problema para a vida de mim. Eu estou aprendendo o código VBA enquanto eu vou, então eu não sei o que muitas coisas significam!

    

Answer 1

ActiveWorkSheet deve ser uma planilha ou deve ser agrupado por WorkSheets() ao usá-la como uma string.

Como planilha:

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

Como é:

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

Você está recebendo o erro porque:

"sheet1".ExportAsFixedFormat

Não funciona em vba.