Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Alle Dateien eines Ordners per Makro öffnen

Forumthread: Alle Dateien eines Ordners per Makro öffnen

Alle Dateien eines Ordners per Makro öffnen
04.03.2004 11:17:25
Daniel
Hallo,
ich habe folgendes Problem:

In einem Ordner befinden sich eine unsbestimmte Zahl an Excel-Dateien
und es kommen immer welche dazu.
Nun würde ich gerne mit einem Makro alle Dateien in diesem Ordner
öffnen, also *.xls
Wie kann man ohne einen konkreten Dateinamen anzugeben alle Dateien
eines Ordners mit einem Makro öffnen?
Vielen Dank
LG
Daniel
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Dateien eines Ordners per Makro öffnen
04.03.2004 11:43:36
Panicman
Hallo Daniel,
in Modul kopieren und Verzeichnisname ändern:

Sub XLSDATEIEN_OEFFNEN()
Dim iCounter As Integer
With Application.FileSearch
.LookIn = "C:\Eigene Dateien"
.SearchSubFolders = False
.Execute msoSortByFileType
.FileType = msoFileTypeExcelWorkbooks
'.Execute msoSortByFileName
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open FileName:= _
.FoundFiles(iCounter) _
, UpdateLinks:=0
Next iCounter
End With
End Sub


Gruß
Holger
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige