Ich möchte per Dialogbox Dateien einlesen die folgende Namen haben: V_Bom_V00_All.xls V_Bom_V01_All.xls ...usw.
Außerdem liegen im gleichen Verzeichnis noch zahlreiche andere Excel Dateien. Habe nun folgenden Quellcode verfasst, der auch funktioniert!
Sub DialogDateiOeffnenMehrereDateien()
Dim xlDateiName As Variant
Dim i As Integer
Dim msg
xlDateiName = Application.GetOpenFilename( _
FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", _
Title:="Eine oder mehrere Datei(en) zum Öffnen auswählen", _
MultiSelect:=True)
If TypeName(xlDateiName) = "Boolean" Then Exit Sub
For i = LBound(xlDateiName) To UBound(xlDateiName)
msg = msg & i & ". Datei: " & xlDateiName(i) & vbCrLf
Workbooks.Open xlDateiName(i)
Next i
MsgBox msg, Title:="Ausgewählte Datei(en)..."
Ich möchte aber nun, dass er mir nur die Dateien der Sruktur V_Bom_V0*_All.xls ausgibt (S.o.)
Wer weiß da Rat ???
Grüsse Volker