Перенос данных из DBGrid в Excel

//Открыли Ексель
  Variant app, books, book, sheet, Rang, vCell, vFont;
  app = CreateOleObject("Excel.Application");
  app.OlePropertySet("Visible",true);
  books = app.OlePropertyGet("Workbooks");
  books.OleProcedure("Add");
  book = books.OlePropertyGet("Item",1);
  sheet = book.OlePropertyGet("WorkSheets",1);
 
//Сформировали и записали вариантный массив из StringGrid
 String S;
  const int bounds[4] = {0, StringGrid1->RowCount, 0, StringGrid1->ColCount};
  Variant vData = VarArrayCreate(bounds, 3, varVariant);
  for(int i = 0; i < StringGrid1->RowCount; i++)
   for(int j = 0; j < StringGrid1->ColCount; j++)
    {
      if((StringGrid1->Cells[j][i]).IsEmpty()) S = "";
      else S = StringGrid1->Cells[j][i];
      vData.PutElement(S, i, j);
    }
 
 
  Rang = sheet.OlePropertyGet("Range",sheet.OlePropertyGet("Cells",1,1),
           sheet.OlePropertyGet("Cells",StringGrid1->RowCount,StringGrid1->ColCount));
  Rang.OlePropertySet("WrapText", false);
  Rang.OlePropertySet("Value",vData);
 
//Оформляем тип и размер шрифта таблицы
   vFont = sheet.OlePropertyGet("Range",sheet.OlePropertyGet("Cells"),sheet.OlePropertyGet("Cells"));
   vFont.OlePropertyGet("Font").OlePropertySet("Name","Times New Roman");
   vFont.OlePropertyGet("Font").OlePropertySet("Size",Label1->Font->Size);
 
//Оформляем ширину столбцов
  for(int i = 0; i < StringGrid1->ColCount; i++)
   {
    Variant Clmn = sheet.OlePropertyGet("Cells", 1, i + 1).OlePropertyGet("EntireColumn");
    Clmn.OleFunction("AutoFit");
   }
 
//Оформляем выравнивание и шрифт шапки
  vCell = sheet.OlePropertyGet("Range",sheet.OlePropertyGet("Cells",1,1),sheet.OlePropertyGet("Cells",1,6));
  vCell.OlePropertySet("HorizontalAlignment",-4108);
 
 
  vCell.OlePropertyGet("Font").OlePropertySet("Bold",true);
  vCell.OlePropertyGet("Font").OlePropertySet("Size",Label1->Font->Size-1);
  vCell.OlePropertyGet("Font").OlePropertySet("Name","Times New Roman");
 
//Рисуем границы ячеек
  for(int i = 1; i <= StringGrid1->RowCount; i++)
   for(int j = 1; j <= StringGrid1->ColCount; j++)
    {
      vCell = sheet.OlePropertyGet("Cells").OlePropertyGet("Item", i, j);
      vCell.OlePropertyGet("Borders",10).OlePropertySet("LineStyle",1);
      vCell.OlePropertyGet("Borders",10).OlePropertySet("Weight",2);
      vCell.OlePropertyGet("Borders",7).OlePropertySet("LineStyle",1);
      vCell.OlePropertyGet("Borders",7).OlePropertySet("Weight",2);
      vCell.OlePropertyGet("Borders",8).OlePropertySet("LineStyle",1);
      vCell.OlePropertyGet("Borders",8).OlePropertySet("Weight",2);
      vCell.OlePropertyGet("Borders",9).OlePropertySet("LineStyle",1);
      vCell.OlePropertyGet("Borders",9).OlePropertySet("Weight",2);
    }

//считываем с базы данные
 //открыть один из найденных адресов из таблицы
  Form1->ADOQuery1->SQL->Text="SELECT Счетчик, ФИО, Дата рождения FROM Таблица WHERE АдрКод=(SELECT АдрКод FROM Таблица WHERE ФИО='"+Edit1->Text+"')";
  Form1->ADOQuery1->Open();
  Form1->ADOQuery1->Active=true

  for(int i=0;i<ADOQuery1->RecordCount;i++)
    {
    String Schitchik = ADOQuery1->Fields->Fields[0]->AsString;
    String Fio = ADOQuery1->Fields->Fields[1]->AsString;
    String DataRojd = ADOQuery1->Fields->Fields[2]->AsString;
    ADOQuery1->Next();}

//Открыли Ексель
  Variant app, books, book, sheet, Rang, vCell, vFont;
  app = CreateOleObject("Excel.Application");
  app.OlePropertySet("Visible",true);
  books = app.OlePropertyGet("Workbooks");
  books.OleProcedure("Add");
  book = books.OlePropertyGet("Item",1);
  sheet = book.OlePropertyGet("WorkSheets",1);
 
//Сформировали и записали вариантный массив из DBGrid
 String S;
  const int bounds[4] = {0, DBGrid1->RowCount, 0, DBGrid1->ColCount};
  Variant vData = VarArrayCreate(bounds, 3, varVariant);
  for(int i=0;i<ADOQuery1->RecordCount;i++)
     {
      // здесь надо подумать позже напишу
      S = ADOQuery1->Fields->Fields[0]->AsString;
    ADOQuery1->Next();}

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <DateUtils.hpp>
#include <ComObj.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
String __fastcall TForm1::LZ(int Prm)
{
  if(Prm < 10) return "0" + IntToStr(Prm);
  else return IntToStr(Prm);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Q1->Close();
  Q1->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ExtractFilePath(ParamStr(0)) + "base.mdb;Persist Security Info=False";
  ComboBox1->Items->Clear();
  for (int i = 0; i < 12; ComboBox1->Items->Add(FormatSettings.LongMonthNames[i]), i++);
  ComboBox1->ItemIndex = MonthOf(Now()) - 1;
  UpDown1->Position = YearOf(Now());
  nQueryClick(nAll);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnQueryClick(TObject *Sender)
{
  String _sql;
  if(iMenu == 1)
   {
     _sql = "SELECT * FROM Tab1";
     Header = "Полный отчет";
     fOut = "Full_report.xls";
   }
  else
   {
     String D, M, Y;
     D = LZ(DaysInAMonth(UpDown1->Position,ComboBox1->ItemIndex + 1));
     M = LZ(ComboBox1->ItemIndex + 1);
     Y = Edit1->Text;
     String bDate = String().sprintf(L"%s/01/%s", M, Y);
     String eDate = String().sprintf(L"%s/%s/%s", M, D, Y);
     _sql = "SELECT * FROM Tab1 where Dt between #" + bDate + "# and #" + eDate + "#";
     Header = String().sprintf(L"Отчет за период с 01.%s.%s по %s.%s.%s", M, Y, D, M, Y);
     fOut = String().sprintf(L"report_%s_%s.xls", ComboBox1->Text, Y);
   }
  Q1->Close();
  Q1->SQL->Clear();
  Q1->SQL->Add(_sql);
  Q1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnExcelClick(TObject *Sender)
{
  String fTPL = ExtractFilePath(Application->ExeName) + "template.xls";
  String fXLS = ExtractFilePath(Application->ExeName) + fOut;
  Variant app, books, book, sheet, Rang, vCell;
  app = CreateOleObject("Excel.Application");
  books = app.OlePropertyGet("Workbooks");
  books.OleFunction("Open", WideString(fTPL));
  book = books.OlePropertyGet("item",1);
  sheet = book.OlePropertyGet("WorkSheets",1);
 
  vCell=sheet.OlePropertyGet("Cells").OlePropertyGet("Item",1,1);
  vCell.OlePropertySet("Value",WideString(Header));
 
  const int bounds[4] = {0, Q1->RecordCount, 0, Q1->FieldCount};
  Variant vData = VarArrayCreate(bounds, 3, varVariant);
  Q1->First();
  for(int row = 0; row < Q1->RecordCount; ++row)
   {
     for(int column = 0; column < Q1->FieldCount; ++column)
        vData.PutElement(Q1->Fields->Fields[column]->AsVariant, row, column);
     Q1->Next();
   }
  Rang = sheet.OlePropertyGet("Range",sheet.OlePropertyGet("Cells",4,1),
         sheet.OlePropertyGet("Cells", Q1->RecordCount + 3, Q1->FieldCount));
  Rang.OlePropertySet("Value",vData);
  app.OlePropertySet("DisplayAlerts",false);
  book.OleProcedure("SaveAs",WideString(fXLS));
  app.OleProcedure("Quit");
  ShowMessage("Готово!\nОтчет записан в файл " + fXLS);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::nQueryClick(TObject *Sender)
{
  iMenu = ((TMenuItem *)Sender)->Tag;
  ((TMenuItem *)Sender)->Checked = true;
  btnQuery->Caption = ((TMenuItem *)Sender)->Caption;
  btnQueryClick(Sender);
}
//---------------------------------------------------------------------------