此方法是借用Excel中Range对象的CopyFromRecordset方法实现数据的导出，将 ADO 或 DAO Recordset（记录集） 对象的内容复制到工作表中（从指定区域的左上角开始）。 如果 Recordset 对象包含具有 OLE 对象的字段，则该方法无效。此方法还有一个缺点，就是导出数据到Excel时不带有标题，需要自己处理增加字段标题。
关于此方法的使用我写了一个专门的函数，可以直接调用便于数据导出至Excel，调用方法如下：
ExportToExcelCopyFromRecordset "Products", "select [Supplier IDs],ID,[Product Code],[Product Name],[Description] from Products"
"Products" 就指工作薄的名称。
"select [Supplier IDs],ID,[Product Code],[Product Name],[Description] from Products" 是需要导出数据的SQL语句。
函数说明：
测试示例*载下**：
在“了解更多”里*载下**。