1、選擇單個(gè)文件

Sub SelectFile()'選擇單一文件'www.okexcel.com.cnWith Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False'單選擇.Filters.Clear'清除文件過濾器.Filters.Add "Excel Files", "*.xls;*.xlw".Filters.Add "All Files", "*.*"'設(shè)置兩個(gè)文件過濾器If .Show = -1 Then'FileDialog 對(duì)象的 Show 方法顯示對(duì)話框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。MsgBox "您選擇的文件是：" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"End IfEnd With End Sub

2、選擇多個(gè)文件

Sub SelectFile()'選擇多個(gè)文件'www.okexcel.com.cnDim l As LongWith Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = True'單選擇.Filters.Clear'清除文件過濾器.Filters.Add "Excel Files", "*.xls;*.xlw".Filters.Add "All Files", "*.*"'設(shè)置兩個(gè)文件過濾器.Show'FileDialog 對(duì)象的 Show 方法顯示對(duì)話框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。For l = 1 To .SelectedItems.CountMsgBox "您選擇的文件是：" & .SelectedItems(l), vbOKOnly + vbInformation, "智能Excel"NextEnd With End Sub

3、選擇文件夾

Sub SelectFolder()'選擇單一文件'www.okexcel.com.cnWith Application.FileDialog(msoFileDialogFolderPicker)If .Show = -1 Then'FileDialog 對(duì)象的 Show 方法顯示對(duì)話框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。MsgBox "您選擇的文件夾是：" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"End IfEnd With End Sub

總結(jié)

以上是生活随笔為你收集整理的【办公-excel】VBA 选择文件、文件夹的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。