Applies To
Range Object.
Description
Copies the contents of a DAO Recordset object onto a worksheet, beginning at the upper-left corner of the specified range. If the Recordset object contains fields with OLE objects, this method fails. This method is available only in Microsoft Excel for Windows 95.
Syntax
object.CopyFromRecordset(data, maxRows, maxColumns)
object
Required. The destination Range object.
data
Required. The Recordset object to copy into the range.
maxRows
Optional. The maximum number of records to copy onto the worksheet. If omitted, all records in the Recordset object are copied.
maxColumns
Optional. The maximum number of fields to copy onto the worksheet. If omitted, all fields in the Recordset object are copied.
Remarks
Copying begins at the current row of the Recordset object. After copying is completed, the EOF property of the Recordset object is True.
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