- 帖子
- 24
- 主題
- 1
- 精華
- 0
- 積分
- 55
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Moon
- 註冊時間
- 2012-2-10
- 最後登錄
- 2024-12-21
|
[發問] 請高手解惑幫忙! 上櫃網站又改版了!抓不到資料
各位高手大大好
小弟原本參考別人網上用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
感謝您~~~~ |
|