請問如何用 MSXML2.XMLHTTP 捉臺灣證券交易所個股月成交資訊

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^# 跳轉到 »

發表於 2014-10-1 08:41 | 只看該作者

回復 1# wufonna
試試看

Option Explicit
Sub Ex下載CSV()
Dim xml As Object
Dim stream
Dim URL As String '目的網址
Set xml = CreateObject("Microsoft.XMLHTTP") '用來取得網頁資料
Set stream = CreateObject("ADODB.stream") 'ADODB.stream '用來儲存二進位檔案
URL = "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report201408/201408_F3_1_8_2485.php&type=csv"
xml.Open "get", URL, 0
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.send
With stream
.Open
.Type = 1
.write xml.ResponseBody
'SaveToFile:檔案名稱已存在時會有錯誤,須先刪除已存在的檔案名稱
If Dir("D:\2485.CSV") <> "" Then Kill "D:\2485.CSV"
.SaveToFile ("D:\2485.CSV")
.Close
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。

請問如何用 MSXML2.XMLHTTP 捉 臺灣證券交易所 個股月成交資訊