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

zzcctt

如上图所示:

目的就是为了将LISTBOX中的数据写在EXCEL中可以打印出来,

如果那位能够用函数直接调出系统的打印机,直接打印出 LISTBOX 中的数据那就更好了

谢谢

StartMe

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

zzcctt

谢谢楼上的,不过现在有了新的情况,运行到定义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

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