Dialog xlDialogOpenText

Forumthread: Dialog xlDialogOpenText
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Dialog xlDialogOpenText

16.01.2003 14:43:28

Jochen

Hallo,

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Dialog xlDialogOpenText

16.01.2003 14:45:39

Hajo_zi
Re: Dialog xlDialogOpenText

16.01.2003 14:56:39

Jochen
Re: Dialog xlDialogOpenText

16.01.2003 14:56:40

Jochen

Re: Dialog xlDialogOpenText

16.01.2003 14:45:39

Hajo_zi

Hallo 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

Re: Dialog xlDialogOpenText

16.01.2003 14:56:39

Jochen

Hallo 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