Discussion:
Starten Open-Dialog in VBA-Programm
(zu alt für eine Antwort)
Henrik
2006-09-03 14:43:02 UTC
Permalink
Hallo,
der Versuch den Open-Dialog in Excel in einem VBA-Programm aufzurufen, ich
mir nicht gelungen. Das Problem:
Workbooks.Open verlangt die Angabe von FileName:=...........
Doch genau diese Angabe will ich hier nicht gegeben. Ich will erreichen,
dass der Open-Dialog aktiviert wird und sich dann das VBA-Programm beendet.
Danach soll der User die Möglichkeit haben den Open Dialog zu verwenden. Ist
das möglich?
Im voraus vielen Dank für die Hilfe

viele Grüße
Henrik Schmidt
Herbert Taferner
2006-09-03 15:15:01 UTC
Permalink
Hallo Henrik,


z. B. so
Application.Dialogs(xlDialogOpen).Show

so kann auch das Vorgabeverzeichnis angegeben werden:
Application.Dialogs(xlDialogOpen).Show arg1:="E:\Excel"

oder auch mit Vorgabedateiname:
Application.Dialogs(xlDialogOpen).Show arg1:="E:\Excel\Datei.xls"


mfg Herbert
unknown
2006-09-04 10:25:33 UTC
Permalink
Post by Herbert Taferner
Hallo Henrik,
z. B. so
Application.Dialogs(xlDialogOpen).Show
Application.Dialogs(xlDialogOpen).Show arg1:="E:\Excel"
Application.Dialogs(xlDialogOpen).Show arg1:="E:\Excel\Datei.xls"
Sieht knackig aus. :-)

Was bitte sind diese arg1 von denen ich vermute, dass es auch arg2 usw.
gibt? Wo findet man das mal aufgelistet?
--
Eric March

Kenne die Vergangenheit. In der Unwissenheit über die Vergangenheit
liegt das Verderben der Zukunft.
"Die Geschichte ist der beste Lehmeister - mit den unaufmerksamsten
Schülern." Indira Gandhi
stefan onken
2006-09-04 11:47:07 UTC
Permalink
hallo Eric,
Post by unknown
Was bitte sind diese arg1 von denen ich vermute, dass es auch arg2 usw.
gibt? Wo findet man das mal aufgelistet?
Liste der integrierten Dialogfeldargumente, zu finden über die Hilfe
im VBA-Editor oder
über die F1-Hilfe zu Dialog (im VBA-Editor cursor ins Wort stellen, F1
drücken).

Gruß
stefan
Thomas Ramel
2006-09-04 12:31:15 UTC
Permalink
Grüezi Eric

Eric March schrieb am 04.09.2006
Post by unknown
Post by Herbert Taferner
Application.Dialogs(xlDialogOpen).Show arg1:="E:\Excel\Datei.xls"
Was bitte sind diese arg1 von denen ich vermute, dass es auch arg2 usw.
gibt? Wo findet man das mal aufgelistet?
Im VBA-Editor den Cursor in den Begriff 'Show' stellen und F1 drücken ;-)

In xl2003 gehts dann wie folgt weiter:

Show-Methode, wie sie auf das Dialog-Objekt angewendet wird.

und relativ weit unten steht dann:


Bei einigen integrierten Dialogfeldern (z.B. Öffnen) können Sie die
Anfangswerte mit arg1, arg2, ..., arg30. Suchen Sie unter Integrierte
Argumentlisten für Dialogfelder. Suchen Sie z.B. nach der
xlDialogOpen-Konstante, um die Argumente für das Dialogfeld Öffnen zu
erhalten. Weitere Informationen über integrierte Dialogfelder finden Sie
unter der Dialogs-Auflistung.

der Link:

Integrierte Argumentlisten für Dialogfelder

führt zur Auflistung der internen Dialoge, wo zu 'xlDialogOpen' foglgendes
gefunden wird:

file_text,
update_links,
read_only,
format,
prot_pwd,
write_res_pwd,
ignore_rorec,
file_origin,
custom_delimit,
add_logical,
editable,
file_access,
notify_logical,
converter




Mit freundlichen Grüssen
Thomas Ramel (@work)
--
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2003 SP-1]
Microsoft Excel - Die ExpertenTipps tinyurl.com/cmned
Herbert Taferner
2006-09-04 14:20:45 UTC
Permalink
Hallo Eric,
Post by unknown
Sieht knackig aus. :-)
Was bitte sind diese arg1 von denen ich vermute, dass es auch arg2 usw. gibt?
Wo findet man das mal aufgelistet?
den herkömmlichen Weg haben dir ja Stefan und Thomas schon geschildert
hier noch einer schau mal da rein
http://www.excel-addins.de/addins30.htm

mfg Herbert

Loading...