Массив -> Excel

[ПЕТР]

Подскажите, как кинуть массив данных в Excel таблицу одной командой, помню, что вроде что-то есть, а рыться некогда.

[GSerg]

Код: Выделить всё

Sub Subj()
  Dim a(1 To 3) As Long
  Range(Cells(1, 1), Cells(1, 3)) = a
End Sub

[ПЕТР]

Знаешь таким образом заполняется Rang горизонтально, а нужно вертикально (вертикально заполняется 0 элемент в 1 колонку, 1 во вторую и т.д.) чето по Help_у поболтался и нече не нашел.

А хорошо бы было у меня массивы в 1440 элементов 2, 3 , 4 столбца и по ним рисуется график, читаетются файлы быстро, а вот в Excel долго записываются

[GSerg]

Код: Выделить всё

Sub Aga()
  Dim a(1 To 3, 1 To 3) As Long
  Range(Cells(1, 1), Cells(3, 3)) = a
End Sub

[ПЕТР]

Все работает.
Я об этом подумал, но меня смутило объявление
Dim a(1439, 1 to 1) as тыры-пыры

Вообще-то массив либой размерности это ячейки одна за другой, ну я и задал в два раза меньший ранг но на две строки, смотрю нето ну и ладно, а оно воно как.