返回列表 上一主題 發帖

交易明細下載

回復 26# tsuneng
讓你失望了, 試了一天 仍是失敗 對網頁語言不熟 無法下載 這網址所有的資料
http://www.gretai.org.tw/ch/stock/aftertrading/broker_trading/brokerBS.php?  嚐試用 IE 下載Tables 的內容 但還是失敗
http://forum.twbts.com/viewthread.php?tid=7395&page=1&extra=#pid42189 的5# 附檔
http://www.gretai.org.tw/ch/stock/aftertrading/broker_trading/download_ALLCSV.php?'可下載全部CSV: 但對網頁架構不熟,寫不出它的參數
望知悉者相助
用 EXCEL  WEB的查詢也有所限制,只可查看第一頁的資料,
  1. Option Explicit
  2. Sub Ex()
  3.     With ActiveSheet.QueryTables.Add("URL;http://www.gretai.org.tw/ch/stock/aftertrading/broker_trading/brokerBS.php?stk_code=6121", ActiveSheet.[A1])
  4.         .WebSelectionType = xlSpecifiedTables
  5.         .WebFormatting = xlWebFormattingNone
  6.         .WebTables = "11,13,14"
  7.         .Refresh BackgroundQuery:=False
  8.     End With
  9. End Sub
複製代碼

TOP

回復 31# GBKEE
謝謝GBKEE 大大 熱心分享,感恩!!

TOP

回復 31# GBKEE


    櫃買中心的這個SERVER端程式只接收 POST傳遞 (GET傳遞無效) 的資料,須採用 XMLHTTP 以 POST 傳遞 thePOSTdata,取得 response 後直接存成 csv 即可
  1.    thePOSTdata = "curstk=" & 股票代碼 & "&fromw=0&numbern=100&stk_date=" & 資料日期    '日期格式 1010730
  2.    thePOSTActionFile = "http://www.gretai.org.tw/ch/stock/aftertrading/broker_trading/download_ALLCSV.php"

  3.    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  4.    oXMLHTTP.Open "POST", thePOSTActionFile, False
  5.    oXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  6.    
  7.    'send request - POST
  8.     oXMLHTTP.send thePOSTdata
  9. ....
複製代碼
diabo

TOP

本帖最後由 GBKEE 於 2012-8-11 06:54 編輯

回復 33# diabo
感謝相助 成功!
  1. Option Explicit
  2. Private Sub 下載htm()
  3.     Dim xml As Object     '用來取得網頁資料
  4.     Dim stream            'As ADODB.stream   '用來儲存二進位檔案
  5.     Dim URL As String     '目的網址
  6.     Dim thePOSTdata       '參數
  7.     Set xml = CreateObject("Microsoft.XMLHTTP")
  8.     Set stream = CreateObject("ADODB.stream")
  9.     URL = "http://www.gretai.org.tw/ch/stock/aftertrading/broker_trading/download_ALLCSV.php"
  10.     thePOSTdata = "curstk=3527&stk_date=1010810"
  11.         xml.Open "POST", URL, 0
  12.         xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  13.         xml.send thePOSTdata
  14.     With stream
  15.         .Open
  16.         .Type = 1
  17.         .write xml.ResponseBody
  18.         If Dir("D:\3527.CSV") <> "" Then Kill "D:\3527.CSV"
  19.         .SaveToFile ("D:\3527.CSV")                              
  20.         .Close
  21.     End With
  22. Set xml = Nothing
  23. Set stream = Nothing
  24. End Sub
複製代碼

TOP

回復 34# GBKEE

試了,成功!!  GBKEE 果然是高人,謝謝熱心相助!!!

TOP

好厲害!厲害......
成功了
等待版主分享完整下載上櫃資料內碼
感恩

TOP

        靜思自在 : 修行要繫緣修心,藉事練心,隨處養心。
返回列表 上一主題