На Excel 2013 ВБА код неработает

[ABA2]

Добрый день!
Подскажите пожалуйста, как исправит код, каторый на Excel 2003 прекрасно работает, а на 2013 выбрасывает ошыбку.
*xls поменять на *xlsm непомогает.
ошыбка : With Application.FileSearch

Sub acctoXLS()
Dim wb As Workbook
Dim accPath As String
Dim accCount As Integer
    'Application.DisplayAlerts = False
      Application.ScreenUpdating = False
    accPath = "C:\Centas\"
    
    With Application.FileSearch
        .LookIn = accPath
        .filename = "*.acc"
        .Execute
        
        For accCount = 1 To .FoundFiles.Count
            Set wb = Application.Workbooks.Open(.FoundFiles(accCount))
            wb.SaveAs accPath & Left(wb.Name, Len(wb.Name) - 4) & ".xls", xlExcel7
            wb.Close
         Next
    End With
      Application.ScreenUpdating = True
End Sub

[AleksandrH]

ГУГЛ
подсказывает что проблема не только в 2013 vba

[EducatedFool]

решение простое: не использовать Application.FileSearch

что использовать для поиска файлов?
а вот что, например: http://excelvba.ru/code/FilenamesCollection

[ABA2]

Спасибо всем за падсказку: понел, што проблема в FileSearch.
Но никак невыходит подправит ВБА код: пастояно вылетает с ошыбкой...

[Virtuallab]

А если убрать With, расписав Application.FileSearch.LookIn = accPath, Application.FileSearch.filename = "*.acc" и т.д. по коду, то на какой операции будет материться?

[ABA2]

Сообщение от Virtuallab

А если убрать With, расписав Application.FileSearch.LookIn = accPath, Application.FileSearch.filename = "*.acc" и т.д. по коду, то на какой операции будет материться?

Материтса здес : For accCount = 1 To .FoundFiles.Count

[Virtuallab]

А в отладчике (окно Immediate)
? Application.FileSearch.FoundFiles.C ount
выдает больше нуля?

[Hugo121]

FileSearch убрали кажется уже в 2007

[Virtuallab]

Спасибо за инфу, Hugo121!
Посмотрел на http://www.planetaexcel.ru/forum/ind...FID=8&TID=3176 и увидел,что я отстал от жизни на 7 лет, как минимум.

[ABA2]

Непалучаетса- с поиском бсё ясно, но как заставит *acc файл переделать в *xlsm ?
Помогите, пожалуйста.