also ich will eine Textdatei öffnen und diese Textdatei
hat für die einzelenen Spalten eine Feste breite. Das ist
soweit kein Problem. Ich hab mir folgendes Makro
aufzeichenen lassen.
ChDir "C:\Dokumente\"
Workbooks.OpenText FileName:="C:\Dokumente\test.txt", _
Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth,
FieldInfo:= _
Array(Array(0, 2), Array(5, 2), Array(10, 2), Array(15,
2), Array(20, 2), Array(40, 2), _
Array(45, 2), Array(51, 2), Array(59, 2), Array(61, 2),
Array(66, 2), Array(71, 2), Array( _
84, 2), Array(92, 2), Array(97, 2), Array(102, 2), Array
(107, 2), Array(112, 2), Array(117, _
2), Array(129, 2), Array(141, 2), Array(153, 2), Array
(165, 2), Array(177, 2), Array(190, 2 _
), Array(220, 2), Array(260, 2))
Jetzt möchte ich, dass der User das auswählen der Datei
selber bestimmen kann. Das Dialogfeld "Öffnen" soll
angezeigt werden, der Benutzer wählt eine Datei aus und
die Breiten sollen automatisch eingegeben werden und
danach kommt noch ein kleiner Teil, der aber hier nicht
interessiert.
Wer kann mir helfen?
Danke im Voraus.
Daniel