时间戳

首页 > 解决方案 > 从访问表字段在 excel 中创建一个数组

excel - 从访问表字段在 excel 中创建一个数组

问题描述

我需要从访问表字段在 excel vba 中创建一个数组。该表有 4 个字段，但我需要创建一个仅包含来自字段 2 的数据的数组。我进行了访问连接，然后使用此代码填充数组：

Array1 = Array(Rs.Fields(1).Value)

但是 Array1 仅从字段 2 加载 1 项，我不知道如何使循环加载所有数据。

标签： excelvba

解决方案

我们需要使用动态数组，并在循环中移动记录集。

Dim array1() As Variant
Do Until Rs.EOF
    n = n + 1
    ReDim Preserve array1(1 To n)
    array1(n) = Rs.Fields(1).Value
    Rs.MoveNext
Loop

获取整个记录集为数组的方法如下，只是行列调换了。

array1 = Rs.GetRows

推荐阅读