Microsoft Excel

Herbers Excel/VBA-Archiv

Application.Filesearch | Herbers Excel-Forum


Betrifft: Application.Filesearch von: Rupert Föderler
Geschrieben am: 21.10.2008 10:23:33

Hallo Forum,

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

  

Betrifft: AW: Application.Filesearch von: Andi
Geschrieben am: 21.10.2008 10:38:06

Hi,

schau Dir mal die Dir-Funktion an.

Schönen Gruß,
Andi