Hallo,
ich beschäftige mich erst seit wenigen Tagen mit vba und habe nun, nach ersten Erfolgen ;-), ein kleines Problem:
Wie im folgenden Code zu sehen ist, möchte ich .xls Dateien öffnen und bearbeiten.
Ausgangspunkt ist ein Ordner mit z.B 60 Dateien die in Gruppen geöffnet werden sollen.
Die Dateien sind nach folgendem Prinzip geordnet:
Name1-a.xls
Name1-b.xls
Name1-c.xls
Name2-a.xls
Name2-b.xls
usw.
Die Dateien der Gruppe "Name1" soll mit Name1-*.xls geöffnet werden.
Sub Datenverknüpfung()
Dim Odat As String
Dim TPname As String
Path = "C:\Users\"
TPname = "Name1-*.xls"
If Path = "" Then
Exit Sub
Else
Odat = Dir(Path & TPname)
Do While Len(Odat) "größer als" 0
Workbooks.Open Filename:=Path & TPname
' nun bearbeiten
Workbooks(TPname).Close
TPname = Dir()
Loop
End If
Bekomme als Ergebnis immer "C:\Users\Name1-*.xls" nicht gefunden.
Ist ein * im Dateinamen nicht möglich?
Danke!