Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
112to116
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
112to116
112to116
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dialog-Fenster

Dialog-Fenster
11.04.2002 12:19:35
Viktor
Hallo
weiß jemand wie ich den Pfad und Dateinamen mittels Macro in ein Dialog-Fenster, wie z.B. "Speichern unter" eingeben kann.

Für vorschläge wäre ich sehr dankbar.
Danke schon mal im vorraus.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Dialog-Fenster
11.04.2002 12:45:17
mathias r.
Dim sFile As String
ChDrive "C:\"
ChDir ("C:\WinNt")
sFile = Application.GetSaveAsFilename("Vorschlag.xls")
Re: Dialog-Fenster
11.04.2002 13:53:17
Viktor
Hallo Mathias
dein Vorschlag funktioniert ganz gut.
Vieleicht weißt du auch wie es aussieht, wenn ich eine Datei über den distiller (Druckertreiber) als PDF auf auf ein anderes Laufwerk speichern will.
diese Variante funktioniert nicht.

ChDrive Var_Ziellaufwerk
ChDir Var_Zielverzeichnis
Application.SendKeys (Zieldateiname)
Application.SendKeys ("{ENTER}")
Application.SendKeys (Var_ZielDateiname)

Application.ActivePrinter = "Acrobat Distiller auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat Distiller auf Ne00:", Collate:=True

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige