- 帖子
- 8
- 主題
- 0
- 精華
- 0
- 積分
- 13
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-5-2
- 最後登錄
- 2012-5-6
|
小弟提供另一個方式用xmlhttp來抓取, 然後在自己解析需要的資料
我之前是用在asp上, vba應該也是可以使用的
Function getHTTPPage(ByVal url As String)
Dim objXmlHttp As Object
objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.Open("GET", url, False)
objXmlHttp.setRequestHeader("Content-Type", "text/html")
objXmlHttp.setRequestHeader("charset", "BIG5")
objXmlHttp.Send()
getHTTPPage = BytesToBstr(objXmlHttp.ResponseBody, "BIG5")
End Function
Function BytesToBstr(ByVal body() As Byte, ByVal CSet As String)
Dim objStream As Object
objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Mode = 3
objStream.Open()
objStream.Write(body)
objStream.Position = 0
objStream.Type = 2
objStream.Charset = CSet
BytesToBstr = objStream.ReadText()
objStream.Close()
End Function |
|
發表於 2012-5-3 00:12
| 
