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

问题描述：

有没有办法将值从记录集的单个列复制到Excel中的列而无需使用循环？我尝试了以下操作来复制单个列：我可以只将一个行/字段从记录集复制到excel列

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

但这并不奏效。

'CopyFromRecordset'有一个'MaxColumns'参数，但是你必须确保你的一列首先被定位在select子句中。 – 2015-02-10 19:46:34

答

编辑：它看起来虽然你可以只复制一列没有最大列参考循环。

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

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

相关推荐