VBA per export singoli sheet excel in unico PDF

Question

Buonasera a tutti,

ho un file excel con molteplici file e vorrei impostare una macro affinché mi possa estrarre unicamente alcuni sheet.

Ho provato ad impostare la seguente macro ma va in errore (Errore di runtime '13' tipo non corrispondente), il punto che va in errore è quello in bold.

Mi aiutereste a risolvere?

Grazie,

Fabio

Sub ReportPDF()

PaginaIniziale = ActiveSheet.Name

Nomefile = Application.GetSaveAsFilename("Report", "PDF (*.pdf). *.pdf", "Salva il PDF", "Salva")

If Nomefile = False Then Exit Sub

Worksheets(Array("Form_Compilazione", "Ambiente operativo", "Form_Valutazione")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nomefile, OpenAfterPublish:=True

Worksheets(PaginaIniziale).Select

MsgBox "PDF CREATO", vbOKOnly, ""

End Sub

Answer 1

La tua procedura va in errore in corrispondenza di Nomefile perché gli argomenti di GetSaveAsFilename non risultano corretti (almento per quello che hai inserito qui).

Prova a modificare in questo modo e vedi se la procedura va ancora in errore.

Nomefile = Application.GetSaveAsFilename("Report", "PDF (*.pdf)., *.pdf", , "Salva il PDF", "Salva")

ciao