VBA提取网页数据的四种方法

不看不看

改改

Private Sub CommandButton4_Click()
Dim doc As Object
Dim txt1 As String
Dim i As Integer
Dim n&, m$
    WebBrowser1.Navigate "http://www.excelpx.com/index.asp"
    Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
        DoEvents
    Loop
    Set doc = WebBrowser1.Document
    k = 1
    On Error Resume Next
   
    ReDim arr(1 To doc.all.Length, 0)
    For i = 1 To doc.all.Length
        txt1 = doc.all.Item(i).FirstChild.innerText
        If m <> txt1 Then
            n = n + 1
            Cells(n, 1) = txt1
            m = txt1
        End If
    Next i
    WebBrowser1.Navigate "about:blank"
End Sub

zldccmx

让老朽也来学习一下

wilson2000

KK

tayoo

学习一下

gszhiyong

学习了学习了

嘿嘿

eason_wukun

一直在找寻中，谢谢！

chinahywm

[em05][em05][em05][em05][em06][em06]

走进EXCEL

学习

xiaolingge

应该非常有用

stmeng

thankyou[em07]