[vba]cad vba访问excel出错!
www.dimcax.com
[vba]cad vba访问excel出错!
如下程序:
sub outex()
dim ex as excel.application
dim exworkbook as workbook
dim exsheet as worksheet
on error resume next
set ex = getobject(, "excel.application")
if err <> 0 then
err.clear
set ex = createobject("excel.application")
if err <> 0 then
err.clear
msgbox "建立excel应用出错!"
exit sub
end if
end if
set exworkbook = ex.workbooks.add
set exsheet = exworkbook.activesheet
ex.visible = true
end sub
执行到红色部分,出现以下错误:
运行时错误“91”:
对象变量或with块变量未设置
程序已经引用了microsoft excel 11.0 object library
大家帮忙解决以下呀!分析下什么问题?
autocad