返回列表 上一主題 發帖

[發問] 求救!抓證交所個股日成交資訊

[發問] 求救!抓證交所個股日成交資訊

各位大大日安
自從證券交易所改版後
以前可以使用程式碼抓取的「個股日成交資訊」  (新網址:http://www.tse.com.tw/zh/page/trading/exchange/STOCK_DAY.html)
目前我的程式碼已無法抓取  
想了許久仍無法解決
感謝高手大大了

程式碼如下

    '取得近期股價  從該月第一日開始加入資料
    Dim path As String, thePOSTdata, URL
    Dim col As Integer, stockID As Integer, b_array, last_row As Integer
   
    stockID = 2317            '抓鴻海股價
   
    URL = "http://www.tse.com.tw/zh/page/trading/exchange/STOCK_DAY.html"
   
        Set XML = CreateObject("Microsoft.XMLHTTP")
        Set Stream = CreateObject("ADODB.stream")
        thePOSTdata = "response=json&date=20060301&stockNo=" & stockID

        XML.Open "POST", URL, 0
        XML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        XML.send thePOSTdata
        'MsgBox "k"
        
        With Stream
               
            .Type = 1
            .Mode = 3
            .Open
            .Write XML.responseBody
            .Position = 0
            .Type = 2
            .Charset = "Big5"
            ByteToText = .ReadText
            MsgBox ByteToText          '使用對話框SHOW出抓到的東西都是無效的

        End With

http://www.tse.com.tw/exchangeReport/STOCK_DAY?response=html&date=20171008&stockNo=2317
試試

TOP

感謝大大分享  問題已解決  
不知道大大是怎麼知道要用GET方法
網址是哪裡找的呢

TOP

回復 3# tsunamix03

"列印 / HTML"  按下去就是

TOP

        靜思自在 : 有多少力量就做多少事,不要心存等待,等待才會落空。
返回列表 上一主題