Return value
Integer. Returns 1 if it succeeds and -1 if an error occurs. If any argument's value is null, SaveAs returns null.
ingeger li_f
li_f=dw_1.saveas()
if li_<>1 then
messagebox('提示','保存失败')
else
messagebox('提示','文件成功保存至'+IS_PATH+“\AAA.xls”)
end if
其实保存后用FileExsits函数判断一下也是可以的。……