ich möchte alle Dokumente in einem Verzeichnis nacheinander mit dem gleichen Makro bearbeiten. Das öffnen und Bearbeiten der einzelnen Dokumente im Verzeichnis ist mir soweit auch gelungen. Jedoch muss ich so jedes Mal den Verzeichnisordner im Makro ändern.
Nun wollte ich den Pfad abfragen und als variable an die Dir-Funktion übergeben. Diese wir jedoch von der Dir-Funktion nicht erkannt.
Vielleicht hat mir ja jemand eine Lösung dafür :D
Gruß Jochen
Hier mein Code:
Sub Test()
Dim x As String
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Pfad As String
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
Pfad = BrowseDir.items().Item().Path
If Pfad = "" Then Exit Sub
On Error GoTo 0
a = Chr(34) & Pfad & "\" & "*.xlsx" & Chr(34)
x = Dir(a * ".xlsx")
Do
'Bearbeitung der Daten
x = Dir()
Loop Until x = ""
End Sub