|
给位大侠,VBA抓取网页时遇到问题,总是提示80070005,拒绝访问,不知道问什么,哪位给解答一下啊。万分感谢!
针对淘宝搜索页面进行抓取,代码如下,不知道是代码问题还是网页问题。
Private Sub CommandButton1_Click()
Dim httpRequest As MSXML2.XMLHTTP30
Dim txtContent As String, strTemp As String
Dim arr1() As String, arr2() As String
Dim i As Integer
strQuery = "https://s.taobao.com/search?q=软件"
Application.StatusBar = "正在获取数据..."
Set httpRequest = New MSXML2.XMLHTTP30
httpRequest.Open "GET", strQuery, False
httpRequest.setRequestHeader "Content-Type", "text/html"
httpRequest.send ""
If httpRequest.Status = 200 Then
txtContent = httpRequest.responseText
arr1 = Split(txtContent, "pid")
For i = 1 To UBound(arr1)
arr2 = Split(arr1(i), ":")
Cells(7, 1) = Mid(arr2(0), InStr(1, arr2(0), ":"), 5)
Next i
End If
httpRequest.abort
Set httpRequest = Nothing
Application.StatusBar = False
End Sub
|
|