[原创]Autocad调用excel涉及到的版本引用问题

兰州人

在AutoCAD中要调用Excel程序，必须引用MicroSoft Excell X.0 Library

 excel 2000  MicroSoft Excell 9.0 Library

 excel 2003  MicroSoft Excell 11.0 Library

在不同机器上使用，会出现问题

解决方法，Dim xlApp As Excel.Application

      改为：Dim xlApp As Object

     以下语句在不需引用MicroSoft Excell X.0 Library，测试通过OK

Sub AcadToExcel()
    Dim iPt(0 To 2) As Double
    Dim xlApp As Excel.Application
    Dim xlSheet As Object
   
   
    ' 发生错误时跳到下一个语句继续执行
    On Error Resume Next
    ' 连接Excel应用程序
    Set xlApp = GetObject(, "Excel.Application")
   
    If Err.Number <> 0 Then
        Set xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True
        xlApp.Workbooks.Add
    End If

    ' 返回当前活动的工作表
    Set xlSheet = xlApp.ActiveSheet
   
   
    ' 释放对象
    Set xlSheet = Nothing
    Set xlApp = Nothing

End Sub

引用 excel 2000  MicroSoft Excell X.0 Library

Dim xlApp As Excel.Application

本地窗口

表达式    值         类型

xlApp    Nothing    Application

Dim xlApp As Object

本地窗口

表达式    值         类型

xlApp    Nothing    Object

兰州人

做成功能函数的方法

Function xlSheet() As Object

    Dim xlApp As Object
    'Dim xlsheet As Object    
    
    ' 发生错误时跳到下一个语句继续执行
    On Error Resume Next
    ' 连接Excel应用程序
    Set xlApp = GetObject(, "Excel.Application")
   
    If Err.Number <> 0 Then
        Set xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True
        xlApp.Workbooks.Add
    End If

    ' 返回当前活动的工作表
    Set xlSheet = xlApp.ActiveSheet   
End Function

调用

Sub lls()
  xlSheet.cells(1, 5).Value = "aa1"
End Sub

在程序中调用相当简单,只要一条指令搞定,Ok

天龙八部

不错,是CAD与EXCEL连接的一个方法