如何查找引用特定Excel工作表的所有关联Excel文件列表？

方法1：手动逐个检查（适合少量文件） #

• 打开每个疑似链接目标文件的Excel文件
• 切换到「数据」选项卡，点击「编辑链接」（部分版本叫「链接」）
• 在弹出的窗口中，查看「源文件」列表，如果包含你的目标文件路径，说明当前文件引用了它
• 手动记录这些文件的路径即可

方法2：VBA批量扫描（高效批量处理） #

如果20多个文件逐个手动查太麻烦，用VBA脚本可以自动遍历指定文件夹里的所有Excel文件，收集所有引用目标文件的列表：

1. 打开任意空白Excel文件，按Alt+F11打开VBA编辑器
2. 右键点击左侧的工程资源管理器，选择「插入」→「模块」
3. 粘贴以下代码，修改代码开头的targetFilePath（你的目标文件完整路径，比如"C:\OldDocs\HistoricalFile.xlsx"）和folderPath（存放所有链接文件的文件夹路径，比如"C:\LinkedFiles\"）：

Sub FindLinkedFiles()
    Dim targetFilePath As String
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim link As Variant
    Dim nm As Name
    
    ' 替换为你的目标文件完整路径
    targetFilePath = "C:\OldDocs\HistoricalFile.xlsx"
    ' 替换为要扫描的文件夹路径（末尾加\）
    folderPath = "C:\LinkedFiles\"
    
    ' 创建新工作簿保存结果
    Workbooks.Add
    With ActiveSheet
        .Range("A1").Value = "引用目标文件的Excel路径"
        .Range("B1").Value = "链接类型"
        .Range("A1:B1").Font.Bold = True
    End With
    
    fileName = Dir(folderPath & "*.xls*")
    Do While fileName <> ""
        ' 只读打开文件，避免锁定
        On Error Resume Next
        Set wb = Workbooks.Open(folderPath & fileName, ReadOnly:=True, UpdateLinks:=3)
        On Error GoTo 0
        
        If Not wb Is Nothing Then
            ' 检查Excel工作表链接
            For Each link In wb.LinkSources(xlExcelLinks)
                If InStr(1, link, targetFilePath, vbTextCompare) > 0 Then
                    With ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(1, 0)
                        .Value = wb.FullName
                        .Offset(0, 1).Value = "工作表链接"
                    End With
                End If
            Next link
            
            ' 检查名称管理器中的隐藏链接
            For Each nm In wb.Names
                If nm.RefersTo Like "*[" & targetFilePath & "]*" Then
                    With ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(1, 0)
                        .Value = wb.FullName
                        .Offset(0, 1).Value = "名称定义链接"
                    End With
                End If
            Next nm
            
            wb.Close SaveChanges:=False
        End If
        
        fileName = Dir
    Loop
    
    MsgBox "扫描完成！结果已保存到当前新建的工作簿中"
End Sub

4. 按F5运行宏，等待扫描完成后，新建的工作簿里会列出所有引用目标文件的路径和链接类型

方法3：Power Query批量检测（无需代码基础） #

如果你不想用VBA，Power Query也能实现批量检测：

1. 打开空白Excel文件，切换到「数据」选项卡
2. 点击「获取数据」→「从文件」→「从文件夹」
3. 选择存放所有链接文件的文件夹，点击「确定」
4. 在弹出的「文件夹」对话框中，点击「转换数据」进入Power Query编辑器
5. 添加自定义列：点击「添加列」→「自定义列」，输入以下公式（替换为你的目标文件完整路径）：

   = List.Contains(Excel.Workbook([Content], null, true)[Links], "C:\OldDocs\HistoricalFile.xlsx")
   

6. 点击「确定」后，筛选「自定义」列中值为True的行
7. 保留「名称」和「完整路径」列，点击「关闭并上载」，即可得到所有引用目标文件的列表

注意事项 #

• 扫描前确保所有Excel文件都处于关闭状态，避免文件锁定
• 目标文件路径必须是完整绝对路径，否则可能检测不到
• 部分隐藏链接（比如条件格式、数据验证中的引用）可能需要额外排查，可结合方法1中的「编辑链接」窗口查看详细信息

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