Excel VBA 下載CSV

Excel VBA有蠻多種下載CSV的方式
1.使用Workbooks.Open(網址)
2.使用QueryTable
3.使用XMLHTTP物件

以上一篇文章抓的三大法人買賣超日報為範例




1.workbook.open

	Sub test1()
	Dim t: t = Timer
	Workbooks.Open Filename:= _
	"http://www.twse.com.tw/fund/T86?response=csv&date=20180813&selectType=11"
	Debug.Print Format(Timer - t, "0.00秒")
	End Sub

view raw workbook.open hosted with ❤ by GitHub

2.QueryTable

	Sub test2()
	Dim t: t = Timer
	With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.twse.com.tw/fund/T86?response=csv&date=20180817&selectType=11", Destination:=Range("A1"))
	.WebSelectionType = xlAllTables
	.WebFormatting = xlWebFormattingNone
	.Refresh BackgroundQuery:=False
	.Delete
	End With
	Debug.Print Format(Timer - t, "0.00秒")
	End Sub

view raw QueryTable hosted with ❤ by GitHub

3.XMLHTTP

	Sub test3()
	Dim t: t = Timer
	Cells.Clear
	Dim myXML As Object
	Set myXML = CreateObject("Microsoft.XMLHTTP")
	With myXML
	.Open "GET", "http://www.twse.com.tw/fund/T86?response=csv&date=20180817&selectType=11", False
	.send
	myText = convertraw(.responseBody)
	Debug.Print myText
	myText1s = Split(myText, Chr(10))
	i = 1
	For Each myText1 In myText1s
	myText2s = Split(myText1, """,""")
	j = 1
	For Each myText2 In myText2s
	Cells(i, j) = Replace(Replace(Replace(myText2, """,", ""), Chr(13), ""), Chr(34), "")
	j = j + 1
	Next
	i = i + 1
	Next
	End With
	Set myXML = Nothing
	Debug.Print Format(Timer - t, "0.00秒")
	End Sub

view raw XMLHTTP hosted with ❤ by GitHub

簡單做個比較
1.Workbooks.Open
語法簡單，速度中(1.26秒)
但一個很大的缺點是下載了新的Excel
如果我們平常是將資料固定放在特定Excel檔，只是想更新數據
那麼我們就必須寫入切換活頁簿、使用完後刪掉CSV檔等語法
因此雖然下載的語法簡單，但後面有很多細節要處理

2.QueryTable
語法不難，如果忘記的話直接錄製一次巨集即可得到程式碼，再稍加修改
速度偏慢(2.4秒)
相比於workbook.open
使用QueryTable可將資料直接下載至當前的活頁簿
因此不須另外切換活頁簿

3.XMLHTTP
語法偏難，但速度最快
即使包含了資料整理也僅僅只要0.34秒
但須具備一些網路基礎知識，對於初學者較不易上手