Dieser Code (aus Herber kopiert) funktioniert mit Excel 2003 bestens, doch bei Excel 2007 kommt der
Laufzeitfehler 445, Objekt unterstützt diese Aktion nicht
Sub SU_Innendienst_Obj_Meldungen()
Const strPfad As String = "C:\temp"
Dim i As Integer
Dim fs As FileSearch
ChDrive ("C:")
ChDir strPfad
Set fs = Application.FileSearch ' in 2003 ok, in 2007 Laufzeitfehler 445, Objekt unterstützt _
diese Aktion nicht
With fs
.FileType = msoFileTypeExcelWorkbooks
.LookIn = CurDir
.Execute
For i = 1 To .FoundFiles.Count
MsgBox Dir(.FoundFiles(i))
Next i
End With
End Sub
Bin dankbar für jede Unterstützung - brauche diese Funktion dringend
Danke
PeterE