Makro:Einzulesende Dateien filtern
11.06.2015 17:37:06
Paul
Bisher hab ich folgendes:
Sub Indizierungsdateien_importieren()
Dim dateien, i
Dim wkb As Workbook
dateien = Application.GetOpenFilename _
(MultiSelect:=True)
If IsArray(dateien) Then
For i = 1 To UBound(dateien)
Workbooks.Open dateien(i), local:=True
Set wkb = ActiveWorkbook
With ThisWorkbook
ActiveSheet.UsedRange.Copy
.Sheets.Add After:=.Sheets(.Sheets.Count)
.Sheets(.Sheets.Count).Name = wkb.Name
.Sheets(wkb.Name).Range("A1").PasteSpecial
End With
Application.CutCopyMode = False
wkb.Close False
Next i
End If
End Sub
Das funktioniert bisher auch super. Allerdings brauch ich nicht alle Dateien aus dem Ordner sondern nur die Dateien die am Ende ihres Namens "_mean" haben. Gibt es eine Möglichkeit einen Filter zu setzen und nur die gewünschten Dateien anzuzeigen?
Anzeige