Herbers Excel-Forum - das Archiv
Makro flexibler gestalten
Betrifft: Makro flexibler gestalten
von: Patrick
Geschrieben am: 30.10.2003 14:08:22
Hallo,
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
Betrifft: AW: Makro flexibler gestalten
von: Franky
Geschrieben am: 30.10.2003 14:13:47
Hi,
lässt sich so lösen:
Gruß, Franky
Sub Makro3()
dim vFile as variant
vFile = Application.GetOpenFilename
If vFile = False Then Exit Sub
Workbooks.OpenText Filename:=vFile, 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 if
End Sub
Betrifft: AW: Makro flexibler gestalten
von: Patrick
Geschrieben am: 30.10.2003 14:21:39
Fehlermeldung: End If ohne If-Block
Warum passiert das?
Betrifft: AW: Makro flexibler gestalten
von: Franky
Geschrieben am: 30.10.2003 14:26:42
sorry,
das "End if" in der vorletzten Zeile muss weg.