Hallo
In einem Ordner habe ich mehrere .csv-Dateien mit leider kryptischen und langen Dateinamen, die aus einer anderen Anwendung stammen und die ich in eine Excel-Datei einlesen sollte. Im Netz habe ich einen Code für den Öffnen-Dialog gefunden, mit dem einige "Filterungen" eingestellt werden können.
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Filters.Add "CSV-Dateien", "*.csv", 1
.InitialFileName = pfad & "\Z*"
.InitialView = msoFileDialogViewDetails
If .Show Then
vntReturn = .SelectedItems(1)
Else
Exit Sub
End If
End With
Die Dateinamen sind aber leider so aufgebaut:
K73AC304428 0000000054 0000000038 2016-12-01 00-00-00 ANALYSIS02.csv
K73AC304428 0000000054 0000000038 2016-12-01 00-00-00 ANALYSIS03.csv
K73AC304428 0000000054 0000000038 2016-12-01 00-00-00 ANALYSIS05.csv
K73AC304428 0000000061 0000000038 2016-12-02 00-00-00 ANALYSIS02.csv
K73AC304428 0000000066 0000000038 2016-12-04 00-00-00 ANALYSIS02.csv
usw. und unterscheiden sich erst am Namensende.
Ich möchte, das nur die Dateien, die auf" ANALYSIS02.csv" enden, im ÖffnenDialog auswählbar sind bzw. angezeigt werden.
Wie muss die Zeile '.InitialFileName = pfad & "\Z*"' abgeändert werden, damit dies auch funktioniert. Mit meinen VBA Kenntnissen schaffe ich es leider nicht.
Vielen Dank für eure Hilfe.