Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Speichern unter - Dialogfenster ?

Speichern unter - Dialogfenster ?
12.08.2005 11:52:39
Selma
Hallo Leute,
ich habe mir eine Schaltfläche "Speichern" gemacht.
Wenn ich dadrauf klicke soll im Speichern unter Dialog-Fenster diese Verzeichniss C:\Projekte\2005\Ausgang\ geöffnet werden.
Die Dateiname als Vorschlag: "Ausgang_2005_MX----.xls"
Wie mache ich das per VBA?
Danke im Voraus....
Liebe Grüße
SELMA
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern unter - Dialogfenster ?
12.08.2005 12:44:28
Heiko
Hallo Selma,
z.B. so.

Sub Testennn()
Dim strFileName As String
ChDrive ("C:")
ChDir ("C:\Temp")
strFileName = Application.GetSaveAsFilename(InitialFileName:="Ausgang_2005_MX----", _
fileFilter:="EXCEL Dateien (*.xls), *.xls", _
Title:="Wählen Sie einen Dateinamen zum speichern aus.")
If strFileName = "Falsch" Then
MsgBox "Sie haben nichts ausgewählt!", vbInformation
Exit Sub
Else
MsgBox strFileName
' Workbooks("blabla").SaveAs strFileName
End If
End Sub

Gruß Heiko

PS: Rückmeldung wäre nett !
Anzeige
AW: Speichern unter - Dialogfenster ?
12.08.2005 13:34:35
Selma
Hallo heiko,
danke für Dein Code.....
Ein Frage habe ich noch:
Wenn ich diesen Code nehme und beim Speichern doch auf Abrechen klicke, wird in Ordner C:\TEMP eine Datei angelegt mit Namen Falsch.xlw

Private Sub CommandButton4_Click()
Dim strFileName As String
Dim InitialPath As String
InitialFile = "C:\TEMP\Ausgang_2005_MX----"
strFileName = Application.GetSaveAsFilename(InitialFileName:=InitialFile, _
fileFilter:="EXCEL Dateien (*.xls), *.xls", _
Title:="Wählen Sie einen Dateinamen zum speichern aus.")
Application.SaveWorkspace (strFileName)
End Sub

Wie kann ich verhindern das diese Datei "Falsch.xlw" erzeugt wird?
Danke nochmals....
Liebe Grüße
SELMA
Anzeige
AW: Speichern unter - Dialogfenster ?
12.08.2005 13:45:34
Heiko
Hallo Selma,
If strFileName "Falsch" Then
Application.SaveWorkspace (strFileName)
End If
Gruß Heiko

PS: Rückmeldung wäre nett !
AW: Speichern unter - Dialogfenster ?
12.08.2005 13:53:47
Selma
Danke Heiko.....
LG
Selma
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige