Workbooks.OpenText Spalte als Text definieren
Thomas
ich übernehme via Makro eine txt datei ins Excel.
Workbooks.OpenText Filename:=ThisWorkbook.Path & "\" & datei & ".txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
2), Array(7, 2), Array(11, 2), Array(15, 2), Array(17, 2), Array(22, 2), Array(34, 2), Array _
(47, 2), Array(67, 1), Array(75, 1), Array(83, 1)), TrailingMinusNumbers:=True
Diese Datei enthält Spalten mit Text und mit Zahlen.
Es funktioniert auch soweit alles einwandfrei. Lediglich in einer Spalte sind z.T. Zahlen mit voranstehenden Nullen, diese will auch mit übernehmen. Wenn ich die txt Datei manuelle übernehme kann ich diese Spalte als Text definieren, dann klappts auch. Wie kann ich diese Spaltendefinition als text mit dem Workbooks.Open... Befehl realisieren?
Ich habe versucht dies als Makro aufzuzeichnen um dann den Code zu übernehmen , aber die Spaltendefinition als Text wurde beim Aufzeichnen nicht in den Code übernommen.
Danke im voraus
Thomas