www.Russ-Jesteburg.de > Excel > VBA > Datei

Dateiname von zu speichernder Datei ermitteln:

Sub Namen_von_zu_speichernder_Datei_ermitteln()
    Dim Dateiname As String
    ' Mit diesem Befehl können Excel-Dateien angezeigt werden:
    Dateiname = Application.GetSaveAsFilename _
       ("Micrsoft Excel-Dateien (*.xls),*.xls")
    ' Alternativ ist die Eingabe beliebiger anderer
    ' Dateiendungen und -beschreibungen möglich.
    If Dateiname = False Then Exit Sub
    MsgBox Dateiname
    ' Die Datei ist jetzt noch nicht gespeichert, nur der
    ' Dateiname wurde ermittelt. Das Speichern muss ggf.
    ' separat erfolgen.
End Sub

Dieser Tipp ist vom 11.07.2005