如何通过Excel输入的变量名快速打开多级匹配子文件夹

核心基于Excel VBA实现，不需要安装第三方工具，直接适配J:\Projects多层嵌套目录的搜索需求，支持带空格的文件夹名（比如示例的AB 123456）。

部署步骤 #

• 先确认映射网络盘J:\Projects可正常访问，当前账号拥有所有子目录的读取权限，避免搜索时因权限问题漏检。
• 打开需要使用该功能的Excel文件，按Alt+F11调出VBA编辑器。
• 在左侧工程栏右键点击当前工作簿名称，选择「插入」-「模块」，将下面的核心代码粘贴到右侧代码编辑区：

' 递归搜索匹配文件夹的核心逻辑
Function FindTargetFolder(startPath As String, folderName As String) As String
    Dim fso As Object, subFolder As Object, searchResult As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 校验起始搜索路径有效性
    If Not fso.FolderExists(startPath) Then
        FindTargetFolder = ""
        Exit Function
    End If
    
    ' 遍历当前层级所有子文件夹
    For Each subFolder In fso.GetFolder(startPath).SubFolders
        ' 匹配到完全同名的文件夹直接返回路径
        If subFolder.Name = folderName Then
            FindTargetFolder = subFolder.Path
            Exit Function
        End If
        ' 未匹配则递归搜索下一层目录
        searchResult = FindTargetFolder(subFolder.Path, folderName)
        If searchResult <> "" Then
            FindTargetFolder = searchResult
            Exit Function
        End If
    Next
    
    FindTargetFolder = ""
    Set fso = Nothing
End Function

' 主方法：读取单元格内容、执行搜索、打开目标目录
Sub OpenTargetFolder()
    Dim targetFolderName As String, baseSearchPath As String, finalPath As String
    ' 固定搜索根目录
    baseSearchPath = "J:\Projects"
    ' 读取当前选中单元格的内容，自动清除首尾无效空格
    targetFolderName = Trim(ActiveCell.Value)
    
    ' 基础输入校验
    If targetFolderName = "" Then
        MsgBox "请先选中输入了目标文件夹名称的单元格", vbExclamation
        Exit Sub
    End If
    
    ' 执行递归搜索
    finalPath = FindTargetFolder(baseSearchPath, targetFolderName)
    
    If finalPath = "" Then
        MsgBox "在J:\Projects路径下未找到名称为【" & targetFolderName & "】的子文件夹", vbInformation
    Else
        ' 调用系统资源管理器打开目标目录，自动兼容带空格的路径
        Shell "explorer.exe """ & finalPath & """", vbNormalFocus
    End If
End Sub

触发方式配置 #

你可以根据自己的使用习惯选任意一种触发方式：

• 快捷键触发：回到Excel主界面，点「开发工具」选项卡-「宏」，选中OpenTargetFolder后点「选项」，设置自定义快捷键（比如Ctrl+Shift+O），后续只要选中输入了文件夹名的单元格，按快捷键就会自动搜索并打开对应目录。
• 输入后自动触发：如果要实现输完文件夹名选中单元格就自动执行，可以在VBA编辑器左侧双击你要使用该功能的工作表名称，将下面的代码粘贴到编辑区，可自行修改代码里的列号限定触发范围（示例为仅A列输入时触发）：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 限定仅A列单个单元格选中时触发，可按需修改列号
    If Not Intersect(Target, Me.Columns("A")) Is Nothing And Target.Count = 1 Then
        If Trim(Target.Value) <> "" Then
            Call OpenTargetFolder
        End If
    End If
End Sub

注意事项 #

• 必须将文件保存为.xlsm格式（启用宏的工作簿），打开文件时点击顶部提示栏的「启用内容」，宏代码才能正常运行
• 如果目录下存在多个同名子文件夹，当前代码会优先返回层级最浅的第一个匹配项；如果需要列出所有匹配项手动选择，可以修改核心搜索函数，将所有匹配路径存入数组后弹窗选择即可
• 搜索速度取决于J:\Projects下的总文件/文件夹数量，如果目录量级特别大，可以给代码加个搜索超时逻辑避免长时间卡住

内容的提问来源于stack exchange，提问作者Carolien