Range.CopyFromRecordset 方法

将 ADO 或 DAO Recordset 对象中的内容复制到工作表，从指定区域的左上角开始。如果 Recordset 对象包含具有 OLE 对象的字段，则该方法无效。

语法

表达式.CopyFromRecordset(Data, MaxRows, MaxColumns)

表达式 一个代表 Range 对象的变量。

参数

名称	必选/可选	数据类型	说明
Data	必选	Variant	复制到区域的 Recordset 对象。
MaxRows	可选	Variant	复制到工作表上的最大记录数。如果省略该参数，将复制 Recordset 对象中的所有记录。
MaxColumns	可选	Variant	复制到工作表上的最大字段数。如果省略该参数，将复制 Recordset 对象中的所有字段。

返回值
Long

说明

复制从 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`

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

请参阅