我让 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 吗?
我错过了什么?感谢您提供的任何提示。
最佳答案
尝试这个
Application.ActiveWorkbook.SaveAs Filename:="H:\Documents\Data\Tasks\Transfer.xlsx", fileformat:=51
关于vba - Excel 2007 VBA ActiveWorkbook SaveAs 未保存...运行时错误 1004,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/29437776/