查看单个帖子
旧 2009-04-19, 04:48 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 【转帖】[vba]cad vba访问excel出错!

[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
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)