|
这个代码获得的记录,如何将它转置?
- CopyFromRecordset cnn.Execute(mSQL)
复制代码好吧,回到原点,假如
execute(msql)
得到的数据是:
1,A,99
2,B,100
3,C,101
现在要将此“转置”,变成:
1,2,3
A,B,C
99,100,101
如何整呢?
感谢一念,解决了.
- Sub test()
- Dim cnn, mSQL, Arr
- Set cnn = CreateObject("adodb.connection")
- cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes;imex=1';data source=" & ThisWorkbook.Path & "\rsgz.xls"
-
- mSQL = "select 姓名,工资 from [rsgz$] "
- Arr = cnn.Execute(mSQL).getrows
- Range("D2").Resize(UBound(Arr) + 1, UBound(Arr, 2) + 1) = Arr
-
- End Sub
复制代码
[ 本帖最后由 secowu 于 2010-8-28 20:48 编辑 ] |
|