VBA如何选择文件夹

在 VBA 中选择文件夹也有多种方法，下面介绍两种比较常见的方法：

1. 使用 FileDialog 对象

可以使用 VBA 的 FileDialog 对象来让用户选择文件夹，然后获取选中文件夹的路径。具体步骤如下：

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)

With fd
    .Title = "请选择文件夹"

    If .Show = -1 Then
        ' 用户选择了文件夹
        Debug.Print .SelectedItems(1)
    Else
        ' 用户取消了选择
    End If
End With

上述代码中，首先创建了一个 FileDialog 对象，并设置了对话框的标题。然后调用 Show 方法显示文件夹对话框，如果用户选择了文件夹，则可以通过 SelectedItems 属性获取选中文件夹的路径。

2. 使用 Shell 对象

可以使用 VBA 的 Shell 对象来弹出文件夹选择对话框，然后获取选中文件夹的路径。具体步骤如下：

Dim folderPath As String
With CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, 0)
    If Not .IsNothing Then
        folderPath = .Self.Path
    Else
        ' 用户取消了选择
    End If
End With
Debug.Print folderPath

上述代码中，使用 CreateObject 方法创建了一个 Shell 对象，并调用 BrowseForFolder 方法弹出文件夹选择对话框，如果用户选择了文件夹，则可以通过 Self 属性获取选中文件夹的路径。注意，如果用户取消了选择，则返回的对象是 Nothing。