relativer Dateipfad
30.07.2020 15:14:43
A.
ein letztes, nicht unwesentliches Problem habe ich noch bei meinem VBA-Projekt.
Ich erstelle durch markieren von Zellen über einen Buztton eine PDF, klappt einwandfrei, bin damit super zufrieden, jetzt aber meine Frage.
Bisher muss ich den Dateipfad immer, wirklich immer neu anpassen, sobald ich meinen Ordner "..\VVP-Tool\Tool Ausschnitts-PDF's\Phase 2\Phase2" irgendwohin verschiebe oder ihn per Email an Leute verschicke die damit arbeiten müssen. Dementsprechend klappt die Speicherung nicht mehr, was wirklich mehr wie doof ist. Ich weiß dass es relative Dateipfade gibt, aber ich hab jetzt schon alles mögliche probiert z.b. ThisWorkworkbook.Path & "\" & einzubauen, nichts klappt, es kommt auch immer die Meldung "konstanter Ausdruck erforderlich"
Unten mal ein Codeausschnitt:
Sub Phase2_PDF()
Const DateiPfad = "C:\%Userprofile%\Documents\SSS\PPP\TTT\Tool\VVP-Tool\Tool Ausschnitts-PDF's\ _
Phase 2\Phase2"
Dim DateiName As String
Dim datei As String
DateiName = InputBox("Bitte Dateiname eingeben")
datei = DateiPfad & DateiName & ".pdf"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=datei, Quality:=xlQualityStandard, _
_
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Viele Grüße A.