高级功能研发区-发生冲突怎么处理?金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  发生冲突怎么处理?  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=94791)

--  作者：jinn
--  发布时间：2016/3/16 8:27:10
--  发生冲突怎么处理?
当weistock已存在或者已打开的时候
objexcel.ActiveWorkbook.SaveAs "e:\\weistock.xls"会出错中断，请问如何从处理

--  作者：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"，存在就删除，这样，你保存时就不会出问题了。

--  作者：jinn
--  发布时间：2016/3/16 10:19:32
--
非常感谢