Variabel in die Pfadangabe übernehmen
19.09.2022 16:15:46
Günther
und schon wieder habe ich ein Problem, an dem ich scheitere.
Ich möchte nachdem abgefragt wird, ob das Verzeichnis x vorhanden ist und falls nicht angelegt wird., ein Tool zum zusammenführen diverser PDF Dateien in eine PDF starten. Leider gelingt mir das nur mit dem absoluten Pfad.
Bei der Pfadangabe mit Variablen scheite ich. Warum ? Siehe unten
Für Eure Hilfe wäre ich sehr dankbar.
Private Sub CommandButton7_Click()
'Kundenname von Tabelle "Deckblatt" auslesen
Dim kd As String
kd = Worksheets("Deckblatt").Range("D6").Value 'z.B. Huber
'Kundenverzeichnis prüfen und anlegen
Dim Path As String
Dim Folder As String
Dim Answer As VbMsgBoxResult
Path = "C:\temp\test\" & kd 'z.B. Huber
Folder = Dir(Path, vbDirectory)
If Folder = vbNullString Then
Answer = MsgBox("Der Pfad existiert nicht. Möchtest Du diesen anlegen?", vbYesNo, "Verzeichnis anlegen?")
Select Case Answer
Case vbYes
VBA.FileSystem.MkDir (Path)
MsgBox Path
Case Else
Exit Sub
End Select
Else
MsgBox "Verzeichnis existiert bereits"
End If
' Funktioniert
'Call Shell(PathName:="C:\Program Files (x86)\PDFtk\bin\pdftk.exe " & _
"c:\temp\test\*.pdf cat output c:\temp\test\zusammen.pdf", WindowStyle:=vbHide)
'Funktioniert nicht
'Call Shell(PathName:="C:\Program Files (x86)\PDFtk\bin\pdftk.exe " & _
"c:\temp\test\ & kd "\" & *.pdf cat output c:\temp\test\ &kd & "\" & zusammen.pdf", WindowStyle:=vbHide)
End Sub