在不打开工作簿的情况下读取单元格值[重复]

Question

Set ObjWB = Workbooks.Open("c:\Test.xlsx")

如果我使用workbooks.open 命令，则会打开该 Excel 工作簿。

我需要在不打开 Excel 工作簿的情况下读取单元格值。

Answer 1

在ReadFromClosedWorkbook（工作簿和工作表）中设置参数后运行子GetValue。您可以将它们中的一个或两个作为参数从调用过程中传递。

Sub GetValue()
    Debug.Print ReadFromClosedWorkbook("A1")
End Sub

Private Function ReadFromClosedWorkbook(Target As String) As Variant

    Const WbFullName = "D:\My Documents\Your file name.xlsx"

    Dim PathName As String
    Dim WbName As String
    Dim WsName As String
    Dim Target As String
    Dim Sp() As String

    WsName = "My Worksheet's Name"

    Sp = Split(WbFullName, "\")
    WbName = Sp(UBound(Sp))
    ReDim Preserve Sp(UBound(Sp) - 1)
    PathName = Join(Sp, "\") & "\"
    If Len(Dir(WbFullName)) Then
        Target = "'" & PathName & _
                 "[" & WbName & "]" & WsName & _
                 "'!" & Range(Target).Address(True, True, xlR1C1)
        ReadFromClosedWorkbook = ExecuteExcel4Macro(Target)
    End If
End Function