ich habe im einem Verzeichnis einige TXT-Dateien liegen.
Beispiel:
CAV_KK02_RL_1.txt
CAV_KK02_RL_2.txt
CAV_KK02_RL_3.txt
CAV_KK02_VL_1.txt
CAV_KK02_VL_2.txt
CAV_KK03_RL.txt
CAV_KK03_VL.txt
CAV_KK04_RL.txt
Diese kann ich mit dem Makro unten anzeigen und auswählen (einzeln oder mehrere). Soweit alles in Ordnung.
Const msoFileDialogFolderPicker = 4
Sub MultiFiles_Select()
Dim objExcel As Object
Dim intResult As Integer
Dim strPath As String
pfad = "D:\Daten\Produktion\Projekte\Caffamacherreihe HH\txt\"
Set objExcel = CreateObject("Excel.Application")
With objExcel.Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Filters.Add "Dateien", "*.txt"
.InitialFileName = pfad
.Title = "Dateiauswahl"
.ButtonName = "OK"
End With
intResult = objExcel.Application.FileDialog(msoFileDialogFilePicker).Show
If intResult 0 Then
For lngCount = 1 To objExcel.Application.FileDialog(msoFileDialogFilePicker). _
SelectedItems.Count
Debug.Print objExcel.Application.FileDialog(msoFileDialogFilePicker).SelectedItems( _
lngCount)
Next lngCount
End If
End Sub
Wie schaffe ich bitte nur die TXT-Dateien anzuzeigen, die hinten mit _1.txt enden, sowie alle TXT-Dateien anzeigen, die hinten vor der Dateiendung nicht mit _2 _3 usw. enden?Oben in der Nachricht die Dateien im Beispiel in Fett dargestellt, die angezeigt werden sollen.
Beste Grüße,
Sergej