求助：无需打开大Excel文件，用VBA按行列索引提取单元格值

以下是修正后的VBA代码，可直接通过行列索引提取目标单元格值，且无需打开目标文件：

Sub ExtractCellValue()
    Dim filePath As String
    Dim fileName As String
    Dim sheetName As String
    Dim targetRow As Long
    Dim targetCol As Long
    Dim cellValue As Variant
    
    ' 配置参数，根据实际情况修改
    fileName = "Excel_File.xlsx"
    sheetName = "Sheet1" ' 替换为目标文件中的实际工作表名称
    targetRow = 5
    targetCol = 4
    
    ' 处理路径拼接，确保末尾包含反斜杠
    filePath = ThisWorkbook.Path
    If Right(filePath, 1) <> "\" Then filePath = filePath & "\"
    
    ' 用R1C1格式直接指定行列，调用ExecuteExcel4Macro提取值
    cellValue = ExecuteExcel4Macro("'" & filePath & "[" & fileName & "]" & sheetName & "'!R" & targetRow & "C" & targetCol)
    
    ' 反馈结果
    If IsError(cellValue) Then
        MsgBox "提取失败：请检查文件路径、工作表名称是否正确", vbExclamation
    Else
        MsgBox "第" & targetRow & "行第" & targetCol & "列的值为：" & cellValue, vbInformation
    End If
End Sub

原代码的问题说明 #

1. 文件名不匹配：你原代码中使用的是Random_Number_Matrix.xls，但实际目标文件是Excel_File.xlsx，需保持文件名一致
2. 路径格式错误：ThisWorkbook.Path末尾可能没有反斜杠，直接拼接会导致路径格式无效，需要手动补充
3. 地址构造冗余：无需通过Range("A1").Address转换，直接用R[行号]C[列号]的R1C1格式即可精准指定目标单元格

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