Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1040to1044
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
Inhaltsverzeichnis

GetSaveAsFilename

GetSaveAsFilename
20.01.2009 00:49:10
Frank68
Halle Gemeinde,
eine Frage: Kann ich die Methode GetSaveAsFilename so modifizieren, dass im Dialogfeld ein bestimmter Dateiname (= Vorschlag) steht, der beispielsweise aus einer Zelle dieser Tabelle "gezogen" wird?
Dank!

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

Betreff
Datum
Anwender
Anzeige
AW: GetSaveAsFilename
20.01.2009 00:59:54
Josef
Hallo Frank,
das geht so.
Sub saveFile()
    Dim strSaveAs As String, strFileName As String
    
    strFileName = Sheets("Tabelle1").Range("A1") 'Zelle mit dem Dateinamen
    
    strSaveAs = Application.GetSaveAsFilename( _
        fileFilter:="Excel Dateien (*.xls), *.xls", InitialFileName:=strFileName)
    
    If strSaveAs <> "Falsch" Then
        MsgBox strSaveAs
    End If
End Sub

Gruß Sepp

Anzeige
AW: GetSaveAsFilename
20.01.2009 01:01:00
Daniel
Hi
ja klar:
Application.GetSaveAsFilename("C:\DeinPfad\DeinDatiename.xls")
oder
Application.GetSaveAsFilename(Sheets("Tabelle1").Range("A1").Value & Format(Date, " YYYY-MM-DD") & ".xls")
sollte funktionieren
wobei die Pfadangabe auch weggelassen werden kann, dann wird der aktulle Dateipfad verwendet.
ansonsten einfach mal in der Hilfe lesen.
Gruß, Daniel
AW: GetSaveAsFilename - Dank!
20.01.2009 01:04:00
Frank68
... und gute Nacht!

275 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige