не совсем понятно, что нужно
Вот пример, лист excel экспортируется в Recordset
Код:
Sub m_4()
Dim oConnection As ADODB.Connection
Dim oRecordset As ADODB.Recordset
Set oConnection = CreateObject("ADODB.Connection")
Set oRecordset = CreateObject("ADODB.Recordset")
oConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=E:\_Рабочий стол\Таблица для переноса.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"
oRecordset.Open "Select * FROM [Лист1$]", oConnection
'Проверка, что находится в Recordset
Dim oQueryTable As Excel.QueryTable
Set oQueryTable = ActiveSheet.QueryTables.Add(oRecordset, Range("A1"))
oQueryTable.Refresh
oConnection.Close
End Sub
