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

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

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

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

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

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

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

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

未引用Excel类型库。看你语句的意思是不想引用，那就把<font color="#ff0000">As Excel.Application</font>换成as object.
页: [1]
查看完整版本: 求救!在CAD的VBA中怎么调用EXCEL,并写入数据??