今天分享一段超实用的 运用VBA 去浏览文件夹。 运行这段代码，会弹出一个 “浏览文件夹” 的对话框，标题是 “GetFolder” ，可以方便地选择目标文件夹。 代码中，先是通过CreateObject("Shell.Application").BrowseForFolder 创建对象并调出对话框。如果选了文件夹，就获取其路径；没选的话，会提示 “Folder not Selected” 。最后还会检查路径末尾，自动补全路径分隔符。代码如下： Sub ListFilesTest() Set myFolder = CreateObject("Shell.Application").BrowseForFolder(0, "GetFolder", 0) If Not myFolder Is Nothing Then myPath$ = myFolder.Items.Item.Path Else MsgBox "Folder not Selected": Exit Sub If Right(myPath, 1) "" Then myPath = myPath & "" End If End If End Sub 对于经常和文件、文件夹打交道的办公族来说，这段代码能大幅提高工作效率，快速获取文件夹路径。感兴趣的朋友可以试试。