Anzeige
Archiv - Navigation
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
GetOpenFilename komplexe wildcards
12.06.2007 14:01:00
Thorlyn
Hallöchen :)
Ich versuchte gerade:
Number = 100
FileFilter = "Specific files (*" & Number & "*.xls),*" & Number & "*.xls,All excel-files (*.xls),*.xls"
'reads "Specific files (*100*.xls),*100*.xls,All excel-files (*.xls),*.xls"
FileName = Application.GetOpenFilename(FileFilter, 1, "Open file")
Leider bekomme ich nur den allgemeineren Filter zur Auswahl (*.xls).
Der andere, eigentlich wichtigere wird gar nicht in der Liste aufgeführt.
Die einschlägige Doku hilft mir nicht weiter, und via google habe ich es nach der vierten Seite aufgegeben.
Funktioniert der speziellere Filter "*foo*.xls" generell nicht oder habe ich ihn irgendwie falsch formuliert?
Falls er nicht geht: Gibts Ideen für einen Workaround?
Ich scheue den Aufwand alle Dateien zu scannen und in einer Combobox o.Ä. aufzulisten (werden ziemlich viele werden).
Für genau sowas gibts ja schliesslich GetOpenFilename...
Lieben Dank im Voraus,
Thorsten

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: GetOpenFilename komplexe wildcards
13.06.2007 11:23:21
Thorlyn
Huhu...
Frage zu einfach? Zu schwer? Dumme Frage? ^^
Naja, hier eine (allerdings für mich unbefriedigende) Lösung:

Dim fd As FileDialog
Dim it As FileDialogSelectedItems
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.InitialFileName = "*100*.xls"
fd.ButtonName = "OkButton"
fd.AllowMultiSelect = False
fd.Title = "Open perform-export file"
If fd.Show = -1 Then
Set it = fd.SelectedItems
str = it.Item(1) 'Path and Filename
'MsgBox str 'debug
End If
Set fd = Nothing


Der Trick liegt darin dass FileDialog einen anfänglichen Dateinamen zulässt und ich so den Dialog dazu bekomme die Projektnummer zu suchen.
Das eigentliche Problem liegt aber in den Filtern.
Für diesen speziellen Fall reicht obige Lösung gerade eben aus, aber die eigentliche Frage betraf die Filter an sich.
Hat dazu noch jemand input?
Grüße und schönen Tag :)

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige