《CopyFromRecordset方法》由会员分享,可在线阅读,更多相关《CopyFromRecordset方法(1页珍藏版)》请在金锄头文库上搜索。
1、欢迎您阅读并下载本文档,本文档来源于互联网,如有侵权请联系删除!我们将竭诚为您提供优质的文档!CopyFromRecordset 方法 将一个 ADO 或 DAO Recordset 对象的内容复制到工作表中,复制的起始位置在指定区域的左上角。如果 Recordset 对象包含带 OLE 对象的字段,本方法将失效。 expression.CopyFromRecordset(Data, MaxRows, MaxColumns) expression 必需。该表达式返回一个 Range 对象。 Data Variant 类型,必需。复制到指定区域的 Recordset 对象。 MaxRows Va
2、riant 类型,可选。复制到工作表的记录个数上限。如果省略该参数,将复制 Recordset 对象的所有记录。 MaxColumns Variant 类型,可选。复制到工作表的字段个数上限。如果省略该参数,将复制 Recordset 对象的所有字段。 说明 复制从 Recordset对象的当前行开始的内容。复制完成之后,Recordset 对象的 EOF 属性值为 True。 Excel VBA 教程:CopyFromRecordset 方法示例 本示例将 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