- 帖子
- 25
- 主題
- 2
- 精華
- 0
- 積分
- 77
- 點名
- 61
- 作業系統
- win10
- 軟體版本
- office2013
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 高雄
- 註冊時間
- 2017-11-19
- 最後登錄
- 2018-4-25
|
最近集保網站改版，因此寫了此程式，但只是粗略地把資料抓下來，沒有多加整理
若有幫助到您，希望您在下方留個言讓我知道喔:loveliness:
個人不太喜歡IE法，所以用的是WinHttpRequest，速度快很多- Sub test()
- Cells.Clear
- Dim myXML As Object
- Set myXML = CreateObject("WinHttp.WinHttpRequest.5.1")
- Dim myHTML As Object
- Set myHTML = CreateObject("HTMLFile")
- With myXML
- .Open "POST", "https://www.tdcc.com.tw/smWeb/QryStockAjax.do", False '先抓取日期
- .setRequestHeader "Content-type", "application/x-www-form-urlencoded;charset=UTF-8"
- .send "REQ_OPR=qrySelScaDates"
-
- myText = .responseText
- myText1 = Split(myText, ",")
- k = 1
- For Each myText2 In myText1
- Cells(1, k) = Replace(myText2, Chr(34), "")
- Cells(1, k) = Replace(Cells(1, k), "[", "")
- Cells(1, k) = Replace(Cells(1, k), "]", "")
- k = k + 1
- Next
-
- i = 6
-
- For Each myDate In Range("A1:BH1").Value
-
- .Open "POST", "https://www.tdcc.com.tw/smWeb/QryStockAjax.do", False '代入日期撈資料
- .setRequestHeader "Content-type", "application/x-www-form-urlencoded"
- .send "scaDates=" & myDate & "&scaDate=" & myDate & "&SqlMethod=StockNo&StockNo=2330&StockName=&REQ_OPR=SELECT&clkStockNo=2330&clkStockName="
-
- myHTML.body.innerHTML = .responseText
-
- Set myTable = myHTML.getElementsByTagName("table")(7)
-
- For Each myRow In myTable.Rows
- j = 1
- For Each myCell In myRow.Cells
- Cells(i, j) = myCell.innerText
- j = j + 1
- Next
- i = i + 1
- Next
- i = i + 5
- L = L + 1
- If L > 10 Then Exit For '要抓幾筆資料
- Next
-
- End With
- Set myXML = Nothing
- Set myHTML = Nothing
- End Sub
|
|
發表於 2018-3-27 11:21
| 
