Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Alle Dateien im Verzeichnis öffnen

Gruppe

Arbeitsmappe

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