返回列表 上一主題 發帖

[發問] 上市個股日成交資訊下載改版建議

prin.huang

帖子
44 
主題
4 
精華
0 
積分
84 
點名
0  
作業系統
winxp 
軟體版本
sp2 
閱讀權限
20 
性別
男 
註冊時間
2016-10-12 
最後登錄
2021-11-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-5-23 21:46 | 顯示全部帖子

[發問] 上市個股日成交資訊下載改版建議

原先參考站上資料使用msxml2.xmlhttp寫了下載上市股票日成交資訊的巨集，沒想到才用兩天，今天突然不能使用了，原來TWSE又改版了，查了半天msxml2.xmlhttp好像沒辦法抓動態產生的表格資料，想修改巨集，卻不知該用什麼方式，不知是否有建議的工具？
附上原先的巨集供參 上市証卷日成交.rar (59.21 KB) 考
收藏 分享

prin.huang

帖子
44 
主題
4 
精華
0 
積分
84 
點名
0  
作業系統
winxp 
軟體版本
sp2 
閱讀權限
20 
性別
男 
註冊時間
2016-10-12 
最後登錄
2021-11-10 
2#
發表於 2017-5-24 21:17 | 顯示全部帖子
本帖最後由 prin.huang 於 2017-5-24 21:24 編輯
改為json格式，或是下載csv檔，原本的網頁下載也行
joey0415 發表於 2017-5-24 11:25


J大，這兩個網址從原先的網頁代碼能看出來嗎？
巨集內還有一段下載個股日成交資訊，還有我也想從櫃買中心下載上櫃資料，
也面臨相同問題


上市個股日成交資訊
http://www.tse.com.tw/zh/page/trading/exchange/STOCK_DAY.html
上櫃每日收盤網址
上櫃個股日成交網址

TOP

prin.huang

帖子
44 
主題
4 
精華
0 
積分
84 
點名
0  
作業系統
winxp 
軟體版本
sp2 
閱讀權限
20 
性別
男 
註冊時間
2016-10-12 
最後登錄
2021-11-10 
3#
發表於 2017-5-24 21:55 | 顯示全部帖子
回復 15# joey0415
太感謝了，J大
還有一個網址，能幫忙看看嗎？
http://www.tse.com.tw/zh/page/trading/exchange/STOCK_DAY.html

ps. 若要像您一樣能看得出抓取網址，是要能看懂java嗎？

TOP

prin.huang

帖子
44 
主題
4 
精華
0 
積分
84 
點名
0  
作業系統
winxp 
軟體版本
sp2 
閱讀權限
20 
性別
男 
註冊時間
2016-10-12 
最後登錄
2021-11-10 
4#
發表於 2017-5-26 10:43 | 顯示全部帖子
回復 19# jsleee

我找到的方法是網頁上有download html網頁的按鈕，
按下去新開的網頁網址就是了，
硬是看了半天網頁程式碼，才發現原來按一下就有結果了

TOP

prin.huang

帖子
44 
主題
4 
精華
0 
積分
84 
點名
0  
作業系統
winxp 
軟體版本
sp2 
閱讀權限
20 
性別
男 
註冊時間
2016-10-12 
最後登錄
2021-11-10 
5#
發表於 2017-6-10 11:45 | 顯示全部帖子
回復 27# jsleee
自己寫的function給你參考，會回傳一個string陣列
  1. Private Function GetWebTb1(sURL00$, nTT00%, nRR00%, nCC00%, bRd00 As Boolean)
  2. '===sURL00      為擷取網址
  3. '===nTT00       為讀取第幾個Table(從1開始)
  4. '===nRR00       該Table由第幾列開始讀取(從1開始)
  5. '===nCC00       該Table由第幾欄開始讀取(從1開始)
  6. '===bRd00       該資料是否輸出
  7. Dim nR00%, nC00%, sTemp() As String, oXml As Object, oDoc As Object, oE As Object, tt As Date
  8.     Set oXml = CreateObject("MSXML2.XMLHTTP.6.0")
  9.     Set oDoc = CreateObject("HTMLFile")
  10.     bRd00 = True
  11. rSend:
  12.     tt = Now() + TimeValue("0:00:20")
  13.     With oXml
  14.         .Open "Get", sURL00, True
  15.         .setRequestHeader "Content-type", "application/x-www-form-urlencoded"
  16.         .send
  17.         On Error Resume Next
  18.         Do While .ReadyState <> 4 Or .Status <> 200
  19.             DoEvents
  20.             If Now > tt Then GoTo rSend
  21.         Loop
  22.         On Error GoTo 0
  23.         oDoc.write .responseText
  24.     End With
  25.     If oDoc.all.tags("Table")(nTT00 - 1) Is Nothing Then bRd00 = False: GoTo Err1
  26.     Set oE = oDoc.all.tags("Table")(nTT00 - 1)
  27.     With oE
  28.         ReDim sTemp(.Rows.Length - nRR00, .Rows(nRR00 - 1).Cells.Length - nCC00)
  29.         For nR00 = 0 To .Rows.Length - nRR00
  30.             For nC00 = 0 To .Rows(nR00 + nRR00 - 1).Cells.Length - nCC00
  31.                 sTemp(nR00, nC00) = .Rows(nR00 + nRR00 - 1).Cells(nC00 + nCC00 - 1).innerText
  32.             Next nC00
  33.         Next nR00
  34.     End With
  35. Err1:
  36.     GetWebTb1 = sTemp
  37.     oXml.abort
  38.     oDoc.Close
  39.     Set oXml = Nothing
  40.     Set oDoc = Nothing
  41.     Set oE = Nothing
  42. End Function
