Массив типа Variant

[nactyx]

Добрый день.

Как можно вывести содержимое массива типа Variant?
И как перед выводом поменять местами весь 14й столбец с 20м и 15й с 21м? Заранее благодарю за ответ.

Массив заполняю таким образом (Querys: TADOQuery; ArrayData: Variant):

Querys.DisableControls;
   Querys.First;
   While Not Querys.eof Do
   Begin
       For J := 1 To Querys.FieldDefs.Count Do
       Begin
           ArrayData[Querys.RecNo, J] :=
            Querys.FieldbyName(Querys.FieldDefs.Items[j - 1].DisplayName).value;
       End;
       Querys.Next;
   End;
   Querys.EnableControls;

Я потом этими данными заполняю шаблон Excel.

И еще: нужно, чтобы 5 столбцов скажем так не перебили формулы из шаблона. Т.е. в шаблоне будут формулы, по которым будет рассчитываться значение ячеек этих самых 5ти столбцов.
1-14 данные
15-19 формулы
20-21 данные
Надеюсь корректно и понятно объясняюсь.

Очень нужна Ваша помощь, коллеги!

[Аватар]

Как можно вывести содержимое массива типа Variant?

Куда вывести? На всякий случай - есть функция VarType

И как перед выводом поменять местами весь 14й столбец с 20м и 15й с 21м?

Это можно и в цикле чтения из набора данных - анализируй значение j и меняй индекс заполнения массива

нужно, чтобы 5 столбцов скажем так не перебили формулы из шаблона.

Не заполняй эти столбцы в шаблоне при выгрузке

[nactyx]

Сообщение от Аватар

Не заполняй эти столбцы в шаблоне при выгрузке

А как это можно сделать? Если я вывод делаю таким образом:

//Область, в которую будем выводить данные
   //Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
   Range := WorkBook.WorkSheets[1].Range['$B$8:$W$12'];

//А вот и сам вывод данных
//Намного быстрее поячеечного присвоения
   Range.Value := ArrayData;

[Аватар]

Можно же два массива формировать, каждый для своей непрерывной области ячеек

[nactyx]

Пытаюсь реализовать два массива:

 // Размеры выводимого массива данных
   RowCount := Querys.RecordCount;
   ColCount := Querys.FieldDefs.Count;

 // Создание Excel
   ExcelApp := CreateOleObject('Excel.Application');

 // Отключаем реакцию Excel на события, чтобы ускорить вывод информации
   ExcelApp.Application.EnableEvents := false;

 //  Создаем Книгу (Workbook)
 //  Если заполняем шаблон, то
   Workbook := ExcelApp.WorkBooks.Add(ShFile);
   ArrayData := VarArrayCreate([1, RowCount, 1, 14], varVariant);
   ArrayData2 := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);

 // Заполняем массив 1
   Querys.DisableControls;
   Querys.First;
   While Not Querys.eof Do
   Begin
       For J := 1 To 14 Do
       Begin
           ArrayData[Querys.RecNo, J] :=
            Querys.FieldbyName(Querys.FieldDefs.Items[j - 1].DisplayName).value;
       End;
       Querys.Next;
   End;
   Querys.EnableControls;
 // Заполняем массив 1

 // Заполняем массив 2
   Querys.DisableControls;
   Querys.First;
   While Not Querys.eof Do
   Begin
       For J := 20 To 22 Do
       Begin
           ArrayData2[Querys.RecNo, J] :=
            Querys.FieldbyName(Querys.FieldDefs.Items[j - 1].DisplayName).value;
       End;
       Querys.Next;
   End;
   Querys.EnableControls;
 // Заполняем массив 2

//Левая верхняя ячейка области, в которую будем выводить данные
   Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
//Правая нижняя ячейка области, в которую будем выводить данные
   Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow + RowCount - 1,
    BeginCol + ColCount - 1];

//Область, в которую будем выводить данные
   //Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
   Range := WorkBook.WorkSheets[1].Range['$B$8:$N$12'];
   Range2 := WorkBook.WorkSheets[1].Range['$T$8:$W$12'];

//А вот и сам вывод данных
//Намного быстрее поячеечного присвоения
   Range.Value := ArrayData;
   Range2.Value := ArrayData2;

Теперь с 1го по 14й огонь. Далее с 15 по 19й формулы считаются, всё супер. А последнее, с 20го по 22й - пустота. Не могу понять, что делаю не так. Понимаю, что косяк со вторым массивом, но не понимаю где и в чем.

[Аватар]

ArrayData2[Querys.RecNo, J] :=

Дядя второй индекс в массиве будет правильно задавать?

[nactyx]

Сообщение от Аватар

Дядя второй индекс в массиве будет правильно задавать?

А как именно?

Я уже кучу вариантов перепробовал, получается все время муть какая-то.

Я понимаю, что косяк в одном или обоих из этих "кусков" кода:
тут:

ArrayData2 := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);

и/или тут:

For J := 20 To 22 Do
       Begin
           ArrayData2[Querys.RecNo, J] :=
            Querys.FieldbyName(Querys.FieldDefs.Items[j - 1].DisplayName).value;
       End;

Но как правильно понять не могу

О да, я сделал!!!

Еще вопрос: как здесь правильно использовать переменную?

   Range := WorkBook.WorkSheets[1].Range['$B$8:$N$12'];
   Range2 := WorkBook.WorkSheets[1].Range['$T$8:$W$12'];

Вместо цифры 12, например.

И еще вопрос, надеюсь, что последний:

Вот так в исходном состоянии выглядит мой шаблон. Я его программно заполняю, но если строк в итоге, например, 5, то эта пустота снизу остается. А мне надо, чтобы после 5й последней строки шла "подбивочка", т.е. строка "Итого:", начальник, внешние, внутренние следовали сразу за данными. Как это реализовать? Заранее благодарю.

[Аватар]

Вроде так, точно не помню: WorkBook.WorkSheets[1].Rows(i).Delete в цикле от конца. Возможно и удаление выделенных строк или по интервалу есть одной командой

[nactyx]

Сообщение от Аватар

Вроде так, точно не помню: WorkBook.WorkSheets[1].Rows(i).Delete в цикле от конца. Возможно и удаление выделенных строк или по интервалу есть одной командой

Спасибо за очередную подсказку.
Сделал вот так:

   WorkBook.WorkSheets[1].Rows['13:90'].Select;
   ExcelApp.Selection.Delete;

А как быть в том случае, если строк наоборот больше, и эту "подбивочку" надо вырезать и перенести ниже или же вставить строк может.

[Аватар]

Ну с удалением разобрался же. Аналогично ищи как вставить строки с сохраненим форматирования