Vba中如何读取表中数据并存储至列表或者字典中

在VBA中，你可以使用`Recordset`对象来从Excel工作表或Access数据库中读取数据，然后将其转换到列表（数组）或字典中。以下是一个简单的示例：

**步骤1：引用库**
首先，确保已引用了`Microsoft Scripting Runtime`库[^1]。这可以通过`Tools > References`菜单选择库并勾选它来完成。

**步骤2：创建Recordset对象**

Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM YourTableName", CurrentProject.Connection '替换YourTableName为你实际的表格名

**步骤3：读取数据到列表**
如果你要存储到列表中，可以遍历Recordset并添加每一行到数组：

Dim dataList As Variant
dataList = rs.GetRows '返回一个一维数组，每一项代表一行记录

'现在dataList就是包含表格数据的列表

**步骤4：读取数据到字典**
若要使用字典（假设字段名分别为KeyField和ValueField），则需指定键和值对应的字段：

Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary") '创建空字典

Do While Not rs.EOF
    Dim key As String
    Dim value As String
    
    key = rs.Fields(KeyFieldName).Value '替换KeyFieldName为你的键字段名
    value = rs.Fields(ValueFieldName).Value '替换ValueFieldName为你的值字段名
    
    dict.Add key, value '添加键值对到字典
    rs.MoveNext
Loop

'现在dict就是字典，键值对形式存储数据

记得在操作完成后关闭Recordset:

rs.Close
Set rs = Nothing