Dialog-Fenster



Excel-Version: 8
nach unten

Betrifft: Dialog-Fenster
von: Viktor
Geschrieben am: 11.04.2002 - 12:19:35

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.


nach oben   nach unten

Re: Dialog-Fenster
von: mathias r.
Geschrieben am: 11.04.2002 - 12:45:17

Dim sFile As String
ChDrive "C:\"
ChDir ("C:\WinNt")
sFile = Application.GetSaveAsFilename("Vorschlag.xls")
nach oben   nach unten

Re: Dialog-Fenster
von: Viktor
Geschrieben am: 11.04.2002 - 13:53:17

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

nach oben   nach unten

Re: Dialog-Fenster
von: mathias r.
Geschrieben am: 11.04.2002 - 14:12:10

Schau hier bzgl. Distillerausgabe:
https://www.herber.de/forum/archiv/24to28/t25130.htm
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Werte in andere Tabelle übertragen"