Text- Datei bearbeitet
15.01.2007 07:52:15
Andre´
Ich habe mir folgendes Makro aufgezeichnet, wo eine Text- Datei Namens "Alle.txt" zu einer fester Spaltenbreite bearbeitet wird.
Sub Makro1()
Workbooks.OpenText Filename:= _
"D:\Bestand\Nov 06\Alle.txt", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
Array(0, 1), Array(18, 1), Array(32, 1), Array(46, 1), Array(60, 1), Array(74, 1), Array(88 _
, 1), Array(102, 1), Array(116, 1), Array(130, 1)), TrailingMinusNumbers:=True
End Sub
Das Problem ist, dass sich die Text- Datei nicht immer im selben Ordner befindet. Ich würde gern die Möglichkeit haben, dass ich den Ordner wo sich die Text- Datei befindet selbst auswählen kann und wenn die Datei gefunden wurde diese öffne, sodass dann die Bearbeitung erfolgt. Nach der automatischen Bearbeitung durch das Makro, soll die Text- Datei als Excel Datei im selben Ordner ebenfalls mit Namen "Alle.xls" gespeichert werden und geöffnet bleiben. Falls keine Text- Datei gefunden wurde und ich auf abbrechen klicke, dann soll auch nichts geschehen.
Hat jemand dafür eine Lösung.
Danke im Voraus
Andre