Excel 2007 VBA ActiveWorkbook SaveAs未保存…运行时错误1004

Excel中logging了select“另存为”并应用特定位置和文件名的步骤，并生成此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格式。

当我运行macros允许显示警报，它会产生这个错误：

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

这工作，直到我相信去工作的Windows 8和一个新的networking服务器。 可以这样的事情影响另存为？

我错过了什么？ 感谢您可能有的任何提示。

Answer 1

尝试这个

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