1. 首頁
  2. 問答
  3. 無法保存升級後的文件到2007年VBA

無法保存升級後的文件到2007年VBA

2013-05-09 85 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

回答

相關問題

 相關問題