Excel VBA 檔案目錄選擇對話框使用教學與範例

介紹如何使用 VBA 的 Application.FileDialog 建立檔案或目錄選擇對話框，讓使用者以滑鼠選擇檔案或目錄。

在 VBA 巨集程式中，有時候會需要讓使用者選擇電腦中的檔案或目錄，由於一般的路徑都很長，不太可能讓使用者輸入路徑，正常來說都會以檔案選擇對話方塊的介面，讓使用者直接用滑鼠點選，以下將介紹如何使用 VBA 的 Application.FileDialog 建立圖形介面（GUI）的檔案或目錄選擇對話框。

選擇單一檔案

Application.FileDialog 可用來建立選擇檔案的視窗，以下是一個簡單的範例：

' 建立 Application.FileDialog 物件
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

' 顯示對話方塊，若傳回 -1 表示有成功選擇檔案
If fDialog.Show = -1 Then
  ' 顯示選擇的檔案
  MsgBox fDialog.SelectedItems(1)
End If

在建立 fDialog 這個對話方塊物件之後，呼叫它的 Show 函數即可在螢幕上顯示檔案選擇的視窗，如果使用者正常選擇了一個檔案之後，Show 就會傳回 -1，我們可以藉此判斷使用者有沒有選擇檔案（或是取消），若有選擇檔案的話，就可以從 SelectedItems　中取出選擇檔案的路徑。

執行後所產生的視窗會像這樣：

當使用者選擇檔案之後，在程式中即可取得類似這樣完整的檔案路徑。

進階屬性

Application.FileDialog 的視窗有許多進階屬性可以調整，例如選擇多檔案、視窗標題、初始目錄與檔案類型等，以下是自訂屬性的範例：

Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

' 允許選擇多檔案
fDialog.AllowMultiSelect = True

' 視窗標題
fDialog.Title = "請選擇 Excel 檔案"

' 初始目錄
fDialog.InitialFileName = "C:"

' 設定檔案類型
fDialog.Filters.Clear
fDialog.Filters.Add "Excel 檔案", "*.xlsx"
fDialog.Filters.Add "所有檔案", "*.*"

If fDialog.Show = -1 Then
  ' 逐一處理每個檔案
  For Each file In fDialog.SelectedItems
    MsgBox file
  Next file
End If

這個範例允許使用者同時選擇多個檔案，同時透過 Filters 的方式，讓使用者在選擇檔案時可以依照副檔名過濾檔案，產生的視窗會像這樣：

選擇目錄

在使用 Application.FileDialog 建立視窗物件時，會傳入一個參數指定視窗類型，其可用的參數如下：

若需要選擇目錄，則可改用 msoFileDialogFolderPicker：

Dim fDialog As FileDialog

' 建立選擇目錄的對話方塊
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)

If fDialog.Show = -1 Then
  ' 顯示選擇的目錄
  MsgBox fDialog.SelectedItems(1)
End If

這樣產生的視窗就會自動把普通檔案隱藏起來，只顯示目錄讓使用者更容易選擇。

儲存檔案

將 Application.FileDialog 的參數改為 msoFileDialogSaveAs 即可產生儲存檔案專用的檔案選擇對話方塊，程式的語法都相同：

' 建立儲存檔案的對話方塊
Set fDialog = Application.FileDialog(msoFileDialogSaveAs)

If fDialog.Show = -1 Then
  MsgBox fDialog.SelectedItems(1)
End If

這樣產生出來的檔案選擇對話方塊，除了文字標示稍微不同之外，也會有檔案取代確認的功能。

參考資料：AnalystCave