如何在Excel中实现动态灵活的外部文件引用链接？

你说的这种动态引用是可行的，但直接拼接文本只会得到字符串，得借助函数或工具把字符串转换成有效引用，分两种场景给你解决方案：

场景1：外部文件已打开 #

用INDIRECT函数就能实现，公式写成：

=INDIRECT("'" & D11 & "[" & D12 & "]RIMERN Orders'!$A$5")

INDIRECT的作用就是把你拼接出来的文本字符串，转换成实际的单元格引用，直接返回目标单元格的值。

场景2：外部文件未打开 #

默认情况下INDIRECT没法引用未打开的外部文件，这时候有两个实用方法：

方法1：用Power Query动态加载数据 #

这种方法不用宏，稳定性高：

• 点击「数据」选项卡 →「获取数据」→「从文件」→「从Excel工作簿」
• 随便选一个示例Excel文件，进入Power Query编辑器
• 点击「高级编辑器」，把原代码里的文件路径替换成File.Contents(D11&D12)，示例代码大概是：

  let
      Source = Excel.Workbook(File.Contents(D11&D12), null, true),
      RIMERNOrders_Sheet = Source{[Item="RIMERN Orders",Kind="Sheet"]}[Data],
      TargetValue = RIMERNOrders_Sheet{[Column="A",Row=5]}[Column1]
  in
      TargetValue
  

• 点击「关闭并上载」，把结果加载到Excel单元格里。之后只要修改D11或D12的内容，右键刷新数据就能拿到最新值。

方法2：用VBA自定义函数 #

如果需要更灵活的单元格引用，可以写个简单的VBA函数：

1. 按Alt+F11打开VBA编辑器
2. 插入一个新模块，粘贴以下代码：

   Function GetExternalValue(filePath As String, sheetName As String, cellAddr As String) As Variant
       Dim wb As Workbook
       On Error Resume Next
       ' 只读打开文件，避免锁定
       Set wb = Workbooks.Open(filePath, ReadOnly:=True, UpdateLinks:=False)
       GetExternalValue = wb.Sheets(sheetName).Range(cellAddr).Value
       ' 关闭文件不保存
       wb.Close SaveChanges:=False
       On Error GoTo 0
   End Function
   

3. 返回Excel，在单元格里输入公式：

   =GetExternalValue(D11&D12, "RIMERN Orders", "$A$5")
   

   这个函数会后台打开目标文件读取值，然后自动关闭，不用手动打开文件，但需要启用宏。

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