社区 › VB › getobject功能的讨论

兰州人 发表于 2007-7-29 15:09:00

getobject功能的讨论

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

兰州人 发表于 2007-7-29 15:11:00

getObject的语法表述
GetObject( [, class])
       
GetObject 函数的语法包含下面几个命名参数：
部分描述pathname可选的；Variant (String)。包含待检索对象的文件的全路径和名称。如果省略 pathname，则 class 是必需的。class可选的；Variant (String)。代表该对象的类的字符串。
其中，class
                参数的语法格式为 appname.objecttype，且语法的各个部分如下：
部分描述appname必需的；Variant (String)。提供该对象的应用程序名称。objecttype必需的；Variant (String)。待创建对象的类型或类。

兰州人 发表于 2007-7-29 15:15:00

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.Number0 Then
      Set xlApp = CreateObject("Excel.Application")
      xlApp.Visible = True
      xlApp.Workbooks.Add
    End If
    ' 返回当前活动的工作表
    Set xlSheet = xlApp.ActiveSheet

兰州人 发表于 2007-7-29 15:24:00

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

查看完整版本: getobject功能的讨论