Получение значения по текстовому имени из закрытого файла

Public Function GetValueFromClosed(path As String, file As String, sheet As String, ref As String)
Dim arg As String
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
    GetValueFromClosed = "File Not Found"
    Exit Function
End If
arg = Chr(39) & path & "[" & file & "]" & sheet & Chr(39) & "!" & Range(ref).Range("A1").Address(ReferenceStyle:=xlR1C1)
GetValueFromClosed = Application.ExecuteExcel4Macro(arg)
End Function

 Sub GetDataFromClosedBook ()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
    
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=D:\1\1.xls;" & _
      "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
    
    rst.Open "SELECT * FROM [Лист1$A1:B6]", cnn
    
    Range("A1").CopyFromRecordset rst
    
    rst.Close
    cnn.Close
    
    Set rst = Nothing
    Set cnn = Nothing
end sub