Herbers Excel-Forum - das Archiv

Makro flexibler gestalten

Bild

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


Bild

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


Bild

Betrifft: AW: Makro flexibler gestalten
von: Patrick
Geschrieben am: 30.10.2003 14:21:39
Fehlermeldung: End If ohne If-Block

Warum passiert das?
Bild

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.
 Bild
Excel-Beispiele zum Thema " Makro flexibler gestalten"
Druckbereich variabel gestalten NETTOARBEITSTAGE-Funktion sprachunabhängig gestalten
Einen Trainingsplan dynamisch gestalten