Excel 2007 VBA ActiveWorkbook另存為不保存…運行時錯誤1004

Question

我讓Excel記錄了選擇“另存為”並應用特定位置和文件名的步驟，並產生了以下VBA代碼：

 ActiveWorkbook.SaveAs Filename:= _
    "H:\Documents\Data\Tasks\Transfer.xlsx" _
    , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

還嘗試將FileFormat設置為

FileFormat:=51

我還包括以下處理程序，但無論有沒有這些處理程序都無法使用：

On Error Resume Next
Application.DisplayAlerts = False

原始文件為.xls格式。

當我運行允許顯示警報的宏時，它將產生以下錯誤：

Run-time error '1004':
Method 'SaveAs' of object '_Workbook' failed

在我相信要使用Windows 8和新的網絡服務器之前，這種方法一直有效。 這樣會影響SaveAs嗎？

我想念什么？ 感謝您提供的任何提示。

Answer 1

嘗試這個

Application.ActiveWorkbook.SaveAs Filename:="H:\Documents\Data\Tasks\Transfer.xlsx", fileformat:=51