返回表示文件對話框實例的 FileDialog 對象。
語法
expression。 FileDialog( _fileDialogType_ )
expression：表示 Application 對象的變量。
參數
| 名稱 | 必需/可選 | 數據類型 | 說明 |
|---|---|---|---|
| fileDialogType | 必需 | MsoFileDialogType | 文件對話框的類型。 |
備注
MsoFileDialogType 可以是 MsoFileDialogType 常量之一。
| msoFileDialogFilePicker。 允許用戶選擇文件。|1主要
| msoFileDialogFolderPicker。 允許用戶選擇文件夾。|2
| msoFileDialogOpen。 允許用戶打開文件。|3
| msoFileDialogSaveAs。 允許用戶保存文件。|4
FileDialogFilters 對象
表示可在使用FileDialog對象顯示一個文件對話框中選擇的文件類型的FileDialogFilter對象的集合。
FileDialogFilters.Add 方法
將新的文件篩選器添加到文件對話框中的文件類型下拉列表框中的篩選器列表。 返回一個代表新添加的文件篩選器的FileDialogFilter對象。
語法
expression。 Add(Description, Extensions, Position)
expression：必需。 一個代表FileDialogFilters對象的變量。
參數
| 名稱 | 必需/可選 | 數據類型 | 說明 |
|---|---|---|---|
| Description | 必需 | String | 要添加的篩選器列表中表示的文件擴展名的說明的文本。 |
| Extensions | 必需 | String | 要添加的篩選器列表中表示的文件擴展名的文本。 可以指定多個擴展和每個必須用分號分隔。 例如，參數可分配給字符串:".txt;.htm"。 注意： 括號不需要在擴展名添加。 說明和擴展名字符串連接到一個文件篩選器項時，Microsoft Office 將自動添加擴展字符串圍繞括號。 |
| Position | 可選 | Variant | 一個數字，指示新控件的篩選器列表中的位置。 將此位置的篩選器之前插入新的篩選器。 如果省略此參數，則篩選器被添加到列表末尾。 |
例子默認路徑下多選excel 或者所有文件，顯示選擇的第一個文件
1 Sub SelectFile() 2 3 '選擇單一文件 4 5 With Application.FileDialog(msoFileDialogFilePicker) 6 .InitialFileName = ThisWorkbook.Path '初始路徑 7 .AllowMultiSelect = True '多選 8 .Filters.Clear '清除文件過濾器 9 10 .Filters.Add "Excel Files", "*.xls;*.xlw" 11 .Filters.Add "All Files", "*.*" 12 '設置兩個文件過濾器 13 14 If .Show = -1 Then 15 'FileDialog 對象的 Show 方法顯示對話框，並且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。 16 MsgBox "您選擇的文件是：" & .SelectedItems(1) 'SelectedItems.Count 多個可以考慮遍歷 17 End If 18 19 End With 20 End Sub