Невозможно сохранить файл после обновления до 2007 VBA

Question

У меня есть саб, который я называю, чтобы сохранить файл

Sub SaveToFile() 

    maxr = Worksheets("List").Range("H1") 

    Worksheets("List").Range("G1:AE" & maxr).Copy 

часть кода, который неисправного после обновления до 2007 г.:

With Application.FileSearch 
     .LookIn = "Q:\Planning Tools\Reports\" 
     .Filename = "Plan_" & ThisSaveTime & ".xls" 

Я получаю сообщение об ошибке выполнения «445» объект не поддерживает это действие, код затем продолжается ниже:

 If .Execute > 0 Then 'Existing Workbook 
      Application.Workbooks.Open ("Q:\Planning Tools\Reports\Plan_" & ThisSaveTime & ".xls") 
      ActiveWorkbook.Worksheets.Add 
      ActiveWorkbook.Sheets("Sheet1").Select 
      ActiveWorkbook.Sheets("Sheet1").Name = ThisPlanSaveName 
     Else 'No existing Workbook, so add one 
      Workbooks.Add 1 
      ActiveWorkbook.Sheets("Sheet1").Select 
      ActiveWorkbook.Sheets("Sheet1").Name = ThisPlanSaveName 
     End If 
    End With 

    ...... 

End Sub 

Я не уверен, какие действия не удается, но может ли кто-нибудь понять, почему?

Благодаря

Answer 1

Microsoft удалила FileSearch из объектной модели Excel 2007

Есть много возможных замен, как Dir и используя FileSystemObject

попробуйте эти ссылки:

• Mr Excel: Replacement class for FileSearch
• MSDN Communities: Application.FileSearch in Excel 2007
• Ozgrid Forums - Rplacement for FileSearch
• Ozgrid Forums - Application.FileSearch Replacement in Excel 2007
• Execl-IT.com: Replacement for FileSearch