(有基本vba能力，但不知如何下載的初學者，請從21樓開始看)
範例中的下載、載入(csv、html、json)、放入工作表…等等
大部份都是用不同方式寫的，主要是為了讓大家看看不同的寫法
基本上都可以混用的，無聊可以自己試看看
如果發現一些我沒注意到的bug，請無視，或自己修改
因為範例都是寫完就po上來，很少會再回頭檢查
至於排版、美觀方面，就請各位自行處理了
另外如果範例是逐格寫入資料的可以自行加上
Application.ScreenUpdating = False
有些我忘了加
，資料量大時，速度會快很多*2016*
(5/4 1樓文未增加中文亂碼解決方式，順便多加幾個doevents，21樓有簡易版程式碼)
*2017*
(5/10 45樓，“部份程式碼”，合併21樓範例，可快速載入csv檔)
(5/22 61樓，增加使用xmlhttp快速取得網頁純圖片網址，下載後插入excel範例)
(5/23 71樓，增加WinHttp post方法，可下載選取資料後網址不變，無法用get下載的網頁)
(5/26 75樓，增加鉅亨網個股歷史行情快速下載範例)
(5/27 71樓，增加一個變數，方便取得名稱)
(5/28 71樓、75樓，修正一個ReDim TempArray()不該發生的低級錯誤，忘了-1
)(5/28 107樓，增加臺灣證券交易所三大法人買賣超日報html下載範例，可和21樓比較看看有何不同)
(5/30 120樓，增加公開資訊觀測站持股轉讓日報表快速下載範例)
(5/30 123樓，增加臺灣證券交易所三大法人買賣超日報csv下載範例，可和107樓比較看看有何不同)
(6/03 149樓，增加台灣股市資訊網全自動範例,修正71樓錯誤)
(6/09 120樓，因公開資訊觀測站，新增了查詢次數限制，增加4行中斷用程式碼，避免錯誤發生)
(6/11 170樓，增加基本市況報導網站http://mis.twse.com.tw下載範例)
(6/13 170樓，增加幾行程式碼)
(6/14 175樓，小幅改寫1樓yahoo股價查詢程式碼)
(6/23 200樓，因臺灣證券交易所網頁改版，csv無法用123樓範例下載，新增另一種csv下載範例)
(7/1 200樓，增加PtrSafe，讓程式能在excel(64位元)中順利執行)
(7/5 219樓，使用比較特殊但較易懂的方式，改寫170樓程式碼)
(7/6 222樓，太無聊，拿219樓其中一個副程式，做一個表單)
(7/7 223樓，增加證券櫃檯買賣中心，上櫃統計報表個股年成交資訊html + csv下載範例)
(7/31 244樓，增加集保戶股權分散表查詢，“偽”多工處理方式範例)
(8/29 248樓，增加當網站檢查是用vba抓資料，會封鎖下載解決方式)
(10/26 256樓，因鉅亨網網址改變無法下載完整資料，請改用bioleon69(256樓)提供的範例)
(11/10 262樓，因鉅亨網“又”改版了，256樓範例失效，請參考peter624(262樓)的修改方式)
(11/11 266樓，沒有更新，無聊發文)
(11/15 269樓，增加凱基證券，每日收盤價下載範例)
(11/16 271樓，增加finance.yahoo.com，歷史資料下載範例)
(11/17 272樓，增加finance.yahoo.com，大量下載範例)
(11/21 274樓，增加finance.yahoo.com，不下載csv檔，改抓網頁範例)
(12/31 285樓，增加www.nvesto.com 摩根大通買賣超下載範列)
*2018*
(1/31 269樓，增加另一種urlencode副程式的寫法)
(2/1 294樓，增加台灣股市資訊網現金流量六大報表下載範例，可和149樓比較看看有何不同)
(2/5 298樓，再寫一篇，臺灣集中保管結算所(保戶股權分散表查詢)範例)
(2/9 303樓，增加麥克連大師的Excel 8大指標資料下載範例(整理總表功能保留，詳內文))
(2/11 306樓，增加玩股網wantgoo券商進出買超vs買超排行，資料下載範例)
(2/18 308樓，放假無聊更新，用vba把yahoo股市中的k線圖(走勢圖)，重新做一個整合網頁)
(2/22 306樓，更新306樓，增加從玩股網取得最後一天交易日期的程式碼)
(3/5 303樓，8大指標資料下載程式碼中加入一些沒用的垃圾文字，避免卡巴把檔案當成病毒)
(3/24 328樓，因集保戶股權分散表查詢，網址、查詢方式改變，298樓範例失效，更新程式碼)
(3/25 332樓，無聊發文，昨天更新的程式碼，也許明天就不能用了，網頁又在改版中
)(3/25 328樓，再次更新(2018-03-25 22:20 328樓部份程式碼)
(3/26 328樓，再次更新部份程式碼…
)(3/27 328樓，因網站編碼恢復正常，取消使用轉碼副程式)
(4/1 348樓，修正244樓、328樓，Delaytick()副程式)
(4/9 358樓，將328樓的範例，加上Access資料庫，線上查詢+離線查詢+自訂股票清單)
(4/11 369樓，法人持股明細下載範例，請安靜使用)
(4/14 373樓，因網頁改版，更新328樓、358樓部份程式碼)
(5/11 413樓，簡單介紹一下新版excel 的powerquery 來代替 舊版 web匯入)
(5/16 419樓，增加臺灣銀行牌告匯率下載範例，可和269樓，比較看看有何不同)
(6/10 425樓，增加中油公司車用汽、柴油公告牌價，csv下載範例)
(6/18 430樓，自營商買賣超明細(djinfo)下載範例)
(6/21 431樓，如何在userform1中，動態產生控制項的簡單範例)
(8/2 440樓，增加 xmlhttp 無法在 XP 存取https(新版tls加密連線)解決方式)
(8/18 449樓，沒情人在家發呆寫程式
，順便修正328、358樓改版後網址)(8/22 456樓，增加，鉅亨網(類股成交金額漲跌幅及市值比較)下載範例)
(8/28 461樓，股權分散表改版，請參考yuhuahsiao(461樓)的修改方式，或回449樓下載)
(9/20 358樓，補充關閉錯誤檢查的方式)
(11/13 303樓，因臺灣期貨交易所網頁改版，更新gettaifex()副程式中的6個網址)
(11/28 506樓，yahoo 股市改版，表格位置變動，僅提示，程式碼請自行練習修改)
(12/21 506樓，yahoo 股市再次改版，表格位置變動，請參考506樓，自行練習修改)
(12/22 533樓，unicode(6碼)轉中文範例)
*2019*
(1/26 566樓，增加使用vba開啟外部程式，並輸入按鍵、文字範例)
(2/25 585樓，增加國發會景氣指標查詢系統，下載範例)
(3/28 610樓，投資理財版的專家Acer_kewei，分享了一個整理好的表格)
(3/28 613樓，因goodinfo網站改版，修正2017年149樓程式碼)
(3/28 613樓，文末增加610樓表格下載，加入一些更新用的程式碼)
(3/29 613樓，更新程式碼，加入標題、股利政策下載、簡單排版一下財務比率表)
(4/1 620樓，合併610樓+613樓)
(4/7 631樓，增加591房屋，下載範例)
(4/7 632樓，620樓漏了一個表格，請參考yuhuahsiao(632樓)的修改方式，或回620樓下載)
(4/18 645樓，增加如何用vba控制308範例中的main.html下拉式選單範例)
(6/25 666樓，臺灣證券交易所改版，簡單說明一下修改方式)
(9/29 686樓，股權分散表網頁改版，程式碼增加除錯功能，避免程式中斷、出錯)
(12/07，修正306樓、315樓、319樓，一行程式碼)
(12/22，705樓，wantgoo網改版，306、315、319樓範例失效，請改用ie objet範例)
(12/22，wantgoo網再度改版
，306、315、319樓範例，恢復正常)*2020*
(2/4，finance.yahoo.com小改版，修正271、272樓，部份程式碼)
(3/13，751樓cmoney json 下載範例)
(3/16，756、758樓rocketfinancial 下載範例)
(3/24，網頁改版，修正219、222樓部份程式碼)
(4/10，網頁改版，修正75樓部份程式碼)
(4/21，網頁改版，修正686樓部份程式碼)
(5/20， 797樓，增加pchome股市下載範例)
(6/30，811樓，台新、合庫、安泰、上海、元大、玉山，即時匯率下載範例)
(7/3，828樓，goodinfo 未登入會員，多頁下載範例)
(8/11，877樓，秘技，adodb.stream自動選擇Charset功能)
(9/15，909樓，模擬滑鼠點擊、輸入，簡易範例)
(11/27，931樓，wantgoo網，主力進出動向json下載範例)
(12/11，934樓，sod.nsc.com.tw，網頁圖表原始資料下載範例)
(12/21，941樓，集保戶股權分散表(新版網頁)下載範例，686樓舊版可正常使用不需更新)
*2021*
(1/22，960樓，finviz.com，簡易下載範例)
(3/18，965樓，公開資訊觀測站，即時重大訊息，詳細資料下載範例)
(3/20，969樓，"手動"增加股票清單的方法，686樓的access資料庫)
(3/27，982樓，參考投資理財版的專家Acer_kewei整理的表，把686樓範例新增總表功能)
(4/9，992樓，使用proxy的簡易範例，但穩定的proxy ip要自己去找)
(4/17，999樓，因yahoo改版，新增新版網址下載範例)
(4/17，1000樓，因yahoo改版，修正1樓程式碼)
(4/19，269樓，因kgieworld改版，請自行修正範例內網址http=>https)
(6/8，1024樓，yahoo 即時行情排行，18(6x3)頁json資料下載範例)
(6/15，1031樓，騰訊stockapp.finance.qq.com下載範例)
(6/20，1038樓，www.szse.cn下載範例)
(6/22，1040樓，yunhq.sse.com.cn下載範例)
(6/30，1044樓，goodinfo PER/PBR 下載範例)
(7/10，1053樓，Yahoo 類股報價，下載範例)
(7/28，1059樓，WantGoo 個股主力進出動向，下載範例)
(7/28，1062樓，mops.twse.com.tw 辦理私募之應募人為內部人或關係人，下載範例)
(7/31，1064樓，google 熱搜趨勢(關鍵字查詢)，下載範例)
(8/2，306樓，因wantgoo改版，修正User-Agent參數
(9/16，1095樓，因yahoo改版，舊版網頁消失，修正1000樓程式碼)
(9/26，1106樓，yahoo 主力進出json下載範例)
(9/28，1110樓，twse 信用交易統計下載範例)
(10/2，1117樓，macromicro 圖表資料下載範例)
(10/6，1122樓，cnyes 財報json格式資料下載範例)
(10/8，1125樓，謝謝joehuang這位高手分享自己改寫1117樓，完整製表範例)
(11/13，1139樓，twse 表格下載範例)
(11/15，1142樓，cnyes 歷史股價json格式資料下載範例)
(11/18，1144樓，改版後的永豐金資產負債簡表網址)
(11/19，1146樓，sitca 資料下載範例)
(11/29，1151樓，yahoo 營收表(月、季、年)，json格式下載範例，圖表整合簡易說明)
(11/29，1152樓，taifex臺指選擇權波動率指數json格式下載範例)
(12/16，1168樓，把scriptcontrol excel x32物件，使用htmlfile改寫成excel x32 x64通用)
*2022*
(1/12，1198樓，Pchome線型走勢，下載範例)
(2/17，75樓，因cnyes網頁改版，修正下載範例)
(5/4，1220樓，cns11643全字幕查詢範例)\
(7/19，1246樓，集保戶股權分散表改版，新版下載範例)
(7/19，1247樓，增加982樓，集保戶股權分散表，新版下載範例)
(10/30，1268樓，yahoo 股市分類行情下載範例)
*2023*
基本上都是回答問題比較多，偶爾穿插一些範例，有需要請自行翻翻舊文
*2024*
回答問題，小範例就不記錄了，只記一些比較特別的
(1/27，1399樓，從google drive 目錄(公開分享)內下載所有檔案含大小、修改時間…等等)
解決方式有很多
一、分析真實查詢位置
二、webquest iqy
三、csv table
四、ie object
五、microsoft.XMLHTTP
六、msxml2.xmlhttp
七、access sql
八、adodb stream
九、其它
可以google到的範例，基本上都是前4個，因為比較容易copy、改寫
不過第四個有個問題就是效率太差，因為要使用 ie 來開，抓一筆資料1~10秒不等
我使用第六種，不需開ie直接抓取資料
這樣只需要載入網頁原始碼，再把表格部份取出
可有效提高速度，還比excel直接用web匯入還快很多很多
我的電腦I7+excel 2007，在網路正常的情況下
yahoo 100筆(每筆1個表格，1列資料)，約8~15秒
鉅亨 100筆(每筆4個表格，16列資料)，因為要新增工作表大約20~35秒
如果資料放在同一工作表，改成只抓一個表格，時間就跟yahoo差不多
(2021/4/17此範例失效，請參考1000樓)
(目前最多只試到1500筆，再多不確定是否正常，請自行測試)
' yahoo (2016/3/21 把資料分散，增加副程式的效率，提升查詢速度)
'====================================================
Global TempArray()
Sub fake_Multiplex()
t = Timer
lastrow = Sheets("stock").Range("a1").CurrentRegion.Rows.Count
Sheets("stock").Range("b2:l" & lastrow).Clear: Range("n1") = ""
ReDim TempArray(lastrow - 2, 10)
If lastrow Mod 5 > 0 Then j = Int(lastrow / 5) + 1 Else j = Int(lastrow / 5)
For i = 1 To j
If i = 1 Then firstdata = 2 Else firstdata = (i - 1) * 5 + 1
If i = j Then
lastdata = lastrow
Sheets("stock").Range("n1") = lastrow - 1 & " stock loading ok"
Else
lastdata = (i - 1) * 5 + 5
Sheets("stock").Range("n1") = "Loading " & Round((i / j) * 100) & "％"
End If
Call getstock(firstdata, lastdata)
Next i
Sheets("stock").Range("b2:l" & lastrow).Value = TempArray()
Erase TempArray()
Sheets("stock").Cells.EntireColumn.AutoFit
Debug.Print Timer - t
End Sub
Sub getstock(firstdata, lastdata)
Dim URL, HTMLsourcecode, GetXml
For k = firstdata To lastdata
DoEvents
Set HTMLsourcecode = CreateObject("htmlfile")
Set GetXml = CreateObject("msxml2.xmlhttp")
URL = "https://tw.stock.yahoo.com/q/q?s=" & Sheets("stock").Cells(k, 1)
With GetXml
.Open "GET", URL, False
.setRequestHeader "Cache-Control", "no-cache"
.setRequestHeader "Pragma", "no-cache"
.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
.send
HTMLsourcecode.body.innerhtml = .responsetext
'網站有亂碼時，把上面這一行刪掉，改用下面這一行
'HTMLsourcecode.body.innerhtml = convertraw(.ResponseBody)
Set Table = HTMLsourcecode.all.tags("table")(6).Rows
For i = 1 To Table.Length - 1
For j = 0 To Table(i).Cells.Length - 2
If i = 1 And j = 0 Then
TempArray(k - 2, j) = Mid(Split(Table(i).Cells(j).innertext, Chr(13) & Chr(10))(0), 5, Len(Split(Table(i).Cells(j).innertext, Chr(13) & Chr(10))(0)))
Else
TempArray(k - 2, j) = Trim(Table(i).Cells(j).innertext)
If InStr(TempArray(k - 2, j), "▽") > 0 Or InStr(TempArray(k - 2, j), "▼") > 0 Then Sheets("stock").Cells(i + (k - 1), j + 2).Font.Color = -11489280
If InStr(TempArray(k - 2, j), "△") > 0 Or InStr(TempArray(k - 2, j), "▲") > 0 Then Sheets("stock").Cells(i + (k - 1), j + 2).Font.Color = -16776961
End If
Next j
Next i
End With
Set HTMLsourcecode = Nothing
Set GetXml = Nothing
Next k
End Sub
' ==========================================================
' 鉅亨 (2016/3/21 把資料分散，增加副程式的效率，提升查詢速度)
'===============================================
Global TempArray(), Stockname()
Sub fake_Multiplex()
ttt = Timer
Sheets("stock").Range("e1") = ""
If Worksheets.Count > 1 Then Call delsheet
lastrow = Sheets("stock").Range("a1").CurrentRegion.Rows.Count
ReDim Stockname(lastrow - 2), TempArray(lastrow - 2)
If lastrow Mod 5 > 0 Then j = Int(lastrow / 5) + 1 Else j = Int(lastrow / 5)
For i = 1 To j
doevents
If i = 1 Then firstdata = 2 Else firstdata = (i - 1) * 5 + 1
If i = j Then
lastdata = lastrow
Sheets("stock").Range("e1") = lastrow - 1 & " stock loading ok"
Else
lastdata = (i - 1) * 5 + 5
Sheets("stock").Range("e1") = "Loading " & Round((i / j) * 100) & "％"
End If
Call getstock(firstdata, lastdata)
Next i
For i = 0 To lastrow - 2
Sheets.Add(After:=Sheets(Sheets.Count)).Name = Stockname(i)
Sheets(Stockname(i)).Range("a1:i19").Value = TempArray(i)
Sheets(Stockname(i)).Cells.EntireColumn.AutoFit
Next i
Erase TempArray
Sheets("stock").Select
Debug.Print Timer - ttt
End Sub
Sub getstock(firstdata, lastdata)
Dim URL, HTMLsourcecode,GetXml
Dim TempArray2(20, 8)
For k = firstdata To lastdata
Set HTMLsourcecode = CreateObject("htmlfile")
set GetXml=CreateObject("msxml2.xmlhttp")
URL = "http://www.cnyes.com/twstock/Technical/" & Sheets("stock").Cells(k, 1) & ".htm"
With GetXml
.Open "GET", URL, False
.setRequestHeader "Cache-Control", "no-cache"
.setRequestHeader "Pragma", "no-cache"
.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
.send
Stockname(k - 2) = Replace(Right(Split(.responsetext, "_技術指標")(0), 11), Chr(13) & Chr(10), "")
HTMLsourcecode.body.innerhtml = .responsetext
For m = 1 To 4
Set Table = HTMLsourcecode.all.tags("table")(m).Rows
For i = 0 To Table.Length - 1
doevents
For j = 0 To Table(i).Cells.Length - 1
TempArray2(i + ((m - 1) * 5), j) = Trim(Table(i).Cells(j).innertext)
Next j
Next i
Next m
End With
TempArray(k - 2) = TempArray2
Erase TempArray2
Set HTMLsourcecode = Nothing
set GetXml=nothing
Next k
End Sub
Sub delsheet()
Dim delsheet As Worksheet
Application.DisplayAlerts = False
For Each delsheet In Worksheets
If delsheet.Name <> "stock" Then delsheet.Delete
Next delsheet
Application.DisplayAlerts = True
End Sub
' ==========================================================
這些程式碼，單純只是我突然想複習一下很久沒用msxml2的語法，順便更新算一下自己股票損益
雖然是測試版，反正都寫好了，也懶得最佳化處理縮短優化程式碼
想拿就拿去用吧，檔案也上傳了，其它網站只要修改小地方就行
根據我的觀察，好像有不少人想要
萬一網頁改版無法匯入，請自行想辦法調整
我有特別讓程式碼很容易修改，剩下的請自行研究
如果有會1~8種之外，其它更好方法的高手，能幫忙修改提升程式效率
歡迎討論
***但如果是只想要我幫忙修改、拿現成的，我一律不回***
p.s 這是取代 excel web 匯入用的，不是拿來抓“數萬筆”資料用的
雖然要用也是可以啦，但大量查詢下，說不定暫時會被擋ip or 回應變慢
上班用這種方式偷看股票被發現，後果自行承擔，別怪我
這是少量股票更新用的，想一次下載全部收盤資料的，請跳到269樓看範例
(yahoo + 鉅亨)
(2017/05/04 小更新，增加亂碼處理方式，順便多加幾個doevents，)
附加壓縮檔: 201705/mobile01-f6724b4625b8dc97698a45375733b69b.zip
(只有yahoo
，鉅亨用不到，懶的改了)(2016/3/27 更新，試寫一個用 script 方式抓資料的程式碼)
程式碼就不貼了，反正沒人看，想看的自己下載
附加壓縮檔: 201603/mobile01-ee273354e317f442fa850e52c524c978.zip
p.s 此版本會在windwos\temp 產生大量暫存檔
不推薦使用，單純為了試試另一種方式的瑕疵作品
只是為了試試新方法，寫完沒整理就po上來了，所以穩定性極差
建議用2016/3/21的版本就好(更新到2017/05/04)
cpu使用率低、穩定性高，連續抓1500筆都不會出問題
(不過，能有1500筆股票的，也非常人，不會想用這種小東西
)基本上不會再更新了，因為自己的股票還不到30筆
這些只是無聊試試不同方法，練習的小品程式
而且主要目地只是代替excel web匯入，沒有抓上千筆資料的需求
'=======================================================================
5/4補充，如果拿這個範列去抓別的網站資料
有些網站因為編碼的關係，抓下來的資料，中文會變亂碼
這行
HTMLsourcecode.body.innerhtml = .Responsetext
改成
HTMLsourcecode.body.innerhtml = convertraw(.ResponseBody)
程式碼內多加上一個function
正常的網站就不要用這個function了，可以節省一點點處理時間
(密技,快速對大量文字改編碼類型)
Function convertraw(rawdata)
Dim rawstr
Set rawstr = CreateObject("adodb.stream")
With rawstr
.Type = 1
.Mode = 3
.Open
.Write rawdata
.Position = 0
.Type = 2
'繁體通常轉成big5就可以了，簡體通常是gb2312
.Charset = "big5"
convertraw = .ReadText
.Close
End With
Set rawstr = Nothing
End Function
