ich würde gerne den Dialog xlDialogOpenText aufrufen.
Ich probiere es mit
Application.Dialogs(xlDialogOpenText).Show
bekomme aber stets einen Laufzeitfehler (1004).
Kann mir da jemand weiterhelfen?
Viele Grüße und Danke im voraus
Jochen
ich würde gerne den Dialog xlDialogOpenText aufrufen.
Ich probiere es mit
Application.Dialogs(xlDialogOpenText).Show
bekomme aber stets einen Laufzeitfehler (1004).
Kann mir da jemand weiterhelfen?
Viele Grüße und Danke im voraus
Jochen
mir ist nicht ganz klar welchen Dialog Du meinst. Aber vielleicht hilft folgendes
dat = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
' Auf die Variable dat wird der Dateinamen geschrieben
Gruß Hajo
ich meine den Dialog "Text-Assistent", der aufgerufen wird, wenn ich über Datei-Öffnen eine TXT-Datei importiere.
Ich möchte diesen Dialog öffnen und dabei schon einige Werte vorbelegen. Allerdings sollte es per Dialog noch möglich sein, diese Werte zu ändern.
Mein bisheriger Versuch sah so aus:
Workbooks.OpenText FileName:=Datenquelle, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
Space:=False, Other:=False
Dabei wird aber direkt mit diesen Einstellungen impotiert, ohne daß diese nocheinmal geändert werden könnten.
Viele Grüße
Jochen
ich meine den Dialog "Text-Assistent", der aufgerufen wird, wenn ich über Datei-Öffnen eine TXT-Datei importiere.
Ich möchte diesen Dialog öffnen und dabei schon einige Werte vorbelegen. Allerdings sollte es per Dialog noch möglich sein, diese Werte zu ändern.
Mein bisheriger Versuch sah so aus:
Workbooks.OpenText FileName:=Datenquelle, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
Space:=False, Other:=False
Dabei wird aber direkt mit diesen Einstellungen impotiert, ohne daß diese nocheinmal geändert werden könnten.
Viele Grüße
Jochen