Mehrere Dateien laden

Forumthread: Mehrere Dateien laden
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Mehrere Dateien laden

13.12.2005 00:51:48

Elmar

Hallo zusammen,
ich stehe irgendwie auf dem Schlauch...
Wer kann mir sagen, wie ich eine Datei per Makro laden kann, die in den ersten 4 Ziffern immer gleich heisst und ab der 5 Ziffer immer unterschiedlich ist. Die Endung ist natürlich immer .xls
Workbook.open................?
Grüße Elmar

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mehrere Dateien laden

13.12.2005 01:09:23

HansH

AW: Mehrere Dateien laden

13.12.2005 01:09:23

HansH

Hallo Elmar,
versuchs mal mit Code von Hajo:


Sub Dateiliste_Öffnen()
'   erstellt von Hajo.Ziplies@web.de
' <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a>
'   alle Dateien eines Ordners öffnen
Dim strVerzeichnis As String
Dim StrDatei As String
Dim StrTyp As String
Dim Dateiname As String
strVerzeichnis = "D:\Meine_Dateien_neu\Arbeit\" 'hier das Verzeichnis eingeben
StrTyp = "Absc*.xls" 'hier die 4 Buchstaben eingeben
Dateiname = Dir(strVerzeichnis & StrTyp)
Do While Dateiname <> ""
Workbooks.Open Filename:=strVerzeichnis & Dateiname
Dateiname = Dir
Loop
End Sub

Gruß
Hans