getobject功能的讨论

兰州人

在AutoCAD调用excel和access时,都涉及到getObject这个功能函数,在网上找了一下,没有相关的专题文章,在此对这个GetObject进行总结.

兰州人

getObject的语法表述

GetObject([pathname] [, class])

GetObject 函数的语法包含下面几个命名参数：

部分	描述
pathname	可选的；Variant (String)。包含待检索对象的文件的全路径和名称。如果省略 pathname，则 class 是必需的。
class	可选的；Variant (String)。代表该对象的类的字符串。

其中，class 参数的语法格式为 appname.objecttype，且语法的各个部分如下：

部分	描述
appname	必需的；Variant (String)。提供该对象的应用程序名称。
objecttype	必需的；Variant (String)。待创建对象的类型或类。

兰州人

Autocad调用Excel时,其经典语句组合是

   Dim xlApp As Object　　' This Line ,Not set Excel , run Excel
    '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

兰州人

VB调用Autocad的经典组合

On Error Resume Next
Set obj_Acad = GetObject(, "autocad.application.16")
If Err Then
   Err.Clear
   On Error Resume Next
   Set obj_Acad = CreateObject("autocad.application.16")
   If Err Then
      Err.Clear
      MsgBox "不能运行AutoCAD,请检查是否安装！", vbOKOnly, "警告！"
      Exit Sub
      End If
End If