[VBA] 抓取外資買賣超歷史資料 - NewBie168 投資研究院

[VBA] 抓取外資買賣超歷史資料

外資買賣超歷史資料來源

外資買賣超歷史資料 是證交所每日 下午四點 公布三大法人買賣金額統計表中的一組記錄資料，可藉由抓取 證交所網站 三大法人買賣超歷年資料時，來取得相關資料。

※ 三大法人買賣金額統計表 網址 : https://www.twse.com.tw/zh/page/trading/fund/BFI82U.html。( PS. 可查詢 : 三大法人買賣超日 / 週 / 月報表。)

◎ 已知證交所公布時間與買賣超金額統計表網址，便能利用Excel VBA上網擷取證交所三大法人買賣超金額統計表的歷年資料，再從資料中抓取 外資買賣超歷史資料 的交易數據。

外資買賣超歷史資料抓取

[ 前置步驟 ] :
0. 作業系統 : Office 365。
1. 打開已設計好的程式檔 : 2022_三大法人現股買賣超.xlsm。
2. 新增工作表，名稱 : 抓取_歷史買賣超資料。

證交所 – 抓取外資買賣超歷史資料

◎ 三大法人買賣金額統計表 : 資料來源網址 —- https://www.twse.com.tw/zh/page/trading/fund/BFI82U.html，畫面圖示如下 :

[ 操作步驟 ] :
0. 交易資訊標題 : 三大法人買賣金額統計表。
1. 圈選日報表 : 利用下拉式選單，選擇 : 其他日期的歷史報表。
2. 確定下載日期後，點選 : ，系統會依照圈選的日報表選項，顯示該日期的報表網址。( PS. 這與三大法人現貨買賣超的抓取方式不同。)
3. 點選 : 列印 / HTML，按 : 滑鼠右鍵，選擇 : 在新分頁中開始連結，或直接選擇 : 複製連結網址，取得所選日期的資料網址 :
https://www.twse.com.tw/fund/BFI82U?response=html&dayDate=20221201&weekDate=20221128&monthDate=20221101&type=day
，方便以VBA程式來抓取資料。( PS. 頁面開啟的畫面，如下。)

4. 根據 買賣金額統計表 網址，便能利用 錄製巨集 的功能，錄製 — 登入證交所網站抓取三大法人買賣金額統計表的步驟，並將其轉化成VBA程式指令，載入EXCEL。

錄製巨集與函式設定

[ 注意 ] : 在錄製巨集這部分，因為有學員反應，可否提供舊版(Office 365以下版本)的錄製方式，那這篇就改用舊版的模式，來抓取證交所的資料。

[ 操作步驟 ] :
A. 利用 錄製巨集(舊版)，抓取三大法人買賣超金額統計表的某日數據。( ◎ 請參考 : 錄製巨集(舊版) 內的錄製步驟。)

◎ 在錄製過程中，須注意的三點 :
一. 打開活頁簿，名稱 : 2022_三大法人現股買賣超.xlsm。
二. 點開工作表，名稱 : 買賣金額統計表。
三. 從 WEB (舊版) 抓取資料時， URL 網址輸入框內，需輸入 :
https://www.twse.com.tw/fund/BFI82U?response=html&dayDate=20221201&weekDate=20221128&monthDate=20221101&type=day

B. 證交所擷取出來的表格資料，顯示如下 :

( PS. 若你實作過 每天收集三大法人現貨買賣超 < 整體數據篇 >，使用 Office 365版下載過資料，就會發現下載的資料有所不同，位置也差了一格。)

C. 新增一個名稱 : 抓取_歷史買賣超資料 的工作表，方便暫存三大法人買賣超金額的歷史資料。

D. 在 抓取_歷史買賣超資料 工作表內，填入 : 三大法人買賣超金額 表頭。表頭資料顯示如下 : ( * A1欄位(日期)，設定日期函式 : =NOW()。)

E. 表頭製作好，就可利用 EXCEL函式，來連結對應證交所擷取的資料。示意圖 : 如下 —

[ EXCEL 函式設定 ] :
1. A4欄 (日期) / 函式為 : =A1。
2. B4欄 (外資–不含自營) / 函式為 : =買賣金額統計表!D6/100000000。( PS. 除以 100000000 的用意，是將單位 — 改為 : 億元。)
3. C4欄 (投信–合計) / 函式為 : =買賣金額統計表!D5/100000000。
4. D4欄 (自營商–自行買賣) / 函式為 : =買賣金額統計表!D3/100000000。
5. E4欄 (自營商–避險) / 函式為 : =買賣金額統計表!D4/100000000。
6. F4欄 (自營商–合計) / 函式為 : =D4+E4。
7. G4欄 (三大法人–總計) / 函式為 : =B4+C4+F4。( ☆ 注意 : G4欄(三大法人總計)數值，不包含 D7(外資自營商)，所以 D7 不列入計算。)

[ 注意 ] : 以上的函式設定，可以完成某日證交所的資料擷取，但也只是一天的資料記錄，想將外資買賣超的歷史資料完全下載，就必須利用 VBA語法轉換日期，來控制下載證交所的資料連結，再存放於 抓取_歷史買賣超資料 工作表中。

轉化VBA — 操作步驟

錄製巨集

A. 首先利用 錄製巨集，獲取 2022/12/01 證交所 三大法人買賣超金額統計表 之程式碼。程式如下 :

[ 巨集程式碼 ] :
Sub 巨集1()
Application.CutCopyMode = False
With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;https://www.twse.com.tw/fund/BFI82U?response=html&dayDate=20221201&weekDate=20221128&monthDate=20221101&type=day" _
    , Destination:=Range("$A$1"))
    '.CommandType = 0
    .Name = _
    "BFI82U?response_html_dayDate_20221201_weekDate_20221128_monthDate_20221101_type_day_1"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlAllTables
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
End With
End Sub

[ 注意 ] : 使用舊版爬取出來的資料，讀取後，會在執行 .CommandType = 0 時，出現錯誤訊號。此時，只要將其註解( ‘ ) 掉，就沒事了。

更改巨集名稱

B. 更改巨集名稱 : 巨集錄製好，會自動產生名稱 : 巨集1 的副程式，為了辨識程式內容，模組名稱改為 : 抓取法人買賣超歷史資料_舊版。( ※Sub巨集1() 改為 Sub抓取_法人現貨買賣超_歷史資料() )。( PS. 不了解如何更改，請參考 : 開啟 VBA 程式 – 插入模組。)

函式轉化VBA程式碼

C. 將設計好的EXCEL函式，轉化成VBA程式碼。
◎ 直接以對應的方式，將三大法人買賣超金額統計表資料，轉成 VBA程式碼。程式如下 :

[ 程式碼 ] :
Sheets(“抓取_歷史買賣超資料”).Select
[A4] = “=A1”
[B4] = “=買賣金額統計表!D6/100000000”
[C4] = “=買賣金額統計表!D5/100000000”
[D4] = “=買賣金額統計表!D3/100000000”
[E4] = “=買賣金額統計表!D4/100000000”
[F4] = “=D4+E4”
[G4] = “=B4+C4+F4”

設計 For~Next 迴圈 – 抓取單月資料

D. 依照上面程式碼，便能連結 “買賣金額統計表” 工作表內，某日證交所擷取出來的三大法人買賣超資料。
◎ 但 …… 也只是一天的資料下載，若想抓取一年內的歷史資料，那該如何呢 ?
哪就必須利用 FOR ~ NEXT 迴圈指令，來遞增日期，將原先的函式設定，轉換成VBA程式碼，再利用變數，將證交所三大法人買賣超金額統計表的資料，由於證交所的資料源並不是提供一個月，甚至一周，所以只能一天一天地擷取。轉換程式如下 :

[ 程式碼 / 單月‧日期遞增程式 ] :
endDate = "20221130"
Y = Left(endDate, 4)
M = Mid(endDate, 5, 2)
xDay = Right(endDate, 2)

For D = 1 To xDay
    xDate = Format(Y & "/" & M & "/" & D, "yyyymmdd")
        ............    
    With ActiveSheet.QueryTables.Add(Connection:= "URL;https://www.twse.com.tw/fund/BFI82U?response=html&dayDate=" & xDate &  "&weekDate=20221128&monthDate=20221101&type=day"", Destination:=Range("$A$1"))
        ............
        .Name = "BFI82U?response=html&dayDate=" & xDate & "&weekDate=20221121&monthDate=20221123&type=day"
        ............ 
        ............        
        ............ 
    End With
    ★ 套進 -- [ 程式碼 / EXCEL函式 轉化成 VBA指令 ]
        ............
        ............
Next

[ 程式解說 ] :
☆ 為了方便解說，簡化了些步驟，只製作單月抓取的程式碼，若有需要多月，甚至一年的抓取，請自行嘗試或留言詢問囉 !

0. 首先，要先了解如何利用『變數』，來抓取不同日期的證交所資料。
◎ 以上方 錄製巨集 抓取 2022/12/01 三大法人買賣超金額統計表的數據為例，程式碼裡會出現 20221201 的日期資料，這便是我們要利用日期變數修改的位置，來達成抓取不同日期的目的。

[ 替代結果 ] :

( PS. 替代方法 : 就是利用文字組合的功能，將字句切開，把日期替換成變數，再利用 ” “ 雙引號和 & 符號，將其組合起來。若不明瞭文字組合的用法，請參考 : 文字組合。)

1. 已知證交所連線程式碼中，需要一個 xDate 變數，來轉換抓取日期，日期格式為 : 20221201，所以在連線前需要先給予 xDate 一個日期值。
◎ xDate = Format(Y & “/” & M & “/” & D, “yyyymmdd”) : 為了接收符合日期格式的資料，則利用 Format 函式，將 Y & “/” & M & “/” & D 文字組合出來的日期，轉換成 yyyymmdd 格式。

2. 至於 Y & “/” & M & “/” & D 的 年 / 月 / 日 變數，則利用三組公式來求得。
◎ Y = Left(endDate, 4) : 年的部分，( 例 ) : ” 20221201 “，日期文字變數中，取得左邊(Left)4個文字。
◎ M = Mid(endDate, 5, 2) : 月的部分，( 例 ) : ” 20221201 “，日期文字變數中，取得中間(Mid)含第5個的2個文字。( PS. 左邊第1個文字為 : 1。)
◎ xDay = Right(endDate, 2) : 日的部分，( 例 ) : ” 20221201 “，日期文字變數中，取得右邊(Right)2個文字。
( 奇怪 : 這應該是 D 吧 ? 怎麼會是 xDay ? 那是因為要利用 FOR ~ NEXT 來跑一個月的迴圈，所以必須多一個變數(xDay)來做轉換。)

3. For D = 1 To xDay : 這就是跑日期的迴圈。xDay 可以是任何你想抓取資料的最後日期，也可以是每個月的最後一日( = 1個月的資料抓取 )。
( PS. 抓取方式 : 皆是由第 1 日開始抓起。)

4. endDate = “20221130” : 這是日期文字變數。程式開始時，就必須先給予抓取證交所資料的結束日期。
( PS. 更改欲下載的 年月日，便能一次抓取最多一個月的資料。)

[ 程式碼 / EXCEL函式 轉化成 VBA指令 ] :
Sheets("抓取_歷史買賣超資料").Select
xRow = Range("A65536").End(xlUp).Offset(1).Row
Range("A" & xRow) = Format(Y & "/" & M & "/" & D, "yyyy/mm/dd") '日期
Range("B" & xRow) = "=買賣金額統計表!D6/100000000"  '外資&陸資 -- 合計
Range("C" & xRow) = "=買賣金額統計表!D5/100000000"  '投信 -- 合計
Range("D" & xRow) = "=買賣金額統計表!D3/100000000"  '自營商(自行買賣)
Range("E" & xRow) = "=買賣金額統計表!D4/100000000"  '自營商(避險)
Range("F" & xRow) = "=D" & xRow & "+E" & xRow
Range("G" & xRow) = "=B" & xRow & "+C" & xRow & "+F" & xRow
     
Range("A" & xRow & ":G" & xRow).Copy     ' 複製 / 貼上 : 數值
Range("A" & xRow).PasteSpecial Paste:=xlPasteValues

[ 程式解說 ] :
◎ 同 每天收集三大法人現貨買賣超 ( 轉化VBA — 操作解說 ) 相同。

[ 設計目的 ] :
1. 利用游標移動 .End(xlUp).Offset(1) 的功能，找出最新列，填進連結公式，取得當日法人買賣超資料，達到記錄儲存的目的。
2. 步驟(1)雖然能完成當日記錄儲存，但連結公式還在，這會導致隔天的資料一更新，前一天的資料會跟著改變，而產生資料錯誤。
◎ 解決方法 : 利用 xlPasteValues 參數，將當日連結公式的資料，轉換成 : 數值，這樣便能每天記錄法人買賣超的資料。

剔除星六/日(無資料)的方法

E. 利用步驟(D)的FOR ~ NEXT迴圈，從月初的數據抓到月底，你會發現連周六/日(無數據)的資料，一併抓取，這時你就要利用程式，將其刪除，才能保持歷史資料的完整性。

[ 周六/日 – 無資料之現象 ] :

    [ 程式碼 / 刪除證交所無數據的資料 ]
    If Range("B" & xRow) = 0 Then Range("A" & xRow & ":G" & xRow).ClearContents

[ 程式解說 ] :
◎ If Range(“B” & xRow) = 0 Then Range(“A” & xRow & “:G” & xRow).ClearContents : 使用 IF指令，當 Range(“B” & xRow) = 0 ( 參考上圖 B6欄位，其值為 : 0 )，便執行 Range(“A” & xRow & “:G” & xRow).ClearContents ( 將 A6 ~ G6 的欄位資料清除。)

刪除連線工作表舊資料

F. 刪除連線工作表舊資料 : 上次連線的舊資料，若不刪除，會導致再連線抓取時，產生覆蓋資料的錯誤。( PS. 刪除指令，必須放在連線前。)

[ 程式碼 / 刪除連線工作表舊資料 ]
For D = 1 To xDay
        Sheets("買賣金額統計表").Select
        Range("A:E").Delete
        xDate = Format(Y & "/" & M & "/" & D, "yyyymmdd")

刪除所有連線

G. 刪除所有連線 : 避免檔案膨脹，才不會導致系統當機。( PS. 因為每連線一次，就產生一條連線，執行越久，存留在系統內的連線越多。)

[ 程式碼 / 刪除所有連線 ]
Do While ThisWorkbook.Connections.Count > 0
       ThisWorkbook.Connections.Item(ThisWorkbook.Connections.Count).Delete
Loop

[ 程式解說 ] :
◎ Do While ~ Loop : 有條件的無限迴圈。( ※ 請參考 — Do While ~ Loop 語法。)
1. Do While ThisWorkbook.Connections.Count > 0 : 當活頁簿中的連線數 > 0 (判斷式成立:True)，則執行下方程序，若連線數 = 0 (判斷式成立:FALSE)，則結束迴圈。
2. ThisWorkbook.Connections.Item(ThisWorkbook.Connections.Count).Delete : 根據連線數的數值，予以刪除。
3. Loop : Do While 迴圈的結束點。

延遲證交所抓取時間

H. 延遲證交所抓取時間: 避免被證交所防盜機制識破，故延遲抓取時間，以防連線中斷。

[ 程式碼 / 延遲證交所抓取時間 ]
Application.Wait (Now + TimeValue("00:00:06"))

[ 程式解說 ] :
◎ Application.Wait (Now + TimeValue(“00:00:06”)) : 使用 Wait 函式，將現在(Now)時間 + 6秒，再執行。( PS. 等同 : 延遲 6 秒。)

製作啟動按鈕

※ 完成證交所資料下載程序，為了方便執行，可在工作表內製作按鈕，直接做啟動的動作。

[ 啟動按鈕製作 ] :
1. 按鈕製作方法 : 請參考 — VBA 按鈕製作。

2. 指定巨集 : 游標移動到 更新數據 按鈕上，按 : 滑鼠右鍵，點選 : 指定巨集。

3. 確定巨集名稱 : 出現 指定巨集 視窗後，選取 : 抓取_法人現貨買賣超_歷史資料 巨集名稱。

歷史資料建置

[ 操作步驟 ] :
1. 新增一個名稱 : 買賣超歷史總覽_舊版 的工作表( 格式相同於 抓取_歷史買賣超資料 工作表 )，用於儲存三大法人買賣超金額的所有歷史資料。
( PS. 先前的 抓取_歷史買賣超資料 工作表，僅做為資料暫存區使用。當然也有其他方法，能達成儲存任務，但避免複雜，這裡就不贅述。)

2. 參考下方右圖，完成 2022/11月 的資料下載後，將其資料選取 → 複製 ( Ctrl + C )，再切換至 買賣超歷史總覽_舊版 工作表，點選 : B4欄位，貼上 ( Ctrl + V )，參考下方左圖( A4 : G25 )，如此便完成11月法人買賣超的資料存檔。至於下方( 26 / 27列 )的12月份資料，同做法，再操作一次，即可。
( PS. 歷史資料全部存檔完成，就無須再做，之後便交由 每日更新 程式，來完成每日下午四點的數據更新，即可。)

法人買賣超當日資料更新

◎ 法人(外資)買賣超的當日交易資料更新程式，只要將 抓取_法人現貨買賣超_歷史資料 的程式碼稍作修改，便能完成。
※ 修改程式碼如下 —-

[ 程式碼 / 法人買賣超當日資料更新 ]

Sub 三大法人現貨買賣超_舊版()

~~On Error GoTo xERROR~~
~~endDate = “20221130”~~
~~Y = Left(endDate, 4)~~
~~M = Mid(endDate, 5, 2)~~
~~xDay = Right(endDate, 2)~~

~~For D = 1 To xDay~~
Sheets(“買賣金額統計表”).Select
Range(“A:E”).Delete

~~xDate = Format(Y & “/” & M & “/” & D, “yyyymmdd”)~~ → 改為 : xDate = Format(Now(), “yyyymmdd”)
…………

完整程式碼 : 抓取法人買賣超歷史資料

Sub 抓取_法人現貨買賣超_歷史資料()

On Error GoTo xERROR
endDate = "20221130"
Y = Left(endDate, 4)
M = Mid(endDate, 5, 2)
xDay = Right(endDate, 2)

For D = 1 To xDay
    Sheets("買賣金額統計表").Select
    Range("A:E").Delete

    xDate = Format(Y & "/" & M & "/" & D, "yyyymmdd")

    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://www.twse.com.tw/fund/BFI82U?response=html&dayDate=" & xDate & "", Destination:=Range("$A$1"))
        '.CommandType = 0
        .Name = _
        "BFI82U?response_html_dayDate_20221201_weekDate_20221128_monthDate_20221101_type_day_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

    Sheets("抓取_歷史買賣超資料").Select
    xRow = Range("A65536").End(xlUp).Offset(1).Row
    Range("A" & xRow) = Format(Y & "/" & M & "/" & D, "yyyy/mm/dd") '日期
    Range("B" & xRow) = "=買賣金額統計表!D6/100000000"  '外資&陸資 -- 合計
    Range("C" & xRow) = "=買賣金額統計表!D5/100000000"  '投信 -- 合計
    Range("D" & xRow) = "=買賣金額統計表!D3/100000000"  '自營商(自行買賣)
    Range("E" & xRow) = "=買賣金額統計表!D4/100000000"  '自營商(避險)
    Range("F" & xRow) = "=D" & xRow & "+E" & xRow
    Range("G" & xRow) = "=B" & xRow & "+C" & xRow & "+F" & xRow
     
    Range("A" & xRow & ":G" & xRow).Copy     ' 複製 / 貼上 : 數值
    Range("A" & xRow).PasteSpecial Paste:=xlPasteValues

    If Range("B" & xRow) = 0 Then Range("A" & xRow & ":G" & xRow).ClearContents

    Do While ThisWorkbook.Connections.Count > 0
           ThisWorkbook.Connections.Item(ThisWorkbook.Connections.Count).Delete
    Loop

    Application.Wait (Now + TimeValue("00:00:06"))

Next

xERROR:
        ' 防呆機制 : 避免日期輸入錯誤，執行後，產生錯誤視窗。

End Sub

補充重點 : 防呆機制

※ 防呆 : 顧名思義 — 防止呆滯。避免程式發生錯誤而中斷，則利用 On Error 來啟動錯誤處理機制。( ◎ 請參考 : On Error 函式語法。)

[ 程式碼 / 防呆機制 ]
On Error GoTo xERROR
        ............
        ............
xERROR:
        ' 防呆機制 : 避免日期輸入錯誤，執行後，產生錯誤視窗。

[ 程式解說 ] :
◎ On Error GoTo xERROR : 程式執行中，只要發生錯誤(Error)，系統便會啟動錯誤處理機制，將動作跳轉(GoTo)到標籤(xERROR)位置執行。
◎ xERROR: : 標籤名稱( ERROR ) 後面 +『：』。

結論

外資買賣超歷史資料 附屬於三大法人買賣超歷史資料，想做多久的分析，均可依照需求來完成多少年月的資料下載，其資料經操作步驟下載完成後，再藉由資料轉貼/整理，儲存成完整的歷史資料源，提供給 輕鬆教會你 – 製作外資買賣超與加權指數關係圖 一文，做為數列數據源，再與大盤歷史資料搭配，製作出相對應的分析圖表。

非常感謝您看到最後，若在閱讀的過程中，有任何疑問，歡迎您利用左下角 Messenger 直接提問或寫信給我，我會盡快回覆您，最後感謝您的閱讀，感恩 !

( PS. 如果喜歡 股小白 的文章，歡迎到 股小白臉書粉絲頁 點讚，衝人氣，目前不定期分析大盤趨勢，將來會有 每日公報 : 分析並公布跑分的個股資料，讓大家作為投資參考。 )

關聯文章

1. 每天收集三大法人現貨買賣超 < 整體數據篇 >

講述如何利用 EXCEL 上網抓取三大法人當日的整體買賣投資金額，並設計表格，運用 VBA程式設計，將各數據加以整理、計算，逐日記錄三大法人買賣動態，以掌握進出籌碼，評估未來的大盤走勢。

2. 3分鐘教會你 – 製作三大法人個股買賣超排行榜

講述如何利用 EXCEL 上網抓取三大法人當日的個股分項買賣金額，再運用 VBA程式，將法人買賣超數據加以整理/排序，分類製作出買/賣超前20名股票排行榜。

3. 輕鬆教會你 – 製作外資買賣超與加權指數關係圖

由於外資買賣超對加權指數有著相對的影響性，若是利用關係圖表，能更清晰看出差異性，凸顯重點。基於此，本篇文章則採用圖文對照的方式，手把手教會你如何利用VBA圖表的語法設定 — 新增圖表 / 訂定圖表大小 / 建立數列 / 變更圖表類型 / 變更數列範圍 / 調整數列位置等功能，來達成自動完成圖表製作的目的。

3-1. 輕鬆幾步驟 – 抓取外資買賣超歷史資料

外資買賣超歷史資料可透過證交所網站提供的三大法人買賣金額統計表歷史資料下載機制，下載需要的年月日資料，再藉由VBA程式，將其整理/轉貼，建置成完整的歷史資料，提供給外資賣賣超與大盤歷史資料關係圖一文，做為數列數據源，再與大盤歷史資料搭配，製作出相對應的分析圖表。

3-2. 輕鬆幾步驟 – 抓取加權指數歷史資料

加權指數歷史資料是證交所每日下午三點前會公布的當日交易記錄。同時，證交所網站也提供下載連結點，方便大家下載 : 發行量加權股價指數歷史資料 及 市場成交資訊，擷取大盤當日或歷史交易資訊，再藉由VBA程式，將其格式轉換/整理，建置成完整的大盤歷史資料，提供給外資賣賣超與大盤歷史資料關係圖一文，做為數列數據源，再與外資賣賣超歷史資料搭配，製作出相對應的分析圖表。

V B A 資源

EXCEL & VBA功能 – 綜合筆記

EXCEL & VBA功能筆記 : 將針對文章中所使用的 EXCEL 及 VBA公式 / 工具操作 / 巨集設定 / 控制項的運用，做個整合記錄，方便大家在學習當下的參考與使用。

VBA指令 – 彙整筆記

VBA 提供相當多的指令用法，VBA指令彙整筆記，將會陸續記錄 VBA文章中，所用過的 VBA指令，方便學員們對照運用。

VBA程式語法 – 彙整筆記

語法就是程式的文法。使用者要與電腦溝通，就必須遵守這些規則。VBA程式語法筆記 : 將針對 VBA文章中所使用的 VBA程式語法，做個整合記錄，方便大家在學習當下參考與使用。

外資買賣超歷史資料 來源

外資買賣超歷史資料 抓取

證交所 – 抓取 外資買賣超歷史資料