交易明細下載

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的查詢也有所限制,只可查看第一頁的資料,

Option Explicit
Sub Ex()
With ActiveSheet.QueryTables.Add("URL;http://www.gretai.org.tw/ch/stock/aftertrading/broker_trading/brokerBS.php?stk_code=6121", ActiveSheet.[A1])
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "11,13,14"
.Refresh BackgroundQuery:=False
End With
End Sub

複製代碼

32^#

發表於 2012-8-10 19:19 | 只看該作者

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

33^#

發表於 2012-8-10 20:49 | 只看該作者

回復 31# GBKEE

櫃買中心的這個SERVER端程式只接收 POST傳遞 (GET傳遞無效) 的資料，須採用 XMLHTTP 以 POST 傳遞 thePOSTdata，取得 response 後直接存成 csv 即可

thePOSTdata = "curstk=" & 股票代碼 & "&fromw=0&numbern=100&stk_date=" & 資料日期 '日期格式 1010730
thePOSTActionFile = "http://www.gretai.org.tw/ch/stock/aftertrading/broker_trading/download_ALLCSV.php"
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "POST", thePOSTActionFile, False
oXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
'send request - POST
oXMLHTTP.send thePOSTdata
....

複製代碼

diabo

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

34^#

發表於 2012-8-10 21:19 | 只看該作者

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

回復 33# diabo
感謝相助成功!

Option Explicit
Private Sub 下載htm()
Dim xml As Object '用來取得網頁資料
Dim stream 'As ADODB.stream '用來儲存二進位檔案
Dim URL As String '目的網址
Dim thePOSTdata '參數
Set xml = CreateObject("Microsoft.XMLHTTP")
Set stream = CreateObject("ADODB.stream")
URL = "http://www.gretai.org.tw/ch/stock/aftertrading/broker_trading/download_ALLCSV.php"
thePOSTdata = "curstk=3527&stk_date=1010810"
xml.Open "POST", URL, 0
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.send thePOSTdata
With stream
.Open
.Type = 1
.write xml.ResponseBody
If Dir("D:\3527.CSV") <> "" Then Kill "D:\3527.CSV"
.SaveToFile ("D:\3527.CSV")
.Close
End With
Set xml = Nothing
Set stream = Nothing
End Sub