PDF Dateien in Ordner kopieren
15.11.2024 17:42:29
walter k
ich habe folgende Erweiterung für das Makro unter Hilfe vom Forum erhalten.
Dim dlgAuswahl As FileDialog
Set dlgAuswahl = Application.FileDialog(msoFileDialogFilePicker)
Dim AppWD As Object
Dim strDatei, lstrExt() As String
Dim Verzeichnis
Verzeichnis = "\\Sekr\D\__Rechnungen\_Geschäftsstelle_Kappler\_Kappler_gedruckte_Rechnungen\" _
& ActiveSheet.Range("Q1") & "\" & Format(Range("R1"), "00 ") & MonthName(Range("R1"))
With dlgAuswahl
.Filters.Clear
.Filters.Add "Excel Dateien", "*.pdf"
.InitialFileName = Verzeichnis
.Show
End With
Das selektieren der PDF Dateien funktioniert, im Ordner der Speicherung existiert der Ordner
"PDF", da sollen jetzt die selektierten PDF Dateien reingeschoben werden.
leider komme ich nicht weiter...
gruß
walter k
Anzeige