【vba】【excel】宏 选择文件夹

    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = strPath
        .Title = "请选择文件夹"
        .Show
        MyPath = .SelectedItems(1) & "\"
    End With

  主要是这个方法得利用Application.FileDialog，还有很多其他得参数可以设定

FileDialog属性设定：

1. AllowMultiSelect ：允许用户从文件对话框中选择多个文件，填写 True。
2. Filters.Add 规则名称, 过滤文件类型, 规则起始位置（初始为1） ：添加过滤规则
3. SelectedItems ：选取的多个文件集合
4. InitialFileName ：设置初始路径和文件名称
5. InitialView ：可以设置初始文件的显示样
6. Title ：设定对话框标题
7. show ：可以判断用户是否点击了取消按钮,如果点击取消会返回0,否则返回-1
8. ilters.Clear ：清除当前的过滤规则
9. ButtonName ：选择按键名称