Erro de sintaxe na macro do Microsoft Excel para conversão em PDF

Question

Sub invoicepdf()
Sheet2.Range("a1:j53").ExportAsFixedFormat xlTypePdf,Filename:="C:\Invoice data\" & Sheet2.Range("j12").Value, OpenAfterPublish:=true
End Sub

Estou usando isso no Excel vb para converter o Excel em PDF, mas estou vendo um erro de sintaxe.

Alguém por favor me ajude onde estou cometendo o erro.

    

Answer 1

Tente substituir Sheet2 por Worksheets ("Sheet2") no seu script vb:

Sub invoicepdf()
Worksheets("Sheet2").Range("a1:j53").ExportAsFixedFormat xlTypePdf,Filename:="C:\Invoice data\" & Worksheets("Sheet2").Range("j12").Value, OpenAfterPublish:=true
End Sub

Verifique também se não há arquivo de destino com o nome especificado na célula J12, caso contrário, o script falhará

    

Answer 2

Você pode usar essa macro para exportar / converter vários intervalos de dados em arquivos PDF.

Private Sub CommandButton1_Click()

 Worksheets("Sheet2").Activate

 Range("A82:D90,A92:E93,A96:C98").Select
 Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 "C:\temp\Book1.pdf", Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
  True

End Sub

Nota,

1. Ajuste as referências da célula conforme necessário.
2. Caminho do arquivo & Nome é editável.