小哥哥请帮我拿到网页上的数据？小女子在此谢过了！

爱疯

Sub test()
    Dim url As String
    Dim x As Object
    Dim h As Object
    Dim A, i, ele

    A = Range("a1").CurrentRegion
    For i = 2 To UBound(A)
        url = "https://www.365area.com/hscode/detail/" & A(i, 1)
        Set x = CreateObject("MSXML2.XMLHTTP")
        Set h = CreateObject("htmlfile")
        x.Open "GET", url, False
        x.Send
        h.body.innerhtml = x.responsetext
        For Each ele In h.all
            If ele.className = "odd green" Then A(i, 2) = ele.NextSibling.innerText: Exit For
        Next
    Next
    [a1].Resize(i - 1, 2) = A
End Sub


除了这个商品代码，没别的测试，不知行不行

chxw68

呵呵，寻求帮助与小哥哥和小女子有什么关系？这样求助就排除了我等年长者跟香川群子等女侠。

EH_LOVE

没有反爬吧，附件

autolzg

EH_LOVE 发表于 2019-4-18 17:21
没有反爬吧，附件

最开始 我用CreateObject("MSXML2.XMLHTTP") 都是出错

后来用CreateObject("WinHttp.WinHttpRequest.5.1")又没问题

Rolly2019

chxw68 发表于 2019-4-18 17:03
呵呵，寻求帮助与小哥哥和小女子有什么关系？这样求助就排除了我等年长者跟香川群子等女侠。

谢您指教！谢谢！

Rolly2019

爱疯 发表于 2019-4-18 16:51
Sub test()
    Dim url As String
    Dim x As Object

代码运行不了？

Rolly2019

autolzg 发表于 2019-4-18 16:27
Sub t()
    For i = 2 To Cells(1048576, 1).End(3).Row
        Cells(i, 2) = Trim(Replace(Replace(G ...

可以耶！！我得好好学习学习！谢谢！

Rolly2019

duquancai 发表于 2019-4-18 16:35
反爬就是不让爬，如果你非要爬，那就叫反反爬

看不懂！看不懂！

duquancai

Rolly2019 发表于 2019-4-18 18:36
看不懂！看不懂！

楼上的小哥哥们都给小姐姐写了那么多代码了，小姐姐用楼上随便哪一个小哥哥的就行了。

Rolly2019

EH_LOVE 发表于 2019-4-18 17:21
没有反爬吧，附件

代码太高深，我不会编程，看不懂，

为什么运行后，在工作表中没有反应？