Makro flexibler gestalten
30.10.2003 14:08:22
Patrick
ich habe vorhin von euch dieses Makro bekommen. Frage hierzu: Wie kann ich das Makro so gestalten, dass ich jede beliebige DAT-Datei damit öffnen kann?
Sub Makro3()
Workbooks.OpenText Filename:="C:\Test\1673.dat", Origin _
:=xlWindows, StartRow:=4, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 9), _
Array(2, 1), Array(3, 1), Array(4, 9))
End Sub
Anzeige