Von 2000 zu 2007 - makros funktionieren nicht
20.04.2009 13:48:50
Sebastian
Ich habe ein sehr komplexes Makro, dass mir alle Dateien aus einem Verzeichnis auf einem Excel
Tabellenblatt listet. Das hat in VBE mit Excel 2000 wunderbar und ohne Probleme funktioniert.
Jetzt in Excel 2007 funktioniert diese Routine nicht mehr:
Das entscheidende ist, dass Excel die Zeile "With Application.FileSearch" mit folgendem Fehlertext eigentlich übergeht "Objekt unterstützt diese Akton nicht!". Das bekomme ich aber nur heraus, wenn ich den Code anhalte. Unten ist der Code. Wer kann mir Helfen? Wie muss ich die FileSearch geschichte jetzt programmieren, damit sie funktioniert?
With Application.FileSearch
.LookIn = Suchpfad ' Suchverzeichnis
.SearchSubFolders = True ' suchen auch in Unterverzeichnissen
.Filename = Dateiform ' Dateityp
If .Execute() > 0 Then ' Dateien im Verzeichnis vorhanden
' Sortiert nach letzter Änderung absteigend
' If .Execute(msoSortByLastModified, msoSortOrderDescending) > 0 Then
TotFiles = .FoundFiles.Count ' Anzahl der gefundenen Dateien
Application.StatusBar = "Total " & TotFiles & " gefunden"
For LoI = 1 To .FoundFiles.Count ' Schleife über alle gefundenen Dateien
Application.StatusBar = "Datei: " & LoI & " von " & TotFiles
StDateiname = Mid(.FoundFiles(LoI), InStrRev(.FoundFiles(LoI), "\") + 1)
' ergänzt Hyperlink, Dateigröße und Dateidatum
ActiveSheet.Hyperlinks.Add Anchor:=Cells(LoI, 1), _
Address:=.FoundFiles(LoI), TextToDisplay:=StDateiname ' Hyperlink
Cells(LoI, 2) = FileLen(.FoundFiles(LoI)) ' Dateigröße
Cells(LoI, 3) = FileDateTime(.FoundFiles(LoI)) ' Dateidatum
' ******
Next LoI
End If
End With