Gruppe
Datei
Bereich
Filtern
Thema
Dateinamen filtern
Problem
Wie kann ich beim VBA-Aufruf des Öffnen-Dialogs die angezeigten Dateien auf Typen, beispielsweise Textdateien, begrenzen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub FileOpen()
Dim vFile As Variant
vFile = Application.GetOpenFilename( _
"Textdateien (*.txt),*.txt")
If vFile = False Then Exit Sub
Workbooks.Open vFile
End Sub