Hallo Leute,
ich bin auf der Suche nach einem VBA Makro mit dem man bis zu 31 Dateien in ein Tabellenblatt untereinander importieren kann. Kann mir jemand dabei weiterhelfen?
Folgende ein paar genauere Angaben. ExcelVersion ist 2003!
Es handelt sich dabei um Dateien in einem Ordner die immer mit der Endung „.d01“, „.d02“, etc. enden. Wobei die letzten zwei Zahlen den entsprechenden Tag des Monats darstellen.
Der Inhalt der Dateien soll in einem Tabellenblatt importiert werden und dabei bei „:“ getrennt und beim Datum als „JMT“ importiert werden.
Viele Grüße
Ralf
ich bin auf der Suche nach einem VBA Makro mit dem man bis zu
31 Dateien in ein Tabellenblatt untereinander importieren
kann. Kann mir jemand dabei weiterhelfen?
Es handelt sich dabei um Dateien in einem Ordner die immer mit
der Endung „.d01“, „.d02“, etc. enden. Wobei die letzten zwei
Zahlen den entsprechenden Tag des Monats darstellen.
Der Inhalt der Dateien soll in einem Tabellenblatt importiert
werden und dabei bei „:“ getrennt und beim Datum als „JMT“
importiert werden.
Hi Ralf,
ungetestet:
Option Explicit
Option Base 1
'
Sub tt()
Dim D, N, Satz, S, Sp, Zei
Const PfadDatei As String = "C:\Mein Pfad\Dateiname."
Close
For D = 1 To 31
If Dir(PfadDatei & "d" & Right("0" & D, 2)) = "" Then Exit For
Open PfadDatei & "d" & Right("0" & D, 2) For Input As #1
While Not EOF(1)
Line Input #1, Satz
S = Split(Satz, ":")
For Sp = 1 To UBound(S)
If IsDate(S(Sp)) Then S(Sp) = Format(S(Sp), "yyyymmdd")
Zei = Zei + 1
Cells(Zei, Sp) = S(Sp)
Next Sp
Wend
Close
Zei = Zei + 1
Next D
End Sub
Gruß
Reinhard