getobject功能的讨论

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

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

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

getObject的语法表述
GetObject([pathname] [, class])

GetObject 函数的语法包含下面几个命名参数：
部分[/td]描述[/td]pathname可选的；Variant (String)。包含待检索对象的文件的全路径和名称。如果省略 pathname，则 class 是必需的。class可选的；Variant (String)。代表该对象的类的字符串。
其中，class
参数的语法格式为 appname.objecttype，且语法的各个部分如下：
部分[/td]描述[/td]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.Number  0 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功能的讨论

发表回复

精选推荐