Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Excel Makro OpenText Methode
Frage
Hallo,
ich hab ein kleines Problem mit einen ExcelMakro. Leider bin ich noch nicht so fit in VB.
Ich möchte eine Textdatei öffnen, die keine Trennung hat, also muß ich mit festen Spaltenbreite arbeiten.
Der Code sieht folgendermassen aus:
Workbooks.OpenText Filename:=Pfad, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, _
FieldInfo:= Arrayinfo, _ TrailingMinusNumbers:=True
wobei Pfad den Pfad als String angibt.
Das Problem liegt jetzt bei der Variable Arrayinfo. Die baue ich mir aus einer weiteren Abfrage innerhalb einer Schleife zusammen. Das Zwischenergebnis wird in eine Zelle im Arbeitsblatt geschrieben. Diese Zelle wird also immer weiter ergänzt, dass zum Ende ca. 160 Spalteninformationen dort erscheinen (z.B. Array(Array(0,2), Array(5,1), Array(20,1), ......Array (1200,1)) ).
Da sich die Spalteninformationen manchmal ändern, muß ich diese aus einer separaten Datei einlesen.
Am Ende lese ich die Zelle mit den Arrayinfos ein und speichere diese in der Variable Arrayinfo.
Das Ausführen des Makros endet immer bei der oben gezeigten Codezeile Opentext mit dem Laufzeitfehler 1004, "Die Methode OpenText für das Objekt Workbooks ist fehlgeschlagen" . Die Option Fieldinfo sollte vom Typ xlcolumnData sein, bei mir enthält sie einen String.
Wär super, wenn mir da jemand weiterhelfen kann.
Gruß
Björn