Range.CopyFromRecordset 方法 (Excel)

将 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