複製代碼

TOP

prin.huang

帖子
44 
主題
4 
精華
0 
積分
84 
點名
0  
作業系統
winxp 
軟體版本
sp2 
閱讀權限
20 
性別
男 
註冊時間
2016-10-12 
最後登錄
2021-11-10 
6#
發表於 2017-6-11 22:49 | 顯示全部帖子
回復 29# jsleee
假設要抓http://www.twse.com.tw/exchangeReport/MI_INDEX?response=html&date=20170609&type=MS
這網頁的第一個表，從第二列開始抓
(因程式判斷欄位矩陣宣告靠要抓取的第一列有幾個欄位, 若要從第一列開始抓, 你自己要再改一下)
寫一段程式給function需要的資訊，再把function傳回的資料，輸出到excel活頁表，參考如下
  1. Sub main()
  2. Dim URL$, VV As Boolean, AB() As String

  4. URL = "http://www.twse.com.tw/exchangeReport/MI_INDEX?response=html&date=20170609&type=MS"
  5. AB = GetWebTb1(URL, 1, 2, 1, VV)
  6. If VV = True Then ActiveSheet.Range("A1:E63") = AB

  8. End Sub

  10. Private Function GetWebTb1(sURL00$, nTT00%, nRR00%, nCC00%, bRd00 As Boolean)
  11. '===sURL00      為擷取網址
  12. '===nTT00       為讀取第幾個Table(從1開始)
  13. '===nRR00       該Table由第幾列開始讀取(從1開始)
  14. '===nCC00       該Table由第幾欄開始讀取(從1開始)
  15. '===bRd00       該資料是否輸出
  16. Dim nR00%, nC00%, sTemp() As String, oXml As Object, oDoc As Object, oE As Object, tt As Date
  17.     Set oXml = CreateObject("MSXML2.XMLHTTP.6.0")
  18.     Set oDoc = CreateObject("HTMLFile")
  19.     bRd00 = True
  20. rSend:
  21.     tt = Now() + TimeValue("0:00:20")
  22.     With oXml
  23.         .Open "Get", sURL00, True
  24.         .setRequestHeader "Content-type", "application/x-www-form-urlencoded"
  25.         .send
  26.         On Error Resume Next
  27.         Do While .ReadyState <> 4 Or .Status <> 200
  28.             DoEvents
  29.             If Now > tt Then GoTo rSend
  30.         Loop
  31.         On Error GoTo 0
  32.         oDoc.write .responseText
  33.     End With
  34.     If oDoc.all.tags("Table")(nTT00 - 1) Is Nothing Then bRd00 = False: GoTo Err1
  35.     Set oE = oDoc.all.tags("Table")(nTT00 - 1)
  36.     With oE
  37.         ReDim sTemp(.Rows.Length - nRR00, .Rows(nRR00 - 1).Cells.Length - nCC00)
  38.         For nR00 = 0 To .Rows.Length - nRR00
  39.             For nC00 = 0 To .Rows(nR00 + nRR00 - 1).Cells.Length - nCC00
  40.                 sTemp(nR00, nC00) = .Rows(nR00 + nRR00 - 1).Cells(nC00 + nCC00 - 1).innerText
  41.             Next nC00
  42.         Next nR00
  43.     End With
  44. Err1:
  45.     GetWebTb1 = sTemp
  46.     oXml.abort
  47.     oDoc.Close
  48.     Set oXml = Nothing
  49.     Set oDoc = Nothing
  50.     Set oE = Nothing
  51. End Function
複製代碼

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題