如题
參考答案:你在网上搜索
webBrower控件
有VB的用法
和VBA一样的
Private Sub web_DocumentComplete(ByVal pdisp As Object, url As Variant)
Application.ScreenUpdating = False
Set doc = Web.Document
Dim tex As String
Dim su(1 To 1000, 0)
For Each i In doc.All
Debug.Print TypeName(i) '写类型备查
k = k + 1
' Sheets("temp").Cells(65536, 1).End(xlUp).Offset(1, 0).Value = i.innerText
' Sheets("temp").Cells(65536, 1).End(xlUp).Offset(1, 1).Value = TypeName(i)
' If Not k = 1 Then su(k, 0) = su(k - 1, 0) & vbclrf & i.innerText
tex = tex & vbclrf & i.innerText
If TypeName(i) Like "HTMLHtmlElement" Then MsgBox k: Exit For
Next