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

最新推荐文章于 2025-11-09 12:07:14 发布

原创最新推荐文章于 2025-11-09 12:07:14 发布 · 7k 阅读

10 ·

CC 4.0 BY-SA版权

文章标签：

#sql #vba #properties #object #excel #string

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

23 篇文章

订阅专栏

本文介绍如何在VBA中使用RecordSet的GetRows方法将SQL查询结果直接赋值给数组，包括获取指定列及所有列的方法。

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