Textdatei
21.09.2004 15:34:37
Andreas
habe folgendes Makro:
Sub öffnen1()
Workbooks.OpenText FileName:="Test.txt", Origin:=xlWindows, StartRow:=1 _
, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(5, 1), Array(13, 1 _
), Array(45, 1), Array(56, 1), Array(67, 1), Array(78, 1), Array(90, 1))
End Sub
Hier ist ja nun die Datei vorgegeben. Ist es möglich das sich das dialogfeld "datei öffnen" öffnet, sich der User eine Datei auswählt und dann auch die voreingestellten Spaltenbreiten übernommen werden?
Vielen Dank!
Andreas
Anzeige