網頁資料匯入到EXCEL表格中，求抓取代碼！還沒學到這些知識，求熱心朋友的幫助，先謝謝過！
副本地址：http://pan.baidu.com/s/1eRTNr94
采集網頁：http://www.17500.cn/pub/sjh.htm
uj5u.com熱心網友回復：
http://pan.baidu.com/s/1c2yZ1wk
Sub 匯入()
帶HTTP網址 = "http://www.17500.cn/pub/sjh.htm"
Dim XmlHttp As Object, stime, ntime
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", 帶HTTP網址, True
XmlHttp.send
stime = Now
While XmlHttp.ReadyState <> 4
DoEvents
ntime = Now
If DateDiff("s", stime, ntime) > 3 Then MsgBox "網路不太好。重試下": Exit Sub
Wend
獲取遠程網頁原始碼 = StrConv(XmlHttp.responseBody, vbUnicode)
Set XmlHttp = Nothing
開始位置 = InStr(獲取遠程網頁原始碼, "3D第") + 3
結束位置 = InStr(獲取遠程網頁原始碼, "期試機號")
期名 = Mid(獲取遠程網頁原始碼, 開始位置, 結束位置 - 開始位置)
開始位置 = InStr(獲取遠程網頁原始碼, "期試機號</div><font color=red><b>") + 29
結束位置 = InStr(獲取遠程網頁原始碼, "</b></font></a> <a href=https://bbs.csdn.net/pub/sjh.htm")
期數 = Mid(獲取遠程網頁原始碼, 開始位置, 結束位置 - 開始位置)
Cells(7, 8) = 期名
Cells(9, 7) = Mid(期數, 1, 1)
Cells(9, 8) = Mid(期數, 2, 1)
Cells(9, 9) = Mid(期數, 3, 1)
End Sub
uj5u.com熱心網友回復：
老師你好：這是我自己拼湊的一種方法，和您寫的到底那個好？我該用那個穩定啊。》謝謝！@
uj5u.com熱心網友回復：
Private Sub CommandButton1_Click()
Dim Ar$, Arr, url
url = "http://www.17500.cn/pub/sjh.htm" '鏈接
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", url, False '要抓取的鏈接
.send
Ar = StrConv(.responseBody, vbUnicode) '轉換格式
Ar = Left(Split(Ar, "3D第")(1), 39) '找到試機號資料
Arr = Split(Ar, "期試機號") '裝入陣列
' if ? like rigth(arr(0),3)=false then "當期試機號還沒有更新！"：end
Ar = Right(Arr(1), 3)
[g10:i10] = Array(Val(Left(Ar, 1)), Val(Mid(Ar, 2, 1)), Val(Right(Ar, 1))) '填充當期試機號！
Close
End With
End Sub
uj5u.com熱心網友回復：
看了下兩者差不多
2l估計是用易語言入門的
居然用中文當變數....
你后面那個能用也可以
填充到EXCEL表格就可以了.
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/68592.html
標籤：VBA