Range.CopyFromRecordset 方法 (Excel)

OOQ

于 2022-07-24 16:42:47 发布

阅读量1.8k

点赞数

分类专栏： VBA相关文章标签：开发语言经验分享

原文链接：https://docs.microsoft.com/zh-cn/office/vba/api/Excel.Range.CopyFromRecordset

版权

VBA相关专栏收录该内容

7 篇文章 3 订阅

订阅专栏

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

语法

expression.CopyFromRecordset (Data, MaxRows, MaxColumns)

expression 一个表示 Range 对象的变量。

名称	必需/可选	数据类型	说明
Data	必需	Variant	复制到范围中的 Recordset 对象。
MaxRows	可选	Variant	复制到工作表中的记录数上限。如果此参数被省略，便会复制 Recordset 对象中的所有记录。
MaxColumns	可选	Variant	复制到工作表中的字段数上限。如果此参数被省略，便会复制 Recordset 对象中的所有字段。

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