Application.Filesearch
21.10.2008 10:23:33
Rupert
Ich habe da wieder mal ein Problem, aufgrund der Zeilenanzahl, werden wir in den nächsten Tagen von Excel 2003 auf Excel 2007 umsteigen, jetzt hab ich schon gelesen, das Application.Filesearch nicht mehr vorhanden ist in Excel 2007, muss aber ehrlich gestehen, das ich mir bei dem Suchen keine Lösung gefunden habe, deshalbe meine Frage, wie kann ich untenstehenden Code in Excel 2007 verwenden
Sub Öffnen_Details()
Application.ScreenUpdating = False
Set Datname = ActiveWorkbook
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
Dim iCounter As Integer
With Application.FileSearch
.LookIn = ThisWorkbook.Path & "\04-EXPENSES - BREAKDOWN (ANADATA)"
.SearchSubFolders = False
.Execute msoSortByFileType
.FileType = msoFileTypeExcelWorkbooks
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open Filename:= _
.FoundFiles(iCounter) _
, UpdateLinks:=0
Next iCounter
End With
Application.ScreenUpdating = True
End Sub
Wäre super wenn ihr mir Hilfestellung geben könntet.
Danke schon mal vorab
Rupert
Anzeige