Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aufruf des GetOpenFilename-Dialogs

Gruppe

Anwendung

Problem

Der GetOpenFileName-Dialog soll mit den Dateifiltern Text, Word und Excel aufgerufen werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub TxtAndXl()
   Dim var As Variant
   Dim sFiles As String
   sFiles = "Text-Files (*.txt), *.txt, "
   sFiles = sFiles & "Word-Files (*.doc), *.doc, "
   sFiles = sFiles & "Excel-Files(*.xls), *.xls"
   var = Application.GetOpenFilename(sFiles)
End Sub