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

Dateiname von zu öffnender Datei ermitteln:

Sub Namen_von_zu_oeffnender_Datei_ermitteln()
    Dim Dateiname As String
    ' Mit diesem Befehl können Excel-Dateien angezeigt werden:
    Dateiname = Application.GetOpenFilename _
       ("Micrsoft Excel-Dateien (*.xls),*.xls")
    ' Alternativ ist die Eingabe beliebiger anderer
    ' Dateiendungen und -beschreibungen möglich.
    If Dateiname = False Then Exit Sub
    MsgBox Dateiname
End Sub

Dieser Tipp ist vom 11.07.2005