请问“CreateObject”和“GetObject"的区别是什么？？？

lsdongjh

看一下官方的说明吧

1. https://support.microsoft.com/en-us/help/288902/getobject-and-createobject-behavior-of-office-automation-servers

复制代码

anlycn

zhaogang1960 发表于 2012-2-17 18:35
分别打开和关闭Word后运行下面代码你就知道它们的区别是什么了：
Sub Macro1()
    Dim MyWord As Object ...

赵老师，能否把 这段“CreateObject的代码改成“GetObject  ，每次一运行别一个表就同时打开。。。
代码如下：
Private Sub CommandButton2_Click() 'VBA版VLOOKUP
Set wb = Application.Workbooks.Open("\\User-20200513ke\g\售后表格\退货登记表.xlsm")
   
    Set d = CreateObject("scripting.dictionary")
    With wb
        arr = .Sheets(1).[a1].CurrentRegion
        For i = 2 To UBound(arr)
            s = Trim(arr(i, 4)) '查找匹配表中的   匹配数据列
            d(s) = arr(i, 4) '查找匹配表中的   返回数据列
        Next
    End With
    brr = [a1].CurrentRegion
    For i = 3 To UBound(brr)
        s = Trim(brr(i, 12))  '返回结果表   匹配数据列
        brr(i, 38) = d(s)     '返回结果表   结果存储列
    Next
    [a1].CurrentRegion = brr
End Sub

cui26896

个人的理解：
  createobject用在字典和ADO的连接当中，
典型例句：
    Set d = CreateObject("Scripting.Dictionary")
    Set cnn = CreateObject("adodb.connection")
    Set rst = CreateObject("ADODB.RecordSet")
getobject用在连接工作簿而不显示的操作中
典型例句
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*.xls")
    With GetObject(p & f)
      br = .Sheets(1).UsedRange
      .Close 0
    End With
至于用在API或者其他高端的应用场合，晚辈不了解。