sql - 我可以只将记录集中的一行/字段复制到 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