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

autumnalRain

求助贴子，希望实现的效果是[查询$]表里"标题"栏有的数据，在[采集$]表中将其记录删掉.使用RECORDSET方法的GETROWS方法将记录集转为数组。因为其特殊性，需要再次转置才能COPY到单元格区域。但在解答过程中这一行却总是报错。Sheets("采集").Range("a2").Resize(UBound(arr, 2) + 1, UBound(arr, 1) + 1) = Application.Transpose(arr)没办法只能采用注释掉的部分才能得到正确结果。
错误类型、错误代码行见见图示：请老师们指导下这行代码究竟错在哪里？

1. Sub TEST()
   
2. Dim CONN As Object, rst As Object
   
3. strconn = "provider=microsoft.ACE.OLEDB.12.0;extended properties='Excel 12.0;hdr=yes';data source=" & ThisWorkbook.FullName '2007及以上
   
4. 'strconn = "provider=microsoft.JET.OLEDB.4.0;extended properties='Excel 8.0;hdr=yes';data source=" & ThisWorkbook.FullName'2003
   
5. Sql = "select * from [采集$] where 标题 not in (select 标题 from [查询$C4:C17])"
   
6. Set CONN = CreateObject("ADODB.CONNECTION")
   
7. Set rst = CreateObject("ADODB.recordset")
   
8. CONN.Open strconn
   
9. rst.Open Sql, CONN, 3, 3
   
10. arr = rst.getrows
    
11. Sheets("采集").Cells.Value = ""
    
12. For i = 1 To rst.Fields.Count
    
13.      Sheets("采集").Cells(1, i) = rst.Fields(i - 1).Name
    
14. Next
    
15. x = UBound(arr, 2) + 1: y = UBound(arr, 1) + 1
    
16. Sheets("采集").Range("a2").Resize(UBound(arr, 2) + 1, UBound(arr, 1) + 1) = Application.Transpose(arr)
    
17. 'Sheets("采集").Range("a2").Resize(UBound(arr, 1) + 1, UBound(arr, 2) + 1) = arr
    
18. 'BRR = Application.Transpose(Sheets("采集").Range("a2").Resize(UBound(arr, 1) + 1, UBound(arr, 2) + 1))
    
19. 'Sheets("采集").Range("a2").Resize(UBound(arr, 1) + 1, UBound(arr, 2) + 1) = ""
    
20. 'Sheets("采集").Range("a2").Resize(UBound(arr, 2) + 1, UBound(arr, 1) + 1) = Brr
    
21. End Sub

复制代码

autumnalRain

应该不是RECORDSET的参数问题，虽然我不太明白参数的意思，但是能试的我都试过，都是

• Sheets("采集").Range("a2").Resize(UBound(arr, 2) + 1, UBound(arr, 1) + 1) = Application.Transpose(arr)
  

出错！数组的维数用x = UBound(arr, 2) + 1: y = UBound(arr, 1) + 1测试得到的数字也都正确

autumnalRain

因为是在原数据区域操作，所以需要先清空原区域数据，然后再执行数据写入，除了标题行得到了外，操作记录集怎么没有了？

1. Sub TEST()
   
2. Dim CONN As Object, rst As Object
   
3. strconn = "provider=microsoft.ACE.OLEDB.12.0;extended properties='Excel 12.0;hdr=yes';data source=" & ThisWorkbook.FullName '2007及以上
   
4. 'strconn = "provider=microsoft.JET.OLEDB.4.0;extended properties='Excel 8.0;hdr=yes';data source=" & ThisWorkbook.FullName'2003
   
5. Sql = "select * from [采集$] where 标题 not in (select 标题 from [查询$C4:C17])"
   
6. Set CONN = CreateObject("ADODB.CONNECTION")
   
7. Set rst = CreateObject("ADODB.recordset")
   
8. CONN.Open strconn
   
9. rst.Open Sql, CONN, 3, 3
   
10. Sheets("采集").Cells.Value = ""
    
11. For i = 1 To rst.Fields.Count
    
12.      Sheets("采集").Cells(1, i) = rst.Fields(i - 1).Name
    
13. Next
    
14. Sheets("采集").Range("a2").CopyFromRecordset rst
    
15. End Sub

复制代码

我是来讨说法的

Application.Transpose转不了二维数组，严格的说，转不了多行多列的数组，只能是一列换成一行

autumnalRain

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

谢谢老师，但是经在其它地方测试多行多列的二维数组也是可以转置的

huang1314wei

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

Application.Transpose可以转换多行多列的二维数组的，只不过如果二维数组当中有Null值时候，Application.Transpose函数会报错而以

huang1314wei

autumnalRain 发表于 2015-11-11 11:42
谢谢老师，我说怎么处理都不行呢！有花了给老师戴上

把数组当中的Null值转换成空值，就可以使用Application.Transpose转置否则报错

autumnalRain

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

象本例中，公司名称代码栏是NULL值吗？如果转成空值该怎么做？

autumnalRain

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

我测试过了，多行多列的二维数组是可以转置的，但是NULL的情况不太懂。如下面，我将数据区域中的某一列全部清空只保留字段值时，还可以正常转置的，所以还请指导NULL的情况

autumnalRain

1. Sub test()
   
2. arr = [a1].CurrentRegion
   
3. Cells.ClearContents
   
4. [a1].Resize(UBound(arr, 2), UBound(arr, 1)) = Application.Transpose(arr)
   
5. End Sub

复制代码