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