AW: Alternatives Txt-Einlesen gesucht!!
13.04.2007 14:30:19
Til
Hallo Ingolf,
ich war gerade auf dem Office2000 Rechner, den ich remote ansteuere, und hab hier mal ein Makro zum Öffnen der Text-Datei aufgezeichnet.
Das ist dabei rausgekommen.
ChDir _
"\\172.16.3.3\archiv_video\Polling Data\040468FFFC6A740E\aktuell_Linie_2021_25012007"
Workbooks.OpenText Filename:= _
"\\172.16.3.3\archiv_video\Polling Data\040468FFFC6A740E\aktuell_Linie_2021_25012007\ _
20070411_1.txt" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _
True, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array( _
1, 1), Array(2, 9), Array(3, 9), Array(4, 9), Array(5, 2), Array(6, 2), Array(7, 9), _
Array(8, _
2), Array(9, 9), Array(10, 9), Array(11, 9), Array(12, 9), Array(13, 9), Array(14, 9), _
Array _
(15, 9), Array(16, 9), Array(17, 9), Array(18, 9), Array(19, 9), Array(20, 9), Array(21, _
9), _
Array(22, 9), Array(23, 9), Array(24, 9))
Danach hab ich das ganze wie folgt angepasst (alles, was eh "false" ist einfach weggelassen), sowie die Pfadangabe geändert, da sich mein Pfad ja entsprechend einer Combobox-Auswahl immer ändern kann.
Workbooks.OpenText Filename:=strFile, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
Semicolon:= True, _
FieldInfo:=Array(Array( _
1, 1), Array(2, 9), Array(3, 9), Array(4, 9), Array(5, 2), Array(6, 2), Array(7, 9), _
Array(8, _
2), Array(9, 9), Array(10, 9), Array(11, 9), Array(12, 9), Array(13, 9), Array(14, 9), _
Array _
(15, 9), Array(16, 9), Array(17, 9), Array(18, 9), Array(19, 9), Array(20, 9), Array(21, _
9), _
Array(22, 9), Array(23, 9), Array(24, 9))
Auf meinem Office2003-Rechner läuft das (immer noch!) einwandfrei.
Bei dem (doofen!) Office-2000-Rechner kommt dann die Fehlermeldung:
"Anwendungs oder Objektdefinierter Fehler".
Was läuft da immer noch falsch? Ich hoffe, Du (oder jemand anderes aus diesem Forum?!) weißt zumindest noch weiter?!
Danke schon mal!
Gruß Till