GETROWS方法得到的数组为什么不可以直接转置写入到单元格中

百度不到去谷歌

我是来讨说法的 发表于 2015-11-11 11:27
Application.Transpose转不了二维数组，严格的说，转不了多行多列的数组，只能是一列换成一行

这个是可以转的 只是有些数组大了 或者有错误值  或者连字符串太长了 会转不了
遇到这种情况需要自己写个数组转置函数来完成
附上一个我自己的转换函数

1. Public Function Transpose2(arr) 'http://Excel880.com 自制转置函数，系统函数有缺陷,将二维数组行列转置
   
2.     Dim brr, L1, U1, L2, U2, i&, j&
   
3.     L1 = LBound(arr, 1): U1 = UBound(arr, 1)
   
4.     L2 = LBound(arr, 2): U2 = UBound(arr, 2)
   
5.     ReDim brr(L2 To U2, L1 To U1)
   
6.     For i = L1 To U1
   
7.         For j = L2 To U2
   
8.             brr(j, i) = arr(i, j)
   
9.         Next
   
10.     Next
    
11.     Transpose2 = brr
    
12. End Function

复制代码

autumnalRain

感谢老师，学到知识了，没有花了，改日奉上，以表崇敬之情！

autumnalRain

百度不到去谷歌 发表于 2015-11-13 11:19
这个是可以转的 只是有些数组大了 或者有错误值  或者连字符串太长了 会转不了
遇到这种情况需要自己写 ...

“如果实在想用数组输出，建议声明另一个行列与GetRows方数组相反的数组，用循环方式转置，然后将转置数组输出到工作表”

看来您和zhaogang1960老师答案异曲同工

autumnalRain

附上百度不到到谷歌老师指导后的代码

1. Dim arr
   
2. Sub TEST()
   
3. Dim CONN As Object, rst As Object
   
4. strconn = "provider=microsoft.ACE.OLEDB.12.0;extended properties='Excel 12.0;hdr=yes';data source=" & ThisWorkbook.FullName '2007及以上
   
5. 'strconn = "provider=microsoft.JET.OLEDB.4.0;extended properties='Excel 8.0;hdr=yes';data source=" & ThisWorkbook.FullName'2003
   
6. Sql = "select * from [采集$] where 标题 not in (select 标题 from [查询$C4:C17])"
   
7. Set CONN = CreateObject("ADODB.CONNECTION")
   
8. Set rst = CreateObject("ADODB.recordset")
   
9. CONN.Open strconn
   
10. rst.Open Sql, CONN, 3, 3
    
11. arr = rst.getrows
    
12. 'Stop
    
13. Sheets("采集").Cells.Value = ""
    
14. For i = 1 To rst.Fields.Count
    
15.      Sheets("采集").Cells(1, i) = rst.Fields(i - 1).Name
    
16. Next
    
17. x = UBound(arr, 2) + 1: y = UBound(arr, 1) + 1
    
18. Sheets("采集").Range("a2").Resize(UBound(arr, 2) + 1, UBound(arr, 1) + 1) = Transpose2(arr)
    
19. End Sub
    
20. 
    
21. Public Function Transpose2(arr) 'http://Excel880.com 自制转置函数，系统函数有缺陷,将二维数组行列转置
    
22.     Dim brr, L1, U1, L2, U2, i&, j&
    
23.     L1 = LBound(arr, 1): U1 = UBound(arr, 1)
    
24.     L2 = LBound(arr, 2): U2 = UBound(arr, 2)
    
25.     ReDim brr(L2 To U2, L1 To U1)
    
26.     For i = L1 To U1
    
27.         For j = L2 To U2
    
28.             brr(j, i) = arr(i, j)
    
29.         Next
    
30.     Next
    
31.     Transpose2 = brr
    
32. End Function

复制代码

autumnalRain

附上百度不到去谷歌老师指导后的代码，再次表示感谢！

gtwlren

有时getrows可以转置，有时不可以转置（除了NULL值可能还有别的不详原因），目前除了通过循环就是CopyFromRecordset了，没有别的办法。

ivccav

一般我都是通过辅助工作表来作为中转的，我不喜欢数组的循环赋值，

jiminyanyan

谢谢分享。。。。

cui26896

大侠齐聚的贴，收藏了！

xiaovba

huang1314wei 发表于 2015-11-11 13:13
把数组当中的Null值转换成空值，就可以使用Application.Transpose转置否则报错

我现在遇到的情况是sql出来的数据集第一个值是空值，用application.transpose二次转置和一次转值均报错。

我的语句是：

Set rec = cnn.Execute(sql)
      
      arr = rec.GetRows              ‘报错
      Workbooks.Add
      [a1].CopyFromRecordset rec             '没有报错，但是无输出
      [a1].CopyFromRecordset cnn.Execute(sql)                         ’正常输出，显示数据集第一个值是空值，其余值对的
      brr = Application.Transpose(arr)                                      ‘报错，brr是variance类型
      brr=application.transpost(application.transpose(arr))         '报错