flexible txt-Datei öffnen mit VBA
05.02.2009 15:36:31
Mike
mittels nachfolgendem Code importiere ich .txt-Dateien ins Excel.
Da es nicht immer die gleiche txt-Datei ist, würde ich gerne die
Auswahl "flexibel" halten. Wie mach ich das?
Sub Txt1_KST_importieren()
' öffnet die exportierten Kostenstellen - Txt1_importieren Makro
Workbooks.OpenText Filename:="U:\roh1208.txt", Origin:=xlMSDOS, StartRow _
:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(15, 1), Array _
(46, 1), Array(64, 1), Array(79, 1), Array(94, 1), Array(109, 1), Array(124, 1), Array( _
_
139, _
1), Array(154, 1), Array(169, 1), Array(184, 1), Array(199, 1), Array(214, 1), Array( _
229, 1 _
), Array(244, 1), Array(259, 1), Array(274, 1), Array(288, 1)), TrailingMinusNumbers _
:=True
End Sub
Besten Dank für Eure Ideen und Lösungsvorschläge.
Gruss
Mike