标题：发生冲突怎么处理?

1楼

jinn 发表于：2016/3/16 8:27:10

当weistock已存在或者已打开的时候

objexcel.ActiveWorkbook.SaveAs "e:\weistock.xls"会出错中断，请问如何从处理

2楼

guotx2010 发表于：2016/3/16 9:58:13

dim fso,f1

set fso = Createobject("scripting.filesystemobject")

if fso.fileexists("e:\weistock.xls") = then

Set f1 = fso.GetFile("e:\weistock.xls")

'删除文件。

f1.Delete

end if

'以上代码检测是否存在"e:\weistock.xls"，存在就删除，这样，你保存时就不会出问题了。

3楼

jinn 发表于：2016/3/16 10:19:32

非常感谢

共3 条记录, 每页显示 10 条, 页签: [1]