CreateObject("MSXML2.XMLHTTP.3.0") 拒絕存取 80070005

小弟想用MSXML2.XMLHTTP.3.0 擷取 聚寶網的網路原始碼資料

程式碼如下:


Sub data()


Sheets("工作表1").Select

Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.ClearContents

REVENUE = "http://stock.wearn.com/income.asp?kind=3023"


Set HttpReq = CreateObject("MSXML2.XMLHTTP.3.0")
HttpReq.Open "GET", REVENUE, False
HttpReq.send
S = HttpReq.responseText

a = Split(S, Chr(10)) ' 切割下載的原始碼, 每列一切,


For j = 1 To 16

Sheets("股票營收淨利下載").Select


B = a(524 - 9 * (j - 1))
C = a(528 - 9 * (j - 1))
Cells(1, 1 + j) = Mid(B, VBA.InStr(1, B, ">") + 1, VBA.InStr(1, B, "&") - VBA.InStr(1, B, ">") - 1)
Cells(1, 17 + j) = Mid(C, VBA.InStr(1, C, ">") + 1, VBA.InStr(1, C, "%") - VBA.InStr(1, C, ">") - 1)
Cells(1, 33 + j) = Cells(1, 1 + j) * Cells(1, 17 + j) * 0.01


Next

End Sub


但是執行到HttpReq.send時跳出存取被拒的對話視窗

想請問程式哪裡有問題

謝謝