返回列表 上一主題 發帖

[發問] 請高手解惑幫忙! 上櫃網站又改版了!抓不到資料

[發問] 請高手解惑幫忙! 上櫃網站又改版了!抓不到資料

各位高手大大好
小弟原本參考別人網上用xmlhttp來 抓取上櫃交易明細. 昨天發現櫃檯網站改版,小弟用Fiddler查封包看不出所以然!
懇請高手幫忙解惑! 小弟感激不盡!

Sub 下載交易明細(FilePath As String, stockid As String, saledate As String)
    Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
    Set objStream = CreateObject("ADODB.stream")
   
    webdate = Replace(saledate, Year(Date), CStr(CInt(Year(Date)) - 1911))
    FileName = FilePath + "\" + saledate + "_" + stockid + ".CSV"
   
    With oXMLHTTP
        .Open "GET", "http://www.gretai.org.tw/ch/stock/aftertrading/broker_trading/download_ALLCSV.php", False
        '.Open "POST", aa, False
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .send "curstk=" & stockid & "&stk_date=" & webdate
        
        If .readyState = 4 Then '.Status = 200
            With objStream
                .Type = 1       '以二進位方式操作
                .Open           '開啟物件
                .Write oXMLHTTP.ResponseBody
               
                If Dir(FileName) <> "" Then Kill FileName
                .SaveToFile FileName
                .Close
            End With
        End If
    End With
   
    Set oXMLHTTP = Nothing
    Set objStream = Nothing
End Sub

以下是上櫃網站的網址
http://www.gretai.org.tw/ch/stock/aftertrading/broker_trading/brokerBS.php

感謝您~~~~
Happy

本帖最後由 million2billion 於 2014-1-15 10:24 編輯

回復 19# white5168


    W大, 感謝您!
我也是用delay 來防止鎖IP. 不過下載速度變慢好多!
Happy

TOP

的確改版了,自己也花了點時間修改

網址類似

http://www.gretai.org.tw/ch/stock/aftertrading/broker_trading/download_ALLCSV.php?curstk=1558&stk_date=1021230

其餘自行修改

TOP

m大,是參考iinfo的程式碼嗎?
他已經修正了,可以去下載測測看,連結出處 http://white5168.blogspot.tw/2012/10/excel-vba.html#.UsZLU9IW2E7

TOP

回復 17# joey0415


    晚一點再來重新下載, 謝謝您!

J大, 有您真好~~~~感恩!!
Happy

TOP

回復 16# million2billion

會嗎!上櫃抓檔一直很快,即使換版還是如此,上市比較煩人就是…

TOP

回復 15# joey0415


感謝Joey大大,
目前下載順暢, 這次櫃台網站改版後, 還是有點卡卡的! 只能加一些容錯處哩!
謝謝您!
Happy

TOP

很正常哦!沒有問題哦

用get不是post

TOP

回復 2# joey0415

joey 大大,
更改字串後, 只能下載到標頭而已, 交易資料都是空白, 所以目前還是只能用手動下載!
請教您! 是否網址有變? 還是能有其他解法?
謝謝您!
Happy

TOP

現在就算想手動下載檔案也不行,因為網站進不去,那些股票軟體公司的員工心理一定很嘔,不能跨年,還要耗在公司等爺們賞賜資料,真可憐,祝所有人新年快樂!

TOP

        靜思自在 : 有時當思無時苦,好天要積雨來糧。
返回列表 上一主題