access vba中CREATEOBJECT 和getobject的区别

来源:互联网 发布:二维任意点旋转矩阵 编辑:程序博客网 时间:2024/06/01 09:54

我前几天不是搞了个按钮要将报表输出到excel中么,

其中有行代码是需要打开excel这个程序的,

但是总是遇到问题,

运行到这里(Set xlApp = GetObject(, "Excel.Application") )就不行了,

后来我将代码改成------Set xlApp = CreateObject("Excel.Application")------居然就运行成功了,

这让我很奇怪,到底这个GetObject和这个CreateObject到底有什么区别,

于是我在百度上查------CREATEOBJECT 和getobject的区别

查到如下代码:

分别打开和关闭Word后运行下面代码你就知道它们的区别是什么了:
Sub Macro1()
    Dim MyWord As Object
    On Error Resume Next
    Set MyWord = GetObject(, "word.application")
    If Not MyWord Is Nothing Then
'        MyWord.Visible = True
        MsgBox "word已经打开"
    Else
        If MsgBox("word没有打开,是否开启?", vbYesNo) = vbYes Then
            Set MyWord = CreateObject("Word.Application")
            MyWord.Visible = True
        End If
    End If
End Sub

我的理解是,如果程序打开了,那么直接可以引用程序GetObject,

如果excel程序没有打开的话,就直接打开,这个时候需要用CreateObject函数.

原创粉丝点击