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