Excelblad exporteren naar PDF in dezelfde map

Status
Niet open voor verdere reacties.

Robert Smidt

Gebruiker
Lid geworden
26 mei 2009
Berichten
901
Beste Forumleden,

Ik ben al een tijd bezig om een Excelblad in pdf-formaat op te slaan onder dezelfde naam en in dezelfde map waar het excelbestand zich ook in bevindt. Echter, plaatst het systeem het pdf-bestand niet in de actieve map, maar in de map daarboven en geeft deze de naam mee van het laatste pad.

Even ter verduidelijking: Het pad waar het Excel bestand zich in bevind is: C:\CEH\1. Jaarrekening\DJ posten\45 51299 Jansen BV
Het systeem plaatst het pdf-bestand in: C:\CEH\1. Jaarrekening\DJ posten\

Wat doe ik fout?

Code:
Sub exporteren()
Pad = ActiveWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pad, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Alvast hartelijk dank.

Robert
 
Laatst bewerkt:
Code:
Sub jvr()
fpath = ThisWorkbook.Path & "\hallo dit is een test"
ActiveSheet.ExportAsFixedFormat xlTypePDF, fpath
End Sub
 
Bedankt voor de super snelle reactie. Ik heb mede door jou de oplossing

Code:
Pad = ActiveWorkbook.Path + "\" + Sheets("Vragenformulier").[A4].Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pad, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan