Meerdere Excel sheets (in bepaalde volgorde) exporteren als PDF

[TJ86]

Goedemorgen,

ik ben op zoek naar een Macro welke vanuit een Excel-bestand één PDF bestand creëert van meerdere tabbladen.
Deze tabbladen moeten in een bepaalde volgorde in het PDF bestand komen. Als eerste dient het tabblad genaamd 'Brief', als tweede 'Totaaloverzicht' en als derde 'calculatieblad'.

De tabbladen staan momenteel door elkaar.

Ook dient een dialoogvenster te verschijnen waar wordt gevraagd voor de bestandsnaam en waar het bestand opgeslagen dient te worden.

Ik heb op internet gekeken maar kan helaas niet vinden wat ik zoek.

Alvast bedankt voor de hulp

 

[lam201]

zo iets dan.

Sub ExportToPDF()

Dim WSarray() As Variant
Dim File As String


File = InputBox("Geef bestandsnaam")

If Right(File, 4) <> ".pdf" Then File = File & ".pdf"
File = ActiveWorkbook.Path & "\" & File

WSarray = Array("Brief", "TotaalOverzicht", "calculatieblad")
Sheets(WSarray).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=File, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

voorwaarde is wel dat je dan handmatig de werkbladen in de juiste volgorde gezet hebt.
(en dat ze niet verborgen zijn)

 

[TJ86]

Hi, dit werkt perfect.. echter.. er komt nu een dialoogvenster om de bestandnaam op te geven en verder niets. De bedoeling was eigenlijk dat het standaard 'Opslaan als..' venster te voorschijn komt waar gevraagd wordt WAAR het bestand opgeslagen moet worden en wat de bestandsnaam moet worden.. kan dat ook ?

 

[lam201]

"en verder niets"... het bestand wordt opgeslagen in dezelfde map als het Excel document.


vervang

File = InputBox("Geef bestandsnaam")

door

File = Application.GetSaveAsFilename(FileFilter:= _
                 "PDF Files (*.pdf), *.pdf", Title:="Save as", _
                InitialFileName:="C:\")

"C:" kan je nog aanpassen naar een pad van jouw keuze

 

[TJ86]

Ik krijg nu een foutmelding op de rege

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=File, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

"Fout 1004 tijdens de uitvoering: Door de toepassing of door object gedefinieerde fout".

Deze code gebruik ik nu :

Sub ExportPdf()

Dim WSarray() As Variant
Dim File As String


File = Application.GetSaveAsFilename(FileFilter:= _
                 "PDF Files (*.pdf), *.pdf", Title:="Save as", _
                InitialFileName:="N:\")

If Right(File, 4) <> ".pdf" Then File = File & ".pdf"
File = ActiveWorkbook.path & "\" & File

WSarray = Array("Brief", "TotaalOverzicht", "calculatieblad")
Sheets(WSarray).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=File, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

 

[lam201]

Sorry,

deze regel moest er nog uit

 File = ActiveWorkbook.path & "\" & File

 

[TJ86]

Top Top Top ! Het werkt! Super bedankt