Datenimport
28.11.2008 09:34:02
Nikolai
habe folgendes Problem:
Ich muss eine Menge Daten, welche in verschiedenen Dateien gespeichert sind, in eine Exceltabelle importieren.
habe dazu dieses Makro Aufgezeichnet:
Sub Makro1()
' Makro1 Makro
' Makro am 28.11.2008 von RE26867 aufgezeichnet
ChDir "G:\RBS-K33\LS-Prüfung\0501"
Workbooks.OpenText Filename:="G:\RBS-K33\LS-Prüfung\0501\WB0501010207.AS_", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
Array(0, 1), Array(4, 1), Array(8, 1), Array(12, 1), Array(19, 1), Array(26, 1), Array( _
30, 1 _
), Array(39, 1), Array(46, 1), Array(54, 1), Array(64, 1), Array(73, 1)), _
TrailingMinusNumbers:=True
End Sub
mein Problem: das Makro sollte jetzt mit dem Import der nächsten Datei weitermachen, bis alle Dateien aus dem Ordner in die Exceltabelle importiert wurden.
Anzeige