求救!在CAD的VBA中怎么调用EXCEL,并写入数据??

zzcctt · 发表于 2007-5-25 21:48:00

ihpumau2nj5.jpg

如上图所示:
目的就是为了将LISTBOX中的数据写在EXCEL中可以打印出来,
如果那位能够用函数直接调出系统的打印机,直接打印出 LISTBOX 中的数据那就更好了
谢谢

StartMe · 发表于 2007-5-26 00:22:00

论坛里这样的贴太多了，你搜一下试试。不用问人的。

zzcctt · 发表于 2007-5-26 09:03:00

谢谢楼上的,不过现在有了新的情况,运行到定义EXCEL这句时出现了定义类型错误,不知道是什么原因...请高手指点一下
On Error Resume Next
Dim Excel As Excel.Application
Dim ExcelSheet As Object
Dim ExcelWorkbook As Object
Set Excel = GetObject(, "Excel.Application")
If Err 0 Then
Set Excel = CreateObject("Excel.Application")
End If
Set ExcelWorkbook = Excel.Workbooks.Add
Set ExcelSheet = Excel.ActiveSheet

StartMe · 发表于 2007-5-26 23:37:00

未引用Excel类型库。看你语句的意思是不想引用，那就把As Excel.Application换成as object.

求救!在CAD的VBA中怎么调用EXCEL,并写入数据??

发表回复

精选推荐