数组与字典解决方案第三十讲:如何将记录集的数据记入数组

数组与字典解决方案第三十讲:如何将记录集的数据记入数组 - 详解

news/2025/10/29 10:35:44/文章来源:https://www.cnblogs.com/gccbuaa/p/19173631

《VBA数组与字典方案》教程（10144533）是我推出的第三套教程，目前已经是第二版修订了。这套教程定位于中级，字典是VBA的精华，我要求学员必学。7.1.3.9教程和手册掌握后，可以消除大多数工作中遇到的实际困难。

这套字典教程共两册，一共八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是：数组与字典解决方案第三十讲:如何将记录集的数据记入数组

【分享成果，随喜正能量】281 工作中，不做伸手党，遇到障碍自己先想办法，要锻炼自己思考的能力。问别人只是为了优化自己的答案。领导交代的工作，做之前先问清楚和领导确认一遍，这样做事有清晰的目标，有反馈。这样才能做得更好。

第三十讲如何将记录集的数据记入数组

大家好，今日继续讲VBA数组与字典解决方案，今日讲解第30讲内容，记录集的数据，如何记入数组。这讲的内容涉及到数组在数据库中的应用，数组在EXCEL及其接口脚本中的应用中有着不可替代的角色，利用好了，允许给自己的工作表处理和VBA数据处理带来很大的方便。

1 应用场景的具体分析

今日实例：在数据库中有如下的数据：

我要做的是打开这个数据库，然后把内容先存到一个数组中，最后在工作表中体现出来。

2 应用场景的代码完成及代码解读

代码如下：

Sub mynzUpdateRecords_30() '将数据记录存入数组的方案

Dim cnADO As Object, rsADO As Object, Fdsarr, arr

Dim strPath As String, strTable As String, strSQL As String, strMsg As String

Set cnADO = CreateObject("ADODB.Connection")

Set rsADO = CreateObject("ADODB.Recordset")

strPath = ThisWorkbook.Path & "\mydata2.accdb"

strTable = "员工信息"

cnADO.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & strPath

'汇报给用户记录数

strSQL = "SELECT * FROM " & strTable

rsADO.Open strSQL, cnADO, 1, 3

Fdsarr = Array("员工编号", "姓名", "性别", "民族", "部门", "职务", "电话", "出生日期") '字段名

arr = Application.Transpose(rsADO.GetRows(, 1, Fdsarr)) '记录存入数组

For X = 1 To UBound(arr)

Cells(X + 1, 1).Resize(1, 8) = Application.Index(arr, X, 0)

rsADO.Close

'释放内存

cnADO.Close

Set rsADO = Nothing

Set cnADO = Nothing

End Sub

代码截图：

代码讲解：

Fdsarr = Array("员工编号", "姓名", "性别", "民族", "部门", "职务", "电话", "出生日期") '字段名

Arr = Application.Transpose(rsADO.GetRows(, 1, Fdsarr)) '记录存入数组

这里利用了一个方法：rsADO.GetRows(, 1, Fdsarr)

GetRows方法：此方法传回一个二维的数组，每一行对应Recordset中的一笔记录，且每一列对应到记录中的字段。

此方法的语法如下：varArray = rs.GetRows([Rows], [Start], [Fields])

参数：

Rows是要读取记录的数量；假如想要取得Recordset所有记录，可用-1或省略此参数。
下列列举常数中的一个：0-adBookmarkCurrent（目前记录）、1-adBookmarkFirst（第一笔记录）、或2-adBookmarkLast（最后记录）。就是Start 是指出第一个被读取记录的书签；也可以
Fields 是可选择的栏位名称字段，其用来限制要读取的资料量。（也可指定单一字段名称、单一栏位索引、或者一个栏位索引阵列）。

2） For x = 1 To UBound(Arr)

Cells(x + 1, 1).Resize(1, 8) = Application.Index(Arr, x, 0)

上面的过程中也用到了一个函数Index(Arr, x, 0)，是调用工作表函数index。INDEX 返回列表或数组中的元素值，此元素由行序号和列序号的索引值给定。

INDEX 函数有两种语法形式：数组和引用。数组形式通常返回数值或数值数组，引用形式通常返回引用。

当函数 INDEX 的第一个参数为数组常数时，使用数组形式。

语法：数组形式INDEX(array,row_num,column_num)

参数：

① Array 为单元格区域或数组常量。

② 如果数组只包含一行或一列，则相对应的参数 row_num 或 column_num 为可选。

如果数组有多行和多列，但只启用 row_num 或 column_num，函数 INDEX 返回数组中的整行或整列，且返回值也为数组。

③ Row_num 数组中某行的行序号，函数从该行返回数值。倘若省略 row_num，则必须有Column_num。

④ Column_num 数组中某列的列序号，函数从该列返回数值。如果省略 column_num，则必须有 row_num。