Question

excel表宏运行时错误1004方法SaveAs作用于对象_Workbook时失败请假高手怎么修改

ActiveWorkbook.SaveAs FileName:="h:\拆分\" + str2 + "-" + str1 + "-河南", _
FileFormat:=xlWorkbookDefault, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Answer 1

1、文件名生成方法错误，可更改为："d:\拆分\" & str2 & "-" & str1 & "-河南"
2、FileFormat:=xlWorkbookDefault错误，默认的格式为FileFormat:=xlNormal。
3、H盘没有“拆分”文件夹会出现错误。
公式可更改为：
ActiveWorkbook.SaveAs Filename:="d:\拆分\" & str2 & "-" & str1 & "-河南", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
简化为：
ActiveWorkbook.SaveAs Filename:="d:\拆分\" & str2 & "-" & str1 & "-河南"

Answer 2

1、文件名生成方法错误，可更改为："d:\拆分\" & str2 & "-" & str1 & "-河南"
2、FileFormat:=xlWorkbookDefault错误，默认的格式为FileFormat:=xlNormal。
3、H盘没有“拆分”文件夹会出现错误。
公式可更改为：
ActiveWorkbook.SaveAs Filename:="d:\拆分\" & str2 & "-" & str1 & "-河南", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
简化为：
ActiveWorkbook.SaveAs Filename:="d:\拆分\" & str2 & "-" & str1 & "-河南"