Excel 2007 VBA ActiveWorkbook另存为未保存..运行时错误1004

Question

我让Excel记录了选择"另存为"和应用特定位置和文件名的步骤，它生成了以下VBA代码：

 ActiveWorkbook.SaveAs Filename:= _
    "H:DocumentsDataTasksTransfer.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

这曾经是有效的，直到我相信去Windows8和一个新的网络服务器工作。类似的事情会影响SaveAs吗？

我错过了什么？谢谢你提供的任何建议。

Answer 1

试试这个

Application.ActiveWorkbook.SaveAs Filename:="H:DocumentsDataTasksTransfer.xlsx", fileformat:=51