Range.CopyFromRecordset method (Excel)

Copy the contents of the ADO or DAO Recordset object into the worksheet (starting in the upper left corner of the specified area).This method has no effect if the Recordset object contains fields with OLE objects.

Syntax

expression.CopyFromRecordset (Data, MaxRows, MaxColumns)p>

expression an expression Range object.

Name	Required/Optional	Data Type	Description
Data	Required	Variant	Copy to the Recordset object in scope.
MaxRows	optional	Variant	Maximum number of records to copy into worksheet.If this parameter is omitted, all records in the Recordset object will be copied.
MaxColumns	optional	Variant	Maximum number of fields to copy into the worksheet.If this parameter is omitted, all fields in the Recordset object are copied.

For iCols = 0 to rs.Fields.Count - 1ws.Cells(1, iCols + 1).Value = rs.Fields(iCols).NameNextws.Range(ws.Cells(1, 1), _ws.Cells(1, rs.Fields.Count)).Font.Bold = Truews.Range("A2").CopyFromRecordset rs