返回对象的程序标识符。String 类型,只读。
expression.ProgId
expression 必需。该表达式返回“应用于”列表中的对象之一。
有关程序标识符的详细信息,请参阅 OLE 程序标识符。
本示例为第一张工作表中所有 OLE 对象创建程序标识符列表。
rw = 0
For Each o in Worksheets(1).OLEObjects
With Worksheets(2)
rw = rw + 1
.cells(rw, 1).Value = o.ProgId
End With
Next