vba - Excel 2007 VBA ActiveWorkbook SaveAs 未保存...运行时错误 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