Office: Alle Dateien eines Ordners ansprechen

Hallo Forum,

ich möchte ein Makro über alle Dateien in einem Verzeichnis laufen lassen. Das geschieht mit:

Code:

Sub AlleDateienAnsprechenFürFileEinfügen()

Dim Verz, DName As String
    Verz_default = "E:\Studium\MW WE 3.4 Bad\"
    Verz = InputBox("Verzeichnis der Eingabedateien?", , Verz_default)
    DName = Dir(Verz & "*.xls")
        
    '1. Datei öffnen, makro ausführen und Datei schließen
    If DName <> "" Then
        'MsgBox (Verz & DName)
        Workbooks.Open (Verz & DName)
            MW_aus_File_in_FL_einfügen
        ActiveWorkbook.Close
    End If
           
    'weitere Dateien öffnen, makro ausführen und Datei schließen
    Do While (DName <> "")
        DName = Dir()
        If DName <> "" Then
            'MsgBox (Verz & DName)
            Workbooks.Open (Verz & DName)
                MW_aus_File_in_FL_einfügen
            ActiveWorkbook.Close
        End If
    Loop
   
End Sub

Die Ausgabe der bearbeiteten Dateien erfolgt als Subroutine in MW_aus_File_in_FL_einfügen:

Code:

Sub Verzeichnis_erstellen(Dir_out)
        
            If Dir(Dir_out, vbDirectory) = "" Then  'überprüfung ob Verz existiert, aber dann Probleme mit Aufrufen weiterer Dateien
                MkDir Dir_out
            End If
End Sub

Das Problem ist, das nach dem Durchlauf des Subs Verzeichnis_erstellen die Datei im Loop des Subs AlleDateienAnsprechenFürFileEinfügen() nicht weitergezählt werden.
wenn ich diese Überprüfung mit Dir(Dir_out, vbDirectory)... nicht durchführe durchläuft es alle dateien, aber es erstellt das Verzeichnis jedesmal neu...

Habt ihr irgendeine Idee was ich ändern muss, damit es mit der ABfrage Dir(Dir_out, vbDirectory) funktioniert?

Vielen Dank
homax

 

Hallo!

Wenn ich mir diese Schleife so anschaue:

Code:

           
    'weitere Dateien öffnen, makro ausführen und Datei schließen
    Do While (DName <> "")
        DName = Dir()
        If DName <> "" Then
            'MsgBox (Verz & DName)
            Workbooks.Open (Verz & DName)
                MW_aus_File_in_FL_einfügen
            ActiveWorkbook.Close
        End If
    Loop 

Dann verstehe ich die If-Abfrage nicht, denn das wird doch schon durch die While-Abfrage betrachtet.
Setze mal die Zeile "DName = Dir()" ans Ende dieser Schleife, also direkt vor das "Loop". Vielleicht hilft das.

 

Danke für deine schnelle Antwort.
Aber das Makro funktioniert einwandfrei ohne die Verzeichnis erstellen Routine. Sobald ich den Befehl
If Dir(Dir_out, vbDirectory) = "" Then
verwende spinnt er in der Schleife rum und kann dort mit Dir() nix mehr anfangen :-(