GBKEE

回復 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

複製代碼

tsuneng

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

diabo

回復 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. 
   
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. ....

複製代碼

GBKEE

回復 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

複製代碼

tsuneng

回復 34# GBKEE

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

a2305577

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