msoFileDialogFolderPicker关闭的方法

在 VBA 中，调用 msoFileDialogFolderPicker 对话框后，可以通过执行其 Execute 方法打开对话框，并等待用户选择文件夹。当用户选择完文件夹后，可以通过对话框的 SelectedItems 属性获取用户选择的文件夹路径。

在选择完成后，可以使用对话框的 Close 方法关闭对话框，例如：

Sub SelectFolder()
    Dim folderDialog As FileDialog
    Set folderDialog = Application.FileDialog(msoFileDialogFolderPicker)
    folderDialog.AllowMultiSelect = False
    If folderDialog.Show = -1 Then
        ' 用户选择了文件夹
        Dim selectedFolder As String
        selectedFolder = folderDialog.SelectedItems(1)
        ' 其他操作
    End If
    folderDialog.Close ' 关闭对话框
End Sub

在关闭对话框之前，需要先判断用户是否选择了文件夹，否则可能会出现异常。