
下面的代码就可以:
Option ExplicitSub 批量获取网页内容()
Dim http, Pols, Arr, i, u
Set http = CreateObject("Microsoft.XMLHTTP")
i = 1
For Each u In Array("url1", "url2")
http.Open "POST", u, False
http.send ""
If http.Status = 200 Then
Cells(i, 1) = http.responseText
i = i + 1
End If
Next u
Set http = Nothing
End Sub
url1、url2就是你的网址,有多少写多少,每一个都要一http开头(然后是冒号和两个斜线)的完整地址。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)