CopyFromRecordset 方法

将一个 ADO 或 DAO Recordset 对象的内容复制到工作表中，复制的起始位置在指定区域的左上角。如果 Recordset 对象包含带 OLE 对象的字段，本方法将失效。

expression   必需。该表达式返回一个 Range 对象。

Data   Variant 类型，必需。复制到指定区域的 Recordset 对象。

MaxRows   Variant 类型，可选。复制到工作表的记录个数上限。如果省略该参数，将复制 Recordset 对象的所有记录。

MaxColumns   Variant 类型，可选。复制到工作表的字段个数上限。如果省略该参数，将复制 Recordset 对象的所有字段。

说明

复制从 Recordset 对象的当前行开始的内容。复制完成之后，Recordset 对象的 EOF 属性值为 True。

示例

本示例将 DAO Recordset 对象中的字段名称复制到工作表的第一行中，并将这些名称的格式设为加粗。然后，本示例将记录集复制到工作表中，复制的起始位置在 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