Immerhin habe ich das Makro schon dazu bewegen können mit
Application.Dialogs(xlDialogOpen).Show
das Öffnen-Fenster anzeigen zu lassen. Freilich erscheint so nur die Standard-Vorauswahl.
Wenn ich nun bei "Dateiname:" a* eintippe, werden nur noch die mit a beginnenden Dateien angezeigt, und wähle ich bei "Dateityp:" die Kategorie "Textdateien" aus, erscheinen im Auswahlfenster nur noch die Datei, welche auf .txt, .prn und .csv enden.
Wie bekomme ich es hin, dass das Makro von alleine eine solche vordefinierte Vorauswahl anzeigt?
Office - Word, Excel und Co. 9.753 Themen, 41.598 Beiträge
Hi
Versuche es mal mit
FileToOpen = Application.GetOpenFilename("Text Datei (*.txt), *.txt, CSV-Datei (*.csv), *.csv")
If FileToOpen False Then
MsgBox "Open " & FileToOpen
End If
Du kannst beliebige Dateien eingeben nach folgendem Schema: "1.Name, 1.Suchmaske, 2.Name, 2.Suchmaske....."
Du kannst auch Variable Suchfunktionen eingeben mit "TextDatei (mit a... .txt), a*.txt"
oder du kannst natürlich auch eine Zelle auslesen, und als begin ausgeben.
Bye
Disk