我是否可以只将一行/字段从记录集复制到excel列

Question

有没有办法将值从记录集的单个列复制到Excel中的列而不必使用循环？我尝试了以下方法来复制一个列：

    Sheet4.Range("Complete").CopyFromRecordset rsEDW.Fields(3)

但那没用。

Answer 1

编辑：看起来虽然你可以只复制一列没有带有最大列引用的循环。

https://msdn.microsoft.com/en-us/library/office/aa223845%28v=office.11%29.aspx

我认为无论如何都可以在没有循环的情况下进行。 您必须遍历记录集并使每列成为记录集中的字段。

With rs
    Do Until .EOF
        ActiveSheet.Range("A" & lastRow).CopyFromRecordset rsEDW.Fields(3)
        ActiveSheet.Range("B" & lastRow).CopyFromRecordset rsEDW.Fields(4)
.MoveNext
lastRow = lastRow + 1
Loop
End With