Microsoft Excel

Herbers Excel/VBA-Archiv

Dateien in Pfad suchen und nacheinander öffnen

Betrifft: Dateien in Pfad suchen und nacheinander öffnen von: Robin
Geschrieben am: 28.07.2014 09:36:43

Hallo Leute,
ich habe ein Programm geschrieben, wo manuell Dateien geöffnet und dann Daten importiert werden.

Nun will ich das Öffnen und Verarbeiten automatisieren.
Im Quellpfad soll nach Dateien mit dem Namensinhalt *Benutzer* gesucht werden.
Dann sollen alle Dateien nacheinander mit einer for oder while Schleife geöffnet werden.

Könnt Ihr mir eine mögliche Lösung des Problems zeigen?

Vielen Dank und liebe Grüße
Robin

  

Betrifft: AW: Dateien in Pfad suchen und nacheinander öffnen von: Rudi Maintaire
Geschrieben am: 28.07.2014 10:20:20

Hallo,
ich weiß nicht, wie oft das schon gefragt wurde.

sub aaaaa()
dim sPfad as string, sFile as String, wkb as workbook
sPfad="c:\test\"
sFile=dir(sPfad &"*benutzer*")
do while sFile <> ""
set wkb=workbooks.open (sPfad & sFile)
'mach was
wkb.close false
sFile= Dir
Loop
end sub

Gruß
Rudi


  

Betrifft: AW: Dateien in Pfad suchen und nacheinander öffnen von: Robin
Geschrieben am: 28.07.2014 11:09:01

Sehr geil vielen Dank :)


 

Beiträge aus den Excel-Beispielen zum Thema "Dateien in Pfad suchen und nacheinander öffnen"