【转帖】急！我的vb代码有什么问题！
 

急！我的vb代码有什么问题！
www.dimcax.com
急！我的vb代码有什么问题！
我想象cad那样get已打开的excel文档，或没有打开时就建个excel空文档.。
以下代码有什么问题或有其它方法达到这个目的吗？谢谢帮忙！
public excelapp as object ' excel.application
'on error resume next
set excelapp = getobject("microsoft excel")
if err then
err.clear
set excelapp = createobject("microsoft excel")
end if
excelapp.visible = true
on error resume next
set excel = getobject(, "excel.application")
if err then
err.clear
set excel = createobject("excel.application")
if err then
msgbox ("不能运行exceld")
exit sub
end if
end if
excel.visible = true