Hallo liebe Freunde,
unten stehender Teil eines Makro lief unter Excel 2003.
Läuft leider nicht mehr unter Excel 2007.
Könnte sich jemand erbarmen mir zu helfen?
Es gibt viel Info über "filesearch", aber ich konnte es bisher nicht umsetzen!
LG Franz
Dim filename As String
DateiName = dir("r:\protokolle\Datenbank\" & lstrInputName & "\" & Jahr & "\")
Do While filename ungleich ""
If ThisWorkbook.Name ungleich DateiName Then
Workbooks.Open filename:="r:\Datenbank\" & lstrInputName & "\" & Jahr & "\
Protokoll*.xls"
Workbooks(filename).Close
End If
DateiName = dir
Loop
'End Sub
With Application.FileSearch
.LookIn = "r:\protokolle\Datenbank\" & lstrInputName & "\" & Jahr & "\"
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.filename = "Protokoll*.txt"
If .Execute() größer 0 Then
For i = 1 To .foundFiles.Count
A = .foundFiles(i)
B = "r:\protokolle\Datenbank\" & lstrInputName & "\" & Jahr & "\" & "Protokoll" & "\" & "Protokoll" & " " & lstrInputName & " " & Jahr & " " & TestOriginal & ".txt"
Name A As B
Next i
Else
MsgBox "Datei -- Protokoll*.txt -- n i c h t vorgefunden!"
End If
End With