vba代码大全009：如何用vba打开选择文件和选择文件夹对话框？

在编写vba代码的解决方案时，为了使解决方案更加的具有人机交互性，经常会提供各种对话框让用户进行选择。

其中选择文件或者选择文件夹对话框是最经常用到的，本文介绍几种在vba中打开选择文件和选择文件夹对话框的方法。

方法一：使用vba内置的FileDialog对象用于操作打开文件和选择文件夹对话框

vba中为我们内置了一个FileDialog对象用于操作打开文件和选择文件夹对话框。实际上，根据不同的MsoFileDialogType类型，它可以提供4种不同的对话框，具体如下：

每次都要用FileDialog对象的Show方法来打开对话框，当选择了文件或者文件夹后，选择的文件名或者文件夹的路径都将存储在FileDialogSelectedItems集合中，该集合可以用FileDialog对象的SelectedItems属性获得。

以下是一段通用的打开选择文件的对话框的vba代码：

Function GetPath() As String
    '声明一个FileDialog对象变量
    Dim oFD As FileDialog
    Dim oFDFilter As FileDialogFilters
'    '创建一个选择文件对话框
    Set oFD = Application.FileDialog(msoFileDialogFilePicker)
    '创建一个选择文件夹对话框
'    Set oFD = Application.FileDialog(msoFileDialogFolderPicker)
    '声明一个变量用来存储选择的文件名
    Dim vrtSelectedItem As Variant
    With oFD
        .Filters.Clear
        .Filters.Add "Excel文件", "*.xls*", 1
        .Filters.Add "Word文件", "*.doc*", 2
        '允许选择多个文件
        .AllowMultiSelect = True
        '使用Show方法显示对话框，如果单击了确定按钮则返回-1。
        If .Show = -1 Then
            '遍历所有选择的文件
            For Each vrtSelectedItem In .SelectedItems
                '获取所有选择的文件的完整路径,用于各种操作
                GetPath = vrtSelectedItem
            Next
            '如果单击了取消按钮则返回0
        Else
        End If
    End With
    '释放对象变量
    Set oFD = Nothing
End Function

如果要改成选择文件夹的对话框只需要将
Application.FileDialog(msoFileDialogFilePicker)改成 Application.FileDialog(msoFileDialogFolderPicker)即可。

方法二：使用Shell对象的BrowseForFolder方法打开选择文件夹对话框

它的语法如下：

Shell.BrowseForFolder( _
  ByVal Hwnd As Integer, _
  ByVal sTitle As BSTR, _
  ByVal iOptions As Integer, _
  [ ByVal vRootFolder As Variant ] _
) As FOLDER

其中Hwnd参数为拥有对话框的窗体的句柄，sTitle参数为对话框的标题，iOptions参数为对话框的一些设置，vRootFolder参数为可选参数，一般省略。

它的返回值是一个文件夹Folder对象。

代码如下：

Sub QQ1722187970()
    Dim oShell As Object
    Dim oFolder As Object
    Set oShell = VBA.CreateObject("shell.application")
    With oShell
       Set oFolder = .BrowseForFolder(0, "请选择要打开的文件夹", 0)
       With oFolder
        If Not (oFolder Is Nothing) Then
             MsgBox "你选择的是" & .Title
        Else
            MsgBox "你没有选择文件夹"
        End If
       End With
    End With
End Sub