Заполнение массива

[d7d1cd]

Приветствую. Необходимо заполнить массив данными, расположенными на листе. Для одного листа делаю примерно так:

Код Выделить Развернуть


dim Array(1000, 20) as Variant

With Workbooks("Книга1.xls").Worksheets("Лист1")
    Array = .Range(.Cells(1, 1), .Cells(1000, 20)).Value
End With


Мне необходимо в один массив с 3-мя измерениями (первое измерение - индекс листа) поместить содержимое нескольких листов. Возможно ли это сделать так же просто, как с одним листом?

[kuklp1]

Нет.