Из ADOQuery в Excel

[nactyx]

Всем доброго времени суток!

Имеется вот такая процедура:

procedure SendtoExcel(ShFile: String; Querys: TADOQuery);
var
   ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData: Variant;
   BeginCol, BeginRow, j: integer;
   RowCount, ColCount: Integer;
begin
   BeginCol := 1;
   BeginRow := 2;

 // Размеры выводимого массива данных
   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, ColCount], varVariant);

 // Заполняем массив
   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;

//     Левая верхняя ячейка области, в которую будем выводить данные
   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.Value := ArrayData;

//  WorkBook.WorkSheets[1].Range[Cell1, Cell2].Select;
//  WorkBook.WorkSheets[1].Selection.Columns.AutoFit;

 // Делаем Excel видимым
   ExcelApp.Visible := True;
end;

Каким образом можно изменить процедуру или как правильно использовать в качестве левой верхней и правой нижней ячейки вида:
$B$8 и $w$90?

Заранее благодарю за ответ

[nactyx]

Вроде разобрался. Хм.

[nactyx]

Но теперь другие моменты.
Такой вопрос: кто-нибудь "вшитые" подключения с запросами в Excel переделывал под то, чтобы запрос и все с ним связанное было в коде, а от Excel был только шаблон? Т.е. у меня проблемы в вопросах форматирования.

Как работает сейчас:

Т.е. автоматически сокращает этот диапазон и т.п.

Как работает в моей программе через Делфи:


Возникает вопрос: кроме диапазона данных из подключение в Excel - где-то еще какие-то настройки имеются? Если да, то как их реализовать через Делфи?

[nactyx]

Все еще актуально.

[come-on]

не очень понятно что вам надо, но в екселе есть шаблоны

[nactyx]

Сообщение от come-on

не очень понятно что вам надо, но в екселе есть шаблоны

Сейчас попробую объяснить.

Вот что имеем в Excel'e:

На каждую страницу по подключению с кодом, в которой вызывается некая процедура. Я беру эту процедуру и вызываю через Делфи и вывод результата получается не такой "красивый" как он получается в шаблоне Excel'я с этим подключением.
Т.е. имеется шаблон с подключением
Мне нужно пустой шаблон без подключением, работа с которым организована на уровне Delphi. Я это сделал вроде, но вывод визуально не совпадает, как видно выше по скриншотам.

Собственно вот и возникает вопрос: какие такие могут быть еще настройки или что-нибудь подобное, что влияет на вывод и почему такие расхождения визуального плана?

[Igor[Игорь]]

Попробуй присваивать массиву не Value , а AsString

[nactyx]

Сообщение от Igor[Игорь]

Попробуй присваивать массиву не Value , а AsString

Я даже пробовать не стану - ничего не изменится. Чушь.