Как вытащить значение ячейки не открывая ексель

Set cn = CreateObject("ADODB.Connection")
   
    t = ThisWorkbook.Path & "\in\Книга.xls"
     
     cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & t _
          & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
       Set rs1 = cn.Execute("select * from [Лист1$d1:d1]")
      Cells(1, 1) = rs1.fields(0).Name

    [a1].Formula = "='" & ThisWorkbook.Path & "\in\[Книга.xls]Лист1'!D1"
    [a1].Value = [a1].Value

     cn.Open "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='" & t _
          & "';Extended Properties='Excel 8.0;HDR=Yes;IMEX=1';"

Sub TestGetValue()
    Dim p As String, f As String
    Dim s As String, a As String
    
    p = ThisWorkbook.path
    f = "myworkbook.xlsx"
    s = "Sheet1"
    a = "C5"
    MsgBox GetValue(p, f, s, a)
End Sub
 
Private Function GetValue(path, file, sheet, ref)
'   Retrieves a value from a closed workbook
    Dim arg As String
 
'   Make sure the file exists
    If Right(path, 1) <> "\" Then path = path & "\"
    If Dir(path & file) = "" Then
        GetValue = "File Not Found"
        Exit Function
    End If
 
'   Create the argument
    arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
      Range(ref).Range("A1").Address(, , xlR1C1)
 
'   Execute an XLM macro
    GetValue = ExecuteExcel4Macro(arg)
End Function

rs1.fields(0).value

Sub pr()
    
    Set cn = CreateObject("ADODB.Connection")
    
    t = ThisWorkbook.Path & "\çàäà÷à1.xls"
    
    cn.Open "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='" & t _
         & "';Extended Properties='Excel 8.0;HDR=No;IMEX=1';"
    Set rs1 = cn.Execute("select * from [Ëèñò1$d1:d1]")
    'Cells(1, 1) = rs1.Fields(0).Name
    Cells(1, 1).CopyFromRecordset rs1
 
End Sub