如何获取单元格超链接/路径指向的工作簿中指定单元格的值？

核心问题分析 #

你原代码的错误在于：

• Workbooks(pth) 仅能获取已打开的工作簿，关闭状态的文件不在这个集合里，因此qafWb返回Nothing
• 对象赋值需要用Set关键字，即便打开工作簿，正确写法也是Set qafWb = Workbooks.Open(pth)，但这会显式打开文件，不符合你“无需拉取工作表”的需求
• 路径转换Replace(Range("A1").Value, "\", "/")完全没必要，反而会导致路径无效

下面提供两种无需显式打开工作簿的解决方案：

方法1：使用Excel 4.0宏函数（适合单个单元格读取） #

这个方法通过后台读取数据，用户看不到工作簿被打开，语法简单，适合少量单元格读取。

Dim wb As Workbook: Set wb = ThisWorkbook
Dim sh As Worksheet: Set sh = wb.Worksheets(1)
Dim pth As String
Dim targetValue As Variant

' 获取A1中存储的关闭工作簿路径
pth = sh.Range("A1").Value
' 构造Excel 4.0宏格式的字符串：'文件路径[工作表名]'!R1C1（R1C1对应A1单元格）
targetValue = ExecuteExcel4Macro("'" & pth & "'!Sheet1!R1C1")

' 将读取到的值写入当前工作簿B1单元格
sh.Range("B1").Value = targetValue

注意事项： #

• 如果路径包含空格，必须用单引号包裹整个路径+工作表部分
• 单元格地址必须用R1C1格式，若要使用A1格式，可以用Range("A1").Address(ReferenceStyle:=xlR1C1)转换

方法2：使用ADO连接（适合批量读取） #

如果需要读取多个单元格或数据区域，ADO连接更高效，同样无需打开工作簿。

Dim wb As Workbook: Set wb = ThisWorkbook
Dim sh As Worksheet: Set sh = wb.Worksheets(1)
Dim pth As String
Dim conn As Object
Dim rs As Object
Dim sql As String

pth = sh.Range("A1").Value

' 创建ADO连接和记录集对象
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

' 针对xlsm格式的连接字符串（xlsx格式可把"Excel 12.0 Macro"改成"Excel 12.0"）
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & pth & ";Extended Properties=""Excel 12.0 Macro;HDR=NO"";"

' SQL语句读取Sheet1的A1单元格（HDR=NO表示第一行不是表头，F1对应A列）
sql = "SELECT F1 FROM [Sheet1$A1:A1]"
rs.Open sql, conn

' 将读取到的值写入B1
If Not rs.EOF Then sh.Range("B1").Value = rs.Fields(0).Value

' 清理对象
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

扩展：处理单元格区域的超链接 #

如果要遍历A1:A1000区域的超链接，批量读取每个超链接指向工作簿的特定单元格值，可以用以下代码：

Dim wb As Workbook: Set wb = ThisWorkbook
Dim sh As Worksheet: Set sh = wb.Worksheets(1)
Dim hyperlinkCell As Range
Dim hyperlinkPath As String
Dim targetValue As Variant

' 遍历区域内的每个单元格，检查是否有超链接
For Each hyperlinkCell In sh.Range("A1:A1000")
    If hyperlinkCell.Hyperlinks.Count > 0 Then
        ' 提取超链接指向的工作簿路径
        hyperlinkPath = hyperlinkCell.Hyperlinks(1).Address
        ' 读取目标工作簿Sheet1的A1值
        targetValue = ExecuteExcel4Macro("'" & hyperlinkPath & "'!Sheet1!R1C1")
        ' 将值写入当前单元格的右侧列（比如B列）
        hyperlinkCell.Offset(0, 1).Value = targetValue
    End If
Next hyperlinkCell

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