求助用VBA提取网页数据

Kaohsing

chentonny 发表于 2019-1-20 21:04
那个PYTHON就是加了SESSION和TOKEN，哪有什么PYTHON异步。其实不加SESSION和TOKEN也是可以取回数据的，只 ...

如果不加参数,时间久了就這様：



要不就回调，浪费时间，

chentonny

Kaohsing 发表于 2019-1-21 09:51
如果不加参数,时间久了就這様：

这跟异步是两回事吧

samsinn

本人VBA新手，向大佬们学习，这是我的代码

1. Sub 取网页信息()
   
2. Dim HTML, http As Object
   
3. Set HTML = CreateObject("htmlfile")
   
4. Set http = CreateObject("Msxml2.ServerXMLHTTP")
   
5. URL = "http://218.12.43.28:2018/pub/gongshi?pageindex="
   
6. m = 1
   
7. For I = 1 To 2
   
8.     http.Open "GET", URL & I, False
   
9.     http.send
   
10.     strHtml = http.responseText
    
11.     HTML.write strHtml
    
12.    
    
13.     If I = 1 Then
    
14.         Set thead = HTML.getElementsByTagName("thead")(0).getElementsByTagName("td")
    
15.         For Z = 1 To 15
    
16.             ActiveSheet.Cells(1, Z) = thead(Z - 1).innerText
    
17.         Next
    
18.     End If
    
19.    
    
20.     Set List = HTML.getElementById("list-pub")
    
21.     For Each el In List.Children
    
22.         m = m + 1
    
23.         For n = 1 To 15
    
24.         ActiveSheet.Cells(m, n) = el.Children(n - 1).innerText
    
25.         Next n
    
26.     Next
    
27.     HTML.Close
    
28. Next I
    
29. ActiveSheet.Columns("A:O").AutoFit
    
30. End Sub

复制代码