如何将CopyFromRecordse转置？

secowu

这个代码获得的记录，如何将它转置？

1. 
   
2. CopyFromRecordset cnn.Execute(mSQL)
   

复制代码

好吧，回到原点，假如
execute(msql)
得到的数据是：
1,A,99
2,B,100
3,C,101
现在要将此“转置”，变成：
1,2,3
A,B,C
99,100,101
如何整呢？

感谢一念,解决了.

1. 
   
2. Sub test()
   
3. 
   
4.     Dim cnn, mSQL, Arr
   
5.     Set cnn = CreateObject("adodb.connection")
   
6.     cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes;imex=1';data source=" & ThisWorkbook.Path & "\rsgz.xls"
   
7.    
   
8.         mSQL = "select 姓名,工资 from [rsgz$] "
   
9.         Arr = cnn.Execute(mSQL).getrows
   
10.         Range("D2").Resize(UBound(Arr) + 1, UBound(Arr, 2) + 1) = Arr
    
11.    
    
12. End Sub
    

复制代码

[ 本帖最后由 secowu 于 2010-8-28 20:48 编辑 ]

lb_bn

transpose
如果用错误,则要用其它方法.

secowu

原帖由 lb_bn 于 2010-8-28 14:49 发表
transpose
如果用错误,则要用其它方法.

怎样改这一句，试过了，似乎不行。

alzeng

Arr=cnn.Execute(mSQL).GetRows
Range(*).Resize(UBound(Arr)+1,UBound(Arr,2)+1)=Arr

secowu

没测试成功，一念大师帮忙整个例子。

[ 本帖最后由 secowu 于 2010-8-28 16:21 编辑 ]

alzeng

设置断点，查看Arr=cnn.Execute(mSQL).GetRows这一句运行后Arr的结果是什么……

secowu

原帖由 alzeng 于 2010-8-28 16:04 发表
设置断点，查看Arr=cnn.Execute(mSQL).GetRows这一句运行后Arr的结果是什么……

arr返回的数据正确，就是如何写入目标单元格

alzeng

将数组写入单元格搞不定？？

secowu

原帖由 alzeng 于 2010-8-28 16:25 发表
将数组写入单元格搞不定？？

没搞定。因为需要跳格。

alzeng

那有可能我们对“转置”这个词的理解不一致……