如何用BrowseForFolder方式来调用对话框并返回所选的文件夹的路径给予变量

作者：绿色风分类：时间：2022-08-17 浏览：123

楼主 xmyjk	Q:如何通过弹出对话框后选择文件夹来获取文件夹的路径（非filedialog调用） A: Public Sub getFolder1() Dim objShell Dim objFolder Dim strPath As String Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(0, "选择文件目录", 0, 0) If Not objFolder Is Nothing Then strPath = objFolder.self.path Else strPath = "" End If Set objFolder = Nothing Set objShell = Nothing Debug.Print strPath End Sub 顺便附上filedialog的调用模式。 Public Sub getFolder2() Dim fd As FileDialog Dim strPath As String Set fd = Application.FileDialog(msoFileDialogFolderPicker) If fd.Show = -1 Then strPath = fd.SelectedItems(1) Else strPath = "" End If Set fd = Nothing Debug.Print strPath End Sub 获取文件夹名称.rar
2楼 YESS95	来偷高招的
3楼 xyf2210	谢谢分享
4楼水星钓鱼	感谢分享

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表