升级到2007 VBA后无法保存文件

我有一个我打电话来保存文件的子

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从Excel 2007对象模型中删除了FileSearch

有许多可能的替代品，如Dir和使用FileSystemObject

尝试这些链接：

• Mr Excel：FileSearch的replace类
• MSDN社区：Excel 2007中的Application.FileSearch
• Ozgrid论坛 – 替代FileSearch
• Ozgrid Forums – Excel 2007中的Application.FileSearchreplace
• Execl-IT.com：replace为FileSearch