如何通过 progID 获取 OLEObject？

【问题标题】：How do I get an OLEObject by progID?如何通过 progID 获取 OLEObject？
【发布时间】：2021-05-03 10:48:44
【问题描述】：

我可以通过OLEObject.progID 属性获得OLEObject 的progID。

引用为https://docs.microsoft.com/zh-tw/office/vba/api/excel.oleobject.progid

我怎样才能通过progID 获得OLEObject？

【问题讨论】：

您能否发布一些相关代码来说明您打算如何使用它？

标签： excel vba

【解决方案1】：

ProgId 的 OLEObject

遍历集合并在找到时退出循环。使用boolean 确定是否找到它。

Option Explicit

Sub testOLE()
    
    Dim ole As OLEObject
    Dim wasFound As Boolean
    
    For Each ole In Sheet1.OLEObjects
        If ole.progID = "Forms.CommandButton.1" Then
            wasFound = True
            Exit For
        End If
    Next ole
    
    If wasFound Then
        ' Continue to work with found object, e.g.:
        MsgBox "Found '" & ole.Name & ".", vbInformation, "Found"
    Else
        MsgBox "Could not find.", vbExclamation, "Not Found"
    End If
    
End Sub

【讨论】：