- 帖子
- 24
- 主題
- 1
- 精華
- 0
- 積分
- 55
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Moon
- 註冊時間
- 2012-2-10
- 最後登錄
- 2024-12-21
|
3#
發表於 2013-12-31 10:46
| 只看該作者
回復 2# joey0415
J大,
請提點小弟! 可以下載,卻發現下載的都是沒有交易資料的 *.csv檔 ,是參數有哪裡不同了??
感激不盡~~~~
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 "POST", "http://www.gretai.org.tw/ch/stock/aftertrading/broker_trading/download_ALLCSV.php", 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 |
|
