我怎样才能得到OLEObject的progID？

Question

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

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

我怎样才能得到OLEObject的progID

Answer 1

OLEObject by ProgId

• 循环通过集合并在找到时退出循环。使用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