Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dialog xlDialogOpenText

Dialog xlDialogOpenText
16.01.2003 13: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
Anzeige
Re: Dialog xlDialogOpenText
16.01.2003 13: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 13: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

Anzeige
Re: Dialog xlDialogOpenText
16.01.2003 13:56:40
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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige