excel 2007 hatası

[serkanım]

Merhaba

Excell 2003 çalışan aşağıdaki kodlar 2007'de hata veriyor.Formda bir çok örnek var fakat bir türlü cevap bulamadım.Yardımlarınızı rica ederim.

With Application.FileSearch
.LookIn = sPath & "\malzemeler\"
.Filename = "*.*"
.Execute
If .Execute > 0 Then
test2 = .FoundFiles.Count
For i = 1 To .FoundFiles.Count

 

[Korhan Ayhan]

Merhaba,

Daha önce bir başka üyemizin sorusuna yanıt verirken aşağıdaki kodları kullanmıştım. Sizinde iişnize yarayabilir.

Sub Klasördeki_Dosyalara_Formül_Uygula()
    Dim Klasör As Object
    Set Klasör = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçiniz !", 1)
    [A2:B65536].ClearContents
    Liste (Klasör.Items.Item.Path)
    Alt_Liste (Klasör.Items.Item.Path)
    Set Klasör = Nothing
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Private Sub Liste(Yol As String)
    Dim Dosya As String, Hedef_Dosya As Workbook

    On Error Resume Next
    Dosya = Dir(Yol & "\*.xls")
    
    While Dosya <> ""
        Application.ScreenUpdating = False
        DoEvents
        Set Hedef_Dosya = Workbooks.Open(Yol & "\" & Dosya, False, False)
        Range("J13:J1000").Formula = "=J12+H13-I13"
        Hedef_Dosya.Close True
        Dosya = Dir
        Application.ScreenUpdating = True
    Wend
End Sub
 
Private Sub Alt_Liste(Yol As String)
    Dim Alt_Klasör As Object, Alt_Dosya As Object, Dosya As String, Hedef_Dosya As Workbook
    Set Alt_Klasör = CreateObject("Scripting.FileSystemObject").GetFolder(Yol).SubFolders
 
    On Error GoTo Devam
 
    For Each Alt_Dosya In Alt_Klasör
    Dosya = Dir(Alt_Dosya.Path & "\*.xls")
        While Dosya <> ""
            Application.ScreenUpdating = False
            DoEvents
            Set Hedef_Dosya = Workbooks.Open(Alt_Dosya & "\" & Dosya, False, False)
            Range("J13:J1000").Formula = "=J12+H13-I13"
            Hedef_Dosya.Close True
            Dosya = Dir
            Application.ScreenUpdating = True
        Wend
    Alt_Liste (Alt_Dosya.Path)
Devam:
    Next
    Set Alt_Klasör = Nothing
End Sub