Dateiauswahl-Dialog in Excel programmieren

Excel-VBA stellt zwei Befehle bereit, um Dateinamen mithilfe der normalen Datei-Dialoge zu ermitteln.

Ersten Kommentar schreiben
Stand: 2. Mai 2011

So ziemlich jedes VBA-Makro in Excel bietet dem Benutzer früher oder später an, bestimmte Dateien auszuwählen: zum Speichern, zum Auslesen von Daten oder für ähnliche Aktionen. Dabei werden oft mühsam handgestrickte Lösungen eingesetzt, um einen brauchbaren Pfad und Dateinamen zu finden. Lorenz Hölscher zeigt Ihnen, wie einfach das in Excel geht.

Nicht das Rad neu erfinden

Bevor Sie überlegen, wie Sie die Fähigkeiten des Windows-Datei-Dialogs nachbilden, direkt die gute Nachricht: Das ist nicht nötig, denn Sie können diesen direkt benutzen! Excel-VBA stellt zwei fertige Befehle bereit, um Dateinamen mithilfe der normalen Datei-Dialoge zu ermitteln:

  • GetOpenFilename() für die Auswahl einer vorhandenen Datei und

  • GetSaveAsFilename() für die Angabe einer neuen Datei unter Beachtung gültiger Pfade und Benennung.

Beide Dialoge unterscheiden sich optisch nicht voneinander, aber GetSaveAsFilename() erlaubt die Angabe eines neuen, noch nicht vorhandenen Dateinamens und GetOpenFilename() erlaubt das nicht.

Dateien öffnen und speichern in Word-VBA

Die hier gezeigten Befehle gelten nur in Excel. Für Word-VBA finden Sie im Beitrag "Word-VBA: Dateiauswahl-Dialog programmieren" die entsprechende Lösung.

System-Datei-Dialoge nutzen

Die Minimalversion zum Aufruf des DateiÖffnen-Dialogs sieht so aus wie im folgenden Code:

Sub OeffneDatei()
    Dim varDatei As Variant

    varDatei = Application.GetOpenFilename()
    If varDatei = False Then
        MsgBox "Der Benutzer hat abgebrochen.", vbInformation
    Else
        MsgBox "Folgende Datei wurde ausgewählt:" & vbCrLf & varDatei
    End If
End Sub

Wenn Sie diese Prozedur mit F5 starten, sehen Sie den üblichen DateiÖffnen-Dialog von Windows wie im folgenden Bild:

Als Mitglied können Sie diesen Beitrag weiterlesen!

Werden Sie Mitglied und testen Sie akademie.de 14 Tage lang kostenlos!

In den ersten 14 Tagen haben Sie Zugriff auf alle Inhalte auf akademie.de, außer Downloads. Sie können in dieser Zeit ohne Angabe von Gründen stornieren. Eine E-Mail an service@akademie.de genügt. Nur wenn Sie Mitglied bleiben, wird der Mitgliedsbeitrag nach Ende der 14tägigen Stornofrist abgebucht.

Ich bin bereits Mitglied
Jetzt Mitglied werden und akademie.de 14 Tage kostenlos testen
Ich entscheide mich für folgende Zahlungsweise:
14 Tage Stornorecht:
Ich kann meine Mitgliedschaft in den ersten 14 Tagen jederzeit formlos stornieren, z.B. per E-Mail an service@akademie.de.

Downloads zu diesem Beitrag

Newsletter abonnieren