VBA-Quicktipp: Alle Dateien in einem Verzeichnis öffnen

Nachdem Sie ein Verzeichnis Ihrer Wahl adressiert haben, können Sie Dateien aus diesem Verzeichnis in der jeweils gewünschten Anwendung öffnen. Das folgende Praxisbeispiel zeigt, wie Sie alle Dateien eines bestimmten Verzeichnisses der Reihe nach öffnen:

 Sub AlleOeffnen()
    Dim sDatei As String, sPfad As String
    Application.ScreenUpdating = False
    sPfad = "c:\Beispiel"
    If Right(sPfad, 1) <> "/" Then
       sPfad = sPfad & "\"
    End If
    sDatei = Dir(sPfad & "*.xls")
    Do While sDatei <> ""
       Workbooks.Open sPfad & sDatei
       sDatei = Dir()
    Loop
    Application.ScreenUpdating = True
 End Sub

Die Wertzuweisung an die Variable "sPfad" legt den Namen des Verzeichnisses fest. Alle Dateien in diesem Verzeichnis werden anschließend geöffnet.

In der vorliegen Form ist die Lösung für den Einsatz mit Excel konzipiert. Daher wird an den Dateinamen die Endung ".xls" angehängt. Für andere Anwendungen passen Sie hier das Kürzel an (".doc" für Word-Dateien, ".ppt" für PowerPoint usw.).

Als zweite Anpassung ersetzen Sie das Objekt "Workbooks" durch das Objekt der entsprechenden Application, bei Word also beispielsweise "Documents".

Autor: Markus Klein