Anzeige
Archiv - Navigation
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sämtliche Dateien eines Verzeichnisses öffnen

Sämtliche Dateien eines Verzeichnisses öffnen
12.01.2005 16:42:28
Matthes
hi,
wie kann ich mit vba aus einer datei sämtliche dateien aus einem bestimmten verzeichnis öffnen?
vielen dank,
matthes

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sämtliche Dateien eines Verzeichnisses öffnen
12.01.2005 16:56:27
Ralf
Hallo Matthes,
hier mal ein Ansatz. Es werden alle .xls-Dateien eines vorher festgelegten Verzeichnisses geöffnet. Code ist aus dem Archiv.

Sub alle_Dateien_Verzeichnis()
strPath = "C:\Test_3\" 'Pfad des Verzeichnisses ggf. anpassen
strExt = "*.xls"       'Dateiextension ggf. anpassen
Dim strFile As String
If strPath = "" Then
Exit Sub
Else
strFile = Dir(strPath & strExt)
Do While Len(strFile) > 0
Workbooks.Open Filename:=strPath & strFile
'mach was damit
'Workbooks(strFile).Close 'und danach schließen
strFile = Dir() ' nächste Datei
Loop
End If
End Sub

Gruß
Ralf
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige