Excel VBA如何访问工作表中粘贴的HTMLSelect1控件？

从网页粘贴到Excel的HTML控件（比如你提到的HTMLSelect1）属于OLE嵌入对象，不能直接通过工作表的成员属性访问，也无法直接将Shape对象转为HTMLSelect类型，需要通过OLEObject的Object属性获取底层的HTMLSelect实例。

方法1：通过控件名称访问 #

已知控件名称为HTMLSelect1时，可直接定位对应的OLE对象：

Sub AccessHTMLSelectByName()
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")
    
    Dim oleObj As OLEObject
    Set oleObj = ws.OLEObjects("HTMLSelect1") ' 通过名称获取OLE对象
    
    Dim htmlSelect As Object ' 采用后期绑定，无需额外引用库
    Set htmlSelect = oleObj.Object ' 获取底层HTMLSelect实例
    
    ' 示例：遍历并打印所有选项的文本和值
    Dim i As Integer
    For i = 0 To htmlSelect.Options.Length - 1
        Debug.Print htmlSelect.Options(i).Text, htmlSelect.Options(i).Value
    Next i
End Sub

方法2：通过Shape索引访问 #

仅知道控件是第5个Shape时，先确认其为OLE对象，再获取对应实例：

Sub AccessHTMLSelectByShapeIndex()
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")
    
    Dim shp As Shape
    Set shp = ws.Shapes(5)
    
    ' 验证该Shape为OLE控件对象
    If shp.Type = msoOLEControlObject Then
        Dim htmlSelect As Object
        Set htmlSelect = shp.OLEFormat.Object ' 通过OLEFormat获取底层对象
        
        ' 示例：打印当前选中项的值
        If htmlSelect.SelectedIndex <> -1 Then
            Debug.Print "当前选中项：" & htmlSelect.Value
        End If
    End If
End Sub

关键注意点 #

• 避免直接声明As HTMLSelect，Excel VBA默认未引用HTML相关库，用As Object后期绑定可规避引用缺失问题。
• 网页粘贴的HTML控件本质是嵌入的OLE对象，必须通过OLEObject.Object或Shape.OLEFormat.Object才能访问其原生属性与方法。

内容的提问来源于stack exchange，提问作者Paul Breen