返回列表 上一主題 發帖

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

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

各位大大日安
自從證券交易所改版後
以前可以使用程式碼抓取的「個股日成交資訊」  (新網址: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

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題