1234
返回列表 上一主題 發帖

交易明細下載

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
31# 跳轉到 »
發表於 2012-8-10 17:05 | 只看該作者
回復 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

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
32#
發表於 2012-8-10 19:19 | 只看該作者
回復 31# GBKEE
謝謝GBKEE 大大 熱心分享，感恩!!

TOP

diabo

帖子
79 
主題
2 
精華
0 
積分
193 
點名
0  
作業系統
Winwos 7 64 bits 
軟體版本
Excel 2003/2007 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-8-25 
最後登錄
2019-9-20 
33#
發表於 2012-8-10 20:49 | 只看該作者
回復 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"

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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
34#
發表於 2012-8-10 21:19 | 只看該作者
本帖最後由 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

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
35#
發表於 2012-8-11 08:12 | 只看該作者
回復 34# GBKEE

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

TOP

a2305577

帖子
24 
主題
2 
精華
0 
積分
32 
點名
0  
作業系統
WINDOW XP 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
男 
註冊時間
2011-10-31 
最後登錄
2018-1-17 

論壇贊助勳章
36#
發表於 2012-8-16 05:26 | 只看該作者
好厲害！厲害......
成功了
等待版主分享完整下載上櫃資料內碼
感恩

TOP

        靜思自在 : 我們最大的敵人不是別人．可能是自己。
1234
返回列表 上一主題