如何将CopyFromRecordse转置？

secowu

原帖由 alzeng 于 2010-8-28 16:43 发表
那有可能我们对“转置”这个词的理解不一致……

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

lb_bn

execute(msql).getrows
就是楼主想要的吧。

secowu

原帖由 lb_bn 于 2010-8-28 20:15 发表
execute(msql).getrows
就是楼主想要的吧。

谢谢,刚刚测试OK了.

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

请教一个问题,这个如何理解.

1. 
   
2. Resize(UBound(Arr) + 1, UBound(Arr, 2) + 1)
   

复制代码

里的ubound的取值

lb_bn

ubound(arr)相当于ubound(arr,1)取第一维的大小，即行的上限
ubound(arr,2)为取第二维的大小，即列的上限
因为getrows得到的数组下标为0
所以都加1。

secowu

非常感谢解释,学习了............