Создать массив в excel из поля таблицы доступа

Question

Мне нужно создать массив в excel vba из поля таблицы доступа. В таблице 4 поля, но мне нужно создать массив, содержащий только данные из поля 2. Я установил соединение для доступа, затем я использую этот код для заполнения массива:

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

Но Array1 загружает только 1 элемент из поля 2, и я не знаю, как заставить l oop загружать все данные.

Answer 1

Нам нужно использовать массивы Dynami c и переместить набор записей в al oop.

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