- 帖子
- 219
- 主題
- 24
- 精華
- 0
- 積分
- 243
- 點名
- 0
- 作業系統
- Windows10
- 軟體版本
- Office2016
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2012-4-18
- 最後登錄
- 2022-2-7
 
|
本帖最後由 HSIEN6001 於 2014-12-16 12:58 編輯
回復 3# pupai
用CSV下載,同 http://forum.twbts.com/thread-13018-1-1.html #6
(一起下載)- Sub CSV下載()
- Dim path As String
- path = "C:\"
- 日期 = "20141215"
- Set XML = CreateObject("Microsoft.XMLHTTP")
- Set stream = CreateObject("ADODB.stream")
-
- URL = "http://www.taifex.com.tw/chinese/3/7_12_8dl.asp?syear=" & VBA.Left(日期, 4) & "&smonth=" & VBA.Mid(日期, 5, 2) & "&sday=" & _
- VBA.Right(日期, 2) & "&eyear=" & VBA.Left(日期, 4) & "&emonth=" & VBA.Mid(日期, 5, 2) & "&eday=" & VBA.Right(日期, 2)
- XML.Open "GET", URL, 0
- XML.send
- With stream
- .Type = 1
- .Open
- .write XML.responseBody
- If Dir(path & "類股期貨" & 日期 & ".csv") <> "" Then Kill (path & "類股期貨" & 日期 & ".csv")
- .SaveToFile (path & "類股期貨" & 日期 & ".csv")
- .Close
- End With
-
- URL = "http://www.twse.com.tw/ch/trading/fund/BFI82U/BFI82U_print.php?begin_date=" & _
- VBA.Left(日期, 8) & "&end_date=" & VBA.Left(日期, 8) & "&report_type=day&language=ch&save=csv"
- XML.Open "GET", URL, 0
- XML.send
- With stream
- .Type = 1
- .Open
- .write XML.responseBody
- If Dir(path & "三大法人買賣超" & 日期 & ".csv") <> "" Then Kill (path & "三大法人買賣超" & 日期 & ".csv")
- .SaveToFile (path & "三大法人買賣超" & 日期 & ".csv")
- .Close
- End With
- End Sub
|
|
發表於 2014-12-16 12:56
| 