ChatGPT-Thema: GetOpenFileName-Dialog
Schlüsselwortsuche im Archiv: GetOpenFileName, Dialog, Dateifilter
Der GetOpenFileName-Dialog soll über VBA mit den Dateifiltern Text, Word und Excel aufgerufen werden.
Um den GetOpenFileName-Dialog über VBA mit den Dateifiltern Text, Word und Excel aufzurufen, kann man folgenden Code verwenden:
Dieser Code definiert eine Variable "fname" als String und verwendet die Application.GetOpenFilename-Methode, um den Dialog zu öffnen. Der FileFilter-Parameter definiert die verfügbaren Dateitypen, die im Dialog angezeigt werden, während der Title-Parameter den Titel des Dialogfensters festlegt.
Dim fname As String
fname = Application.GetOpenFilename(FileFilter:="Text Files (*.txt), *.txt, Word Files (*.docx), *.docx, Excel Files (*.xlsx), *.xlsx", Title:="Select a File")
Dieser Code definiert eine Variable "fname" als String und verwendet die Application.GetOpenFilename-Methode, um den Dialog zu öffnen. Der FileFilter-Parameter definiert die verfügbaren Dateitypen, die im Dialog angezeigt werden, während der Title-Parameter den Titel des Dialogfensters festlegt.