let fd = Application.FileDialog(msoFileDialogFolderPicker); fd.InitialFileName=ThisWorkbook.Path; if(fd.Show() == -1) {return fd.SelectedItems.Item(1)} else return;//退出
时间: 2023-07-15 13:09:52 浏览: 150
文件对话框(FileDialog)
5星 · 资源好评率100%
这段代码是用来打开一个文件夹选择对话框,并返回用户所选择的文件夹路径的。具体来说,它使用了 Microsoft Office 的 Application.FileDialog 对象来创建一个文件夹选择对话框(msoFileDialogFolderPicker)。然后,设置对话框的初始文件夹路径为当前 Excel 文件所在的路径(ThisWorkbook.Path)。
当用户点击对话框的“确定”按钮并选择了一个文件夹时,代码会返回用户所选择的文件夹路径。如果用户取消了对话框,则返回空值(null)。
阅读全文