Вывод в Excel через Array

[gl00mie]

Цитата:

Сообщение от Roman N. Krivov

Есть в отчете табличная область, например, A19:CG35 (N столбцов и M строк). Я заполняю массив Array N x M раз.

Цитата:

Сообщение от Roman N. Krivov

Формируется и вставляется именно одномерный массив размер N x M элементов

Я, кажется, понял, в чем подвох - вы, видимо, заложились на то, что Excel каким-то образом сам "завернет" ваш одномерный массив по достижении границы выделенной области и продолжит заполнять эту область со следующей строки (к слову, непонятно, почему он должен заполнять ее по строкам, а не, к примеру, по столбцам). Так вот, по-моему, Excel так делать не умеет - поэтому он и дублирует данные первых N элементов массива во всех строках. Так что придется вам либо заполнять данные отдельными строками/столбцами, работая с одномерным массивом, либо передавать Excel'ю двумерный массив.

[Gustav]

Цитата:

Сообщение от gl00mie

(к слову, непонятно, почему он должен заполнять ее по строкам, а не, к примеру, по столбцам)

Excel в душЕ "по строкам" любит больше
Я как раз тут намедни демонстрировал одномерную индексацию ячеек внутри диапазона: Excel диапазон ячеек

[Roman N. Krivov]

Цитата:

Сообщение от Gustav

Excel в душЕ "по строкам" любит больше
Я как раз тут намедни демонстрировал одномерную индексацию ячеек внутри диапазона: Excel диапазон ячеек

Вот именно, исходя из твоего описания нумерации ячеек Range(...).Cells.Item(...)

(1) (2) (3)
(4) (5) (6)
(7) (8) (9)

и должны заполняться ячейки из одномерного массива в 9 элементов. Т.е.

for (idx = 1; idx <= 9; idx++) {
    Range("B2:D4").Cells.Item(idx) = ItemsArray[idx];
}

А на деле получается, что все строки данной матрицы равны первой, т.е.:

Range("B2:D4").Cells.Item(1) = ItemsArray[1];
Range("B2:D4").Cells.Item(2) = ItemsArray[2];
Range("B2:D4").Cells.Item(3) = ItemsArray[3];
Range("B2:D4").Cells.Item(4) = ItemsArray[1];
Range("B2:D4").Cells.Item(5) = ItemsArray[2];
Range("B2:D4").Cells.Item(6) = ItemsArray[3];
Range("B2:D4").Cells.Item(7) = ItemsArray[1];
Range("B2:D4").Cells.Item(8) = ItemsArray[2];
Range("B2:D4").Cells.Item(9) = ItemsArray[3];

Вопрос: почему?

[Gustav]

Цитата:

Сообщение от Roman N. Krivov

А на деле получается, что все строки данной матрицы равны первой, т.е.:
Вопрос: почему?

Потому что такая особенность этого дела - желает Excel элементы Array в строку записывать и всё тут.
Вот маленький джобик, по-моему, достаточно наглядный:

    COM     rng = sysExcelApplication::construct().workbooks().add().worksheets().itemFromNum(1).cells().range('A1:C3').comObject();
    Array   arr = new Array(Types::String);
    ;
    arr.value(1, '1'); arr.value(2, '2'); arr.value(3, '3');
    arr.value(4, '4'); arr.value(5, '5'); arr.value(6, '6');
    arr.value(7, '7'); arr.value(8, '8'); arr.value(9, '9');

    rng.value2(arr); // вставка в диапазон A1:C3 - размер 3 х 3

    rng = rng.Offset(4,0);
    rng = rng.Resize(1,9);
    rng.value2(arr); // вставка в диапазон A5:I5 - размер 1 х 9 (одна строка)

    rng = rng.Offset(3,0);
    rng = rng.Resize(1,12);
    rng.value2(arr); // вставка в диапазон A9:L9 - размер 1 х 12 (одна строка)

    COM::createFromObject(rng.Application()).Visible(true);

[Roman N. Krivov]

Цитата:

Сообщение от Gustav

Потому что такая особенность этого дела - желает Excel элементы Array в строку записывать и всё тут.
Вот маленький джобик, по-моему, достаточно наглядный:

Джобик хорош.
А вот результат его работы: (см. аттач)

Решил заполнять отчёт через AdoRecordSet.