Excel 获取HTMLText的值

Sub qd()

Dim ole As OLEObject

h = 1

'Sheets(2).Columns(1).Clear

For Each ole In Sheets(2).OLEObjects

  If (TypeName(ole.Object)) Like "*HTMLText*" Then

         Sheets(2).Cells(h, 5).Value = ole.Object.Value

         h = h + 1

  End If

Next

End Sub