VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Alle Dateien im Verzeichnis öffnen

Gruppe

Datei

Bereich

Arbeitsmappe

Thema

Alle Dateien im Verzeichnis öffnen

Problem

Wie kann ich alle Excel-Dateien eines Verzeichnisses über VBA öffnen lassen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: basMain

Sub OpenWkb()
   Dim sFile As String, sPath As String
   Application.ScreenUpdating = False
   sPath = Range("B1").Value
   If Right(sPath, 1) <> "/" Then
      sPath = sPath & "\"
   End If
   sFile = Dir(sPath & "*.xls")
   Do While sFile <> ""
      Workbooks.Open sPath & sFile
      sFile = Dir()
   Loop
   Application.ScreenUpdating = True
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Arbeitsmappe