Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
704to708
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
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mehrere Dateien laden

Mehrere Dateien laden
12.12.2005 23: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
Anzeige
AW: Mehrere Dateien laden
13.12.2005 00: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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige