IMOLПодскажите, можно ли как-то по-проще сразу импортировать RecordSet в Excel. (Я пересылаю данные в цикле, заполняя таблицу по-строчно). RTFM: Справка Microsoft Visual Basic
CopyFromRecordset Method
Copies the contents of an ADO or DAO Recordset object onto a worksheet,
beginning at the upper-left corner of the specified range.
Syntax
expression. CopyFromRecordset (Data, MaxRows, MaxColumns)

CopyFromRecordset Method Example

This example copies the field names from a DAO Recordset object into the first row of a worksheet and formats the names as bold. The example then copies the recordset onto the worksheet, beginning at cell A2.

For iCols = 0 to rs.Fields.Count - 1
ws.Cells(1, iCols + 1).Value = rs.Fields(iCols).Name
Next
ws.Range(ws.Cells(1, 1), _
ws.Cells(1, rs.Fields.Count)).Font.Bold = True
ws.Range("A2").CopyFromRecordset rs