Herbers Excel/VBA-Archiv

Dateien in Pfad suchen und nacheinander öffnen

• Dateien in Pfad suchen und nacheinander öffnen von Robin vom 28.07.2014 09:36:43
• AW: Dateien in Pfad suchen und nacheinander öffnen - von Rudi Maintaire am 28.07.2014 10:20:20
  • AW: Dateien in Pfad suchen und nacheinander öffnen - von Robin am 28.07.2014 11:09:01

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"