Excel VBA教程:CopyFromRecordset方法

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

expression.CopyFromRecordset(Data, MaxRows, MaxColumns)

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

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

MaxRows   Variant 类型,可选。复制到工作表的记录个数上限。如果省略该参数,将复制 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

上页:Excel VBA教程:Copy方法 下页:Excel VBA教程:CopyPicture方法

Excel VBA教程:CopyFromRecordset方法

Excel VBA教程:CopyPicture方法 Excel VBA教程:CreateCubeFile方法
Excel VBA教程:CreateNames方法 Excel VBA教程:CreateNewDocument方法
Excel VBA教程:CreatePivotTable方法 Excel VBA教程:获取有关 Macintosh 关键字的帮助
Excel VBA教程:CreateSummary方法 Excel VBA教程:CustomDrop方法
Excel VBA教程:CustomLength方法 Excel VBA教程:Cut方法
Excel VBA教程:DataLabels方法 Excel VBA教程:DataSeries方法
Excel VBA教程:DDEExecute方法 Excel VBA教程:DDEInitiate方法
Excel VBA教程:DDEPoke方法 Excel VBA教程:DDERequest方法
Excel VBA教程:DDETerminate方法 Excel VBA教程:Delete方法
Excel VBA教程:DeleteAll方法 Excel VBA教程:DeleteChartAutoFormat方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号