在日常工作中，若需開啟多個 Excel 檔案進行比對、整合或檢查，手動操作既耗時又容易遺漏。透過 VBA，我們可以建立一個「一鍵開啟」功能，讓使用者選擇資料夾後，自動載入其中所有 Excel 檔案，大幅提升效率。
本文將完整教學如何撰寫這段 VBA 程式碼，並逐段解說其邏輯與應用場景，適合初學者與進階使用者參考。
功能概述
這段 VBA 程式碼可實現以下功能：- 使用者點選按鈕後，開啟資料夾選擇對話框
- 自動讀取該資料夾內所有
.xls、.xlsx、.xlsm檔案 - 依序開啟每個檔案並顯示提示訊息
VBA 程式碼範例
Private Sub CommandButton1_Click()
' 宣告變數
Dim FolderPath As String
Dim File As String
Dim ExcelApp As Object
Dim Workbook As Workbook
' 使用檔案選擇對話框選擇資料夾
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "選擇資料夾"
.AllowMultiSelect = False
If .Show = -1 Then
FolderPath = .SelectedItems(1) & "\"
Else
Exit Sub ' 使用者取消選擇
End If
End With
' 獲取 Excel 應用程式對象
Set ExcelApp = Application
ExcelApp.Visible = True
' 打開資料夾內的所有 Excel 文件
File = Dir(FolderPath & "*.xls*")
Do While File <> ""
Set Workbook = ExcelApp.Workbooks.Open(FolderPath & File)
File = Dir ' 取得下一個檔案
Loop
MsgBox "所有文件已打開", vbInformation
End Sub
程式碼詳細解說（初學者導向）
這段程式碼的目的是讓使用者點選按鈕後，自動開啟指定資料夾內的所有 Excel 檔案。以下是逐段說明：
首先，我們宣告了幾個變數：
FolderPath是用來儲存使用者選擇的資料夾路徑。File是用來儲存目前正在處理的檔案名稱。ExcelApp是指向 Excel 應用程式的物件，這裡直接使用目前的 Excel 實例。Workbook是用來儲存每次開啟的 Excel 檔案物件。
接著，我們使用 Application.FileDialog(msoFileDialogFolderPicker) 開啟一個資料夾選擇對話框。這個對話框會讓使用者選擇一個資料夾：
.Title = "選擇資料夾"設定對話框的標題。.AllowMultiSelect = False表示不允許選擇多個資料夾。If .Show = -1 Then判斷使用者是否按下「確定」，若是，就將選擇的資料夾路徑存入FolderPath，並加上結尾的\。- 若使用者按下「取消」，則使用
Exit Sub結束整段程式碼，不繼續執行。
然後，我們將 ExcelApp 設定為目前的 Excel 應用程式，並確保它是可見的（ExcelApp.Visible = True），這樣使用者可以看到檔案被打開。
接下來是讀取並開啟資料夾內的所有 Excel 檔案：
File = Dir(FolderPath & "*.xls*")使用Dir函數取得第一個符合條件的檔案名稱，這裡的*.xls*會抓到.xls、.xlsx、.xlsm等副檔名。Do While File <> ""表示只要還有檔案，就進入迴圈。Set Workbook = ExcelApp.Workbooks.Open(FolderPath & File)這行會開啟該檔案，並將它存入Workbook變數中。File = Dir這行會取得下一個檔案名稱，若沒有更多檔案，File會變成空字串，迴圈就會結束。
最後，當所有檔案都開啟完畢後，使用 MsgBox "所有文件已打開", vbInformation 顯示提示訊息，告知使用者操作已完成。
這段程式碼的邏輯簡單清楚，非常適合初學者練習「檔案操作」、「對話框控制」與「迴圈處理」等 VBA 基礎技巧。
操作步驟與使用方式
- 在 Excel 的工作表中插入一個 ActiveX 控制項按鈕（CommandButton）
- 將上述程式碼貼入該按鈕的 Click 事件中
- 儲存並執行，點選按鈕後選擇資料夾，即可自動開啟所有 Excel 檔案
應用場景與延伸建議
- 批次開啟報表進行比對或整合
- 教學或訓練時快速載入多個範例檔
- 財務或會計部門定期處理多筆資料
進階延伸功能建議：
- 加入錯誤處理（避免開啟損毀或受保護檔案時中斷）
- 加入進度提示（顯示目前開啟的檔案名稱）
- 自動合併資料至主工作簿
- 支援遞迴開啟子資料夾內檔案（搭配 FileSystemObject）
常見問題 FAQ
Q1：這段程式碼可以開啟子資料夾內的檔案嗎？
目前僅支援選定資料夾的第一層檔案，若需遞迴處理子資料夾，可使用 FileSystemObject 進行擴充。
Q2：是否可以只開啟特定檔名的 Excel？
可以修改 Dir(FolderPath & "*.xls*") 為 Dir(FolderPath & "*報表*.xlsx") 來篩選特定關鍵字。
Q3：如何避免重複開啟已開啟的檔案？
可加入判斷邏輯，例如使用 Workbooks.Count 或比對檔名是否已存在於 Workbooks 集合中。
結語與延伸閱讀
這段 VBA 程式碼提供了高效率的「一鍵開啟 Excel 檔案」功能，適合用於日常資料處理與教學場景。後續你可以進一步加入資料合併、格式轉換或自動分析模組，打造完整的 Excel 自動化工具。
下一篇將介紹如何「一鍵合併多個 Excel 檔案資料」，敬請期待【VBA 自動化教學】第 2 篇。
