大佬们 帮我看看~ 为啥会出错~

那年的坏人

Sub tset()
Dim a, b()
Dim dbAddr As String
dbAddr = "C:\Users\HeEry\Desktop\sql\DATA.xlsx"
Dim adConn  As ADODB.Connection
Set adConn = New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sql As String
Dim filds
Dim tbl_name
Dim searchC
adConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0 Macro;data source=" & dbAddr
sql = "select * from [DATA$] where 学院='交通学院'"
Set rs = adConn.Execute(sql)
Dim i As Integer
For i = 1 To 4
    Cells(1, i) = rs.Fields(i - 1).Name
Next i
    a = rs.GetRows
    Cells(2, 1).Resize(UBound(a, 2) + 2, UBound(a) + 1) = Application.Transpose(a)
End Sub

~
大佬们 为啥得不到结果·· 不知道哪里错了~




左边是原始数据  想要提取出所有复合条件的结果~  但是提取出来是右边这样~~ 不知道哪里错了~~

那年的坏人

数据源不大的时候能得出结果~~ 但是数据量一大就会出错~~



这是我想要的结果~~  

liulang0808

Cells(2, 1).CopyFromRecordset rs
这个是否可行，看看星光大神的文档