Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

'Speichern unter ...' mit VBA ?

0 views
Skip to first unread message

Hans-Elmar Kliebisch

unread,
Feb 27, 2002, 5:41:41 PM2/27/02
to
Hallo,

Eine XL2000-Datei soll unter einem vom Anwender zu vergebenden Namen
gespeichert werden. Das klappt auch einwandfrei so:
Name = InputBox("Unter welchem Namen speichern ?")
....
ActiveWorkbook.SaveAs Filename:=Name, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

ABER: Als Speicherort (Pfad) wird der Standardpfad unter Excel verwendet.
Wie kann ich dem Anwender eine Art Dateibrowser präsentieren (wie es bei
Speichern unter in den meisten Programmen geschieht), aus der er per Maus
das Speicherlaufwerk und den Ordner auswählen kann?
Wenn diese Aufgabe noch nicht schwer genug sein sollte: Könnte er auch einen
neuen Ordner anlegen?

Danke für eure Geduld!

Beste Grüße

Hans-Elmar


Wolfgang Habernoll

unread,
Feb 27, 2002, 6:23:53 PM2/27/02
to
Hallo Hans-Elmar

versuche es doch mal mit
.... Application.GetOpenFilename("Excel Dateien (*.XLS), *.XLS")
ist es das was Du suchst ?

Gruß Wolfgang

"Hans-Elmar Kliebisch" <h...@fulda-online.de> schrieb im Newsbeitrag
news:a5jnbq$858g4$1...@ID-9879.news.dfncis.de...

Wolfgang Habernoll

unread,
Feb 27, 2002, 6:34:51 PM2/27/02
to
Ups .. zum speichern natürlich

Application.GetSaveAsFilename( FileFilter:="Excel Files (*.XLS), *.XLS")

Wolfgang

"Wolfgang Habernoll" <wolfgang....@t-online.de> schrieb im Newsbeitrag
news:a5jpq9$vtj$00$1...@news.t-online.com...

Hans-Elmar Kliebisch

unread,
Mar 2, 2002, 12:40:19 PM3/2/02
to
Hallo, Wolfgang,

ja, hat mir geholfen, den richtigen Weg einzuschlagen. Mußte das Script zwar
noch weiter ausbauen, da der Pfad unter VBA-Makros weiterverarbeitet werden
muß, aber das habe ich hingekriegt. Danke.

Gruß

Hans-Elmar

PS: Sorry für die späte Antwort, mein Job läßt mir weniger Zeit als ich
brauche ...


0 new messages