[Excel VBA] 在VBA中如何将SQL得到的数据直接赋值到数组？

Q：在 VBA中如何将 SQL得到的 数据直接赋值到数组？
A：可以利用RecordSet的GetRows方法 获取数组。

1. Sub SQL2Arr()  
2.     Dim AdoCN As Object  
3.     Dim AdoRe As Object  
4.     Dim SQL As String  
5.     Dim Arr1, Arr2, Arr3  
6.     Set AdoCN = CreateObject("ADODB.Connection")  
7.     Set AdoRe = CreateObject("ADODB.Recordset")  
8.     SQL = "SELECT * FROM [Sheet1$A1:C11]"  
9.     AdoCN.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _  
10.                  "Data Source=" & ThisWorkbook.FullName & ";" & _  
11.                  "Extended Properties=Excel 12.0;"  
12.     Set AdoRe = AdoCN.Execute(SQL)  
13.     Arr1 = AdoRe.GetRows(, , "姓名")                    '取得某一列  
14.     AdoRe.MoveFirst     '取完一次，要将指针移动到最前  
15.     Arr2 = AdoRe.GetRows(, , Array("姓名", "班级"))     '取得两列  
16.     AdoRe.MoveFirst     '取完一次，要将指针移动到最前  
17.     Arr3 = AdoRe.GetRows                                '取得全部  
18.     AdoCN.Close  
19.     Set AdoRe = Nothing  
20.     Set AdoCN = Nothing  
21. End Sub   

利用这个方法，也可以单独获取某一 字段。

附件下载：在VBA中如何将SQL得到的数据直接赋值到数组？ http://www.exceltip.net/thread-13032-1-1-11314.html