[求助]：VBA调用EXCEL问题！

macula55 · 发表于 2005-12-11 10:53:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有一个调用Excel的过程如下：

sub  eee()
  On Error Resume Next

  dim ex as Object
  dim sheet as object

  set ex = GetOjbect(, "Excel.Application")
  if Err <> 0 then
set ex = CreateObject("Excel.Application")
Err.claer
  end if

  ex.WorkSheets("Sheet1").Activate[/COLOR]

end sub

系统使用AutoCAD 2002、Excel 2003 sp2

过程执行到ex.WorkSheets("Sheet1").Activate一句时总是提示"对象变量或With块变量未设置[/COLOR]"的错误，检查之后发现ex并未获得Excel的引用不知道为什么！

请大家帮帮忙找找原因和解决方法！

yinzhiw · 发表于 2005-12-14 10:15:45

你要看你的excel 默认有没有Sheet1吧

zhqchn · 发表于 2005-12-18 19:48:59

程序没有问题啊

GetOjbect------GetObject

hzw27 · 发表于 2006-5-30 20:18:53

我是去年八月份下载的CadAssis，很好用，我是搞自来水管线的GIS，非常感谢楼主。现在为更能适合自己的工作需要，想请教把CAD中的点号导入EXCEL用的是那个命令，是GetSring还是GetText还是别的，谢谢！？

fcoqs · 发表于 2006-6-4 10:50:17

能不能讲个详细的教程呀。

atm2000 · 发表于 2006-6-4 20:34:42

你是否在工程——引用里引用EXCEL的库

黄玉宏 · 发表于 2006-6-7 13:38:38

你将ex.WorkSheets("Sheet1").Activate修改成如下代码试试
With ex.ActiveWorkbook.Worksheets("Sheet1")
……你的过程
End With
ex.Workbooks.Close
ex.Quit
ThisDrawing.Application.Update
End Sub

说明：在Excel中Activate方法是工作表由非活动状态转换到活动状态时才会触发的事件。
黄玉宏　二○○六年六月七日

账号		自动登录	找回密码
密码			立即注册

[求助]：VBA调用EXCEL问题！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子