1. 首页
  2. 问答
  3. 无法保存升级后的文件到2007年VBA

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

2013-05-09 76 views
0

我有我打电话给一个文件保存无法保存升级后的文件到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

我不确定哪个动作失败，但任何人都可以看到为什么？

感谢

来源

2013-05-09 CR41G14

回答

相关问题

 相关问题