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

最新推荐文章于 2024-01-13 17:22:43 发布

amulee

最新推荐文章于 2024-01-13 17:22:43 发布

阅读量6.8k

点赞数 1

分类专栏： VBA程序开发文章标签： sql vba properties object excel string

本文链接：https://blog.youkuaiyun.com/amulee/article/details/6032365

版权

VBA程序开发专栏收录该内容

23 篇文章

订阅专栏

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

Sub SQL2Arr() Dim AdoCN As Object Dim AdoRe As Object Dim SQL As String Dim Arr1, Arr2, Arr3 Set AdoCN = CreateObject("ADODB.Connection") Set AdoRe = CreateObject("ADODB.Recordset") SQL = "SELECT * FROM [Sheet1$A1:C11]" AdoCN.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & ThisWorkbook.FullName & ";" & _ "Extended Properties=Excel 12.0;" Set AdoRe = AdoCN.Execute(SQL) Arr1 = AdoRe.GetRows(, , "姓名") '取得某一列 AdoRe.MoveFirst '取完一次，要将指针移动到最前 Arr2 = AdoRe.GetRows(, , Array("姓名", "班级")) '取得两列 AdoRe.MoveFirst '取完一次，要将指针移动到最前 Arr3 = AdoRe.GetRows '取得全部 AdoCN.Close Set AdoRe = Nothing Set AdoCN = Nothing End Sub

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

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