Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
636to640
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
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Speicherdialog für Dateiexport

Speicherdialog für Dateiexport
13.07.2005 14:49:11
Finn
Grüßt euch,
Ich versuche im moment ein Programm zu optimieren, mit dem ich aus einer Excel- tabelle Daten auslese und in das CAD Format "dxf" formatiere.
Die Routine dafür ist auch schon voll funktionsfähig, nur wird der speicherort für die neu erstellte datei bis jetzt ausschließlich über ein Textfeld eingegeben.
Gibt es eine Möglichkeit eine Datei die über das Speichern unter Dialogfeld abzuspeichern?
Das heißt ein Fenster das den Dateibaum des Rechners anzeigt und so die Auswahlmöglichkeit des speicherorts erleichtert?
Die Text datei wird bis jetzt über
"open Textbox1.text for output as #1"
und dann über "print#1, " befehle erzeugt.
Vielen Dank schonmal im Vorraus
Fin(n) :-)

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speicherdialog für Dateiexport
13.07.2005 14:59:17
MichaV
Hi Fin(n)
GetSaveAsFilename-Methode

Zeigt das Standarddialogfeld Speichern unter an und bekommt einen Dateinamen vom Benutzer, ohne jedoch irgendwelche Dateien zu speichern.
Syntax
Ausdruck.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)
Beispiel zur GetSaveAsFilename-Methode
In diesem Beispiel wird das Dialogfeld Speichern unter mit einem Dateifilter für Textdateien angezeigt. Wenn der Benutzer einen Dateinamen wählt, wird dieser in einem Meldungsfeld angezeigt.
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName False Then
MsgBox "Save as " & fileSaveName
End If
In Deinem Falle dann Open fileSaveName for Output usw.
Gruss- Micha
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige