[已解决]请问，我想按列向工作表中粘贴记录集里的数据，可怎么按列提取数据啊？

mansohu

我现在的办法是把数据集转换成数组，在向表格里赋值，请问有没有象.CopyFromRecordset 的办法吗？

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-5-9 18:03

mansohu 发表于 2013-5-9 17:50
我就是这么干的，不过觉得好麻烦呐

1. Range("A2").CopyFromRecordset RST ‘这样直接返回结果集

复制代码

跳转到最佳答案楼层

那么的帅

1.     '利用GetRows方法，可以得到记录集结果，并赋值给数组，数组的下标自动为0，同时结构与单元格区域是相反的。
   
2.     ARR = RST.GetRows
   
3.     '2003版，查出的记录不能多于256 ，否则需要对ARR数组进行转置后，再赋值到单元格区域
   
4.     Range("A2").Resize(UBound(ARR, 2) + 1, UBound(ARR) + 1) = Application.Transpose(ARR)

复制代码

mansohu

那么的帅 发表于 2013-5-9 17:08

我就是这么干的，不过觉得好麻烦呐

那么的帅

mansohu 发表于 2013-5-9 17:50
我就是这么干的，不过觉得好麻烦呐

1. Range("A2").CopyFromRecordset RST ‘这样直接返回结果集

复制代码