1: Function Поворот(ByRef ArrayOriginal As Variant) As Variant
2: Dim x As Integer
3: Dim у As Integer
4: Dim i As Integer
5: Dim j As Integer
6: Dim ArrayTranspose() As Variant
7:
8: x = Ubound(ArrayOriginal, 1)
9: y = Ubound(ArrayOriginal, 2)
10:
11: ReDim ArrayTranspose(y, x)
12:
13: For i = 0 To x
14: For j = 0 To у
15: ArrayTranspose(j, i) = ArrayOriginal(i, j)
16: Next
17: Next
18:
19: Поворот = ArrayTranspose
20:
21: End Function
Теперь все готово для выполнения процедуры ИмпортДанных. Перейдите в рабочую книгу и выполните процедуру. Через несколько мгновений в рабочем листе появятся импортированные данные (рис. 21.1).
Рис. 21.1. Данные, импортированные с помощью ADO
Резюме
В этом часе был сделан небольшой обзор возможностей и основных понятий ADO. Мы также создали процедуру, импортирующие данные из внешнего источника в рабочую книгу.
В следующем часе мы продолжим изучение технологии ADO и создадим экранную форму, которая позволит пользователю выбирать и редактировать данные.
