[ferget]

не совсем понятно, что нужно
Вот пример, лист 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

[LilLoco]

ferget, А можно ли теперь этот Recordset вставить в таблицу на Sql Server, не пробегаясь циклом по всем строчкам?