Daten einlesen
08.04.2005 17:47:55
Maik.F
Ich habe folgendes Makro geschrieben:
Sub DatenEinlesen()
Workbooks.OpenText Filename:="Z:\Rechnung.txt", Origin:=xlMSDOS, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False, _
Space:=False, Other:=True, OtherChar:="@", FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1))
Range("A1:F9999").Select
Selection.Copy
ActiveWindow.ActivateNext
Range("A3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.ActivateNext
ActiveWindow.Close
End Sub
Die Datei Rechnung.txt wird einwandfrei geöffnet. Aber in der Zeile
Range("A1:F9999").Select
bricht das Programm ab, Laufzeitfehler 1004! Anwendungs- oder objektdefinierter Fehler.
Wer kann mir helfen, das Problem zu beseitigen? Die Daten sollen in die zuvor geöffnete Datei (in der auch dieses Makro steht) importiert werden. Bin für jeden Tip dankbar.
Gruß, Maik
Anzeige