Question

excel表宏运行时错误1004方法SaveAs作用于对象_Workbook时失败

Answer 1

ActiveWorkbook.SaveAs
Filename:="d:\"
&
str2
&
"-"
&
str1
&
"-河南",
FileFormat:=xlExcel9795
'另存为Excel2003
连字符串用&,
excel2003不支持
xlWorkbookDefault
检查有没有那个文件夹，没有自己建

Answer 2

如果想把当前工作簿另存为123.xls（如保存到当前目录下）
thisworkbook.saveas
(thisworkbook.path
&
"\123.xls")
如果想把其他被当前宏打开的工作簿wk（工作簿的变量名）另存为123.xls（如保存到当前目录下）
wk.saveas
(thisworkbook.path
&
"\123.xls")