实现点击按钮后打开文件夹选择对话框然后返回所选路径到B3单元格

Sub 选择返回文件夹路径()
    Dim folderPath As String
    Dim fldr As FileDialog
    '创建一个文件对话框对象
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    '设置对话框的标题
    fldr.Title = "请选择一个文件夹"
    '显示对话框并检查用户是否点击了确定按钮
    If fldr.Show = -1 Then
        folderPath = fldr.SelectedItems(1)
        Cells(3, 2) = folderPath
    End If
    '释放对象内存
    Set fldr = Nothing
End Sub