Gruppe
Datei
Problem
Wie kann ich alle Excel-Dateien eines Verzeichnisses über VBA öffnen lassen?
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