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

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



如上图所示:
目的就是为了将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 Err0 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.
页: [1]
查看完整版本: 求救!在CAD的VBA中怎么调用EXCEL,并写入数据??