将现有记录集克隆为excel记录集

Question

我有一个记录集，其中包含导入Excel文件所需的所有数据。 有没有一种方法可以将我的实时记录集克隆到打开Excel文件时创建的记录集中？

这是我现在没有运气尝试的内容。

Dim connection : Set connection = Server.CreateObject("ADODB.Connection")

connection.Open "Driver={Microsoft Excel Driver (*.xls)}; DriverId=790; 
                 Dbq=c:\MyExcel.xls;" & _
                "DefaultDir=c:\; ReadOnly=False;"
Dim excelRecordset : Set excelRecordset = Server.CreateObject("ADODB.Recordset")
excelRecordset.Open "[SHEET1$]", connection, 2, 3

excelRecordset.AddNew
Set excelRecordset = recordset.clone

excelRecordset.Update
excelRecordset.Close

谢谢。

Answer 1

当您这样做时：-

Set excelRecordset = recordset.clone

您用对新记录集的引用替换对在excel电子表格上打开（并关闭）的记录集的引用。 该新记录集始终未连接到excel电子表格。

使用记录集实际上并没有太多选择，而是要通过源记录集为For Each ，在目标上添加AddNew ，将每个字段从源分配到目标，然后再进行Update 。

Answer 2

Excel Range对象具有应执行此工作的CopyFromRecordset方法。 如果可以创建Excel.Application对象并打开要写入的工作簿，则应该可以使用它。

因此，如果您现有的记录集名为rs并且已经被填充，则VBA中的代码为：

Worksheets("SHEET1").Cells(2, 1).CopyFromRecordset rs

然后，您可以遍历rs.Fields以填写字段名称

Dim fld As Field
Dim i As Integer
i = 1
With Worksheets("SHEET1")
    For Each fld in rs.Fields
        .Cells(1, i).Value = fld.Name
        i = i + 1
    Next fld
End With

虽然不确定将其转换为您的方案有多容易。

另外，如果您使用的驱动程序中提供了该驱动程序，则可能需要研究此知识库文章中描述的SELECT INTO和INSERT INTO语法。