Excel и С++ Builder

    TOraQuery* Query1 = new TOraQuery(NULL);
    Query1->Session = DbManager->Session;
    Query1->SQL->Clear();
    Query1->SQL->Add("SELECT * FROM DOG_DSL WHERE CNT = '" + DSrc->DataSet->FieldByName("CNT")->AsString + "'");
    RangePtr my_range;
    AnsiString r = "";
    TExcelApplication* ExcelApplication1 = new TExcelApplication(NULL);
    TExcelWorkbook* ExcelWorkbook1 = new TExcelWorkbook(NULL);
    TExcelWorksheet* ExcelWorksheet1 = new TExcelWorksheet(NULL);
    try{
      Query1->Open();
      RangePtr my_range;
      char s[16];
      AnsiString r = "";
      // connect to Excel
      ExcelApplication1->Connect();
      // add a workbook
      ExcelApplication1->Workbooks->Add();
      // open the workbook
      ExcelWorkbook1->ConnectTo(ExcelApplication1->Workbooks->get_Item(TVariant(1)));
      ExcelWorkbook1->Activate(0);
      // open the workbook to the first worksheet
      ExcelWorksheet1->ConnectTo(ExcelWorkbook1->Sheets->get_Item(TVariant(1)));
      ExcelWorksheet1->Activate(0);
      // insert field names into the worksheet
      for(int i = 0; i < Query1->FieldCount; i++){
        r = xlRCtoA1(1, i + 1);
        // get the range and iterate through its cells while inserting field names
        my_range = ExcelWorksheet1->get_Range(TVariant("A1"), TVariant(r));
        my_range = my_range->get_Cells()->get_Item(TVariant(1), TVariant(i + 1));
        my_range->set_Value(TVariant(Query1->Fields->Fields[i]->FieldName.c_str()));
      }
      // insert data into the worksheet
      while(!Query1->Eof){
        for(int i = 0; i < Query1->FieldCount; i++){
          r = xlRCtoA1(2, i + 1);
          // get the range and iterate through its cells while inserting data
          my_range = ExcelWorksheet1->get_Range(TVariant("A1"), TVariant(r));
          my_range = my_range->get_Cells()->get_Item(TVariant(2), TVariant(i + 1));
          if(Query1->Fields->Fields[i]->DataType != ftDateTime)
            my_range->set_NumberFormat(TVariant("@"));
          my_range->set_Value(TVariant(Query1->Fields->Fields[i]->AsString.c_str()));
        }
        if(!Query1->Eof)
          Query1->Next();
      }
      Query1->Close();
      delete my_range;
      ExcelWorksheet1->Disconnect();
      delete ExcelWorksheet1;
      AnsiString S = Application->ExeName.SubString(1, Application->ExeName.LastDelimiter("\\") - 1) + "[URL="file://\\docs\\record.xls"]\\docs\\record.xls[/URL]";
      // save the workbook with an user-given filename
      ExcelWorkbook1->Close(TVariant(true), TVariant(S), TNoParam(), LOCALE_USER_DEFAULT);
      ExcelWorkbook1->Disconnect();
      delete ExcelWorkbook1;
      // disconnect from Excel
      ExcelApplication1->Quit();
      ExcelApplication1->Disconnect();
      delete ExcelApplication1;
    }catch(...){}
    delete Query1;

Variant app ;
Variant books ;
Variant book ;
Variant sheet ;
 
app = CreateOleObject("Excel.Application");
app.OlePropertySet("Visible", 0);
books = app.OlePropertyGet("Workbooks");
books.Exec(Procedure("Open")<<"c:\\1.xlsx");
book = books.OlePropertyGet("item",1);
sheet= book.OlePropertyGet("WorkSheets",1);
 
app.OlePropertyGet("WorkSheets",1).OleProcedure("SaveAs","c:\\1.xlsx");
app.OleProcedure("Quit");

AnsiString xlRCtoA1(int ARow, int ACol, bool RowAbsolute, bool ColAbsolute)
{
  int A1 = CHAR('A') - 1;  // номер "A" минус 1 (65 - 1 = 64)
  int AZ = CHAR('Z') - A1; // кол-во букв в англ. алфавите (90 - 64 = 26)
  int t, m;
  AnsiString S; // чтоб экономить память IV=256 последний столбец
  // номер колонки
  t = div(ACol, AZ).quot; // целая часть
  m = div(ACol, AZ).rem; // остаток?
  if(m == 0) t--;
  if (t > 0) S = AnsiString(CHAR(A1 + t)); else S = "";
  if(m == 0) t = AZ; else t = m;
  S = S + Char(A1 + t);
  // весь адрес
  if(ColAbsolute) S = "$" + S;
  if(RowAbsolute) S = S + "$";
  S = S + IntToStr(ARow);
  return S;
}

#include <vcl.h>
#pragma hdrstop
#include <OleServer.hpp>
#include <utilcls.h>
 
 
#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bToExcelClick(TObject *Sender)
{
 MakeReport();
 Button1->Visible=true;
}
//---------------------------------------------------------------------------
void TForm1::MakeReport()
{
    // запускаем Excel
    ExcelInit("");
    if (CheckBox1->Checked)
    { // делаем его видимым
    if(!App.IsEmpty())App.OlePropertySet("Visible",true);}
}
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString in = (InputBox("Borland C++ Builder", "Введите имя файла: ", ""));
 
// сохраняем его на диске 
    try{
 
      App.OlePropertyGet("WorkBooks",1).OleProcedure("SaveAs", in.c_str() );
      }catch(...){
         ShowMessage("Не забудьте сохранить сделанные изменения !");
         }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
mem->Clear();
 
// добавляем информацию для имён колонок
AnsiString sline = "";
for(int col = 0; col < DBGrid1->FieldCount; ++col)
{
      sline += DBGrid1->Fields[col]->DisplayLabel + (char)9;
}
 
mem->Lines->Add(sline);
 
// получаем данные из memo
   for(int row = 0; row < DBGrid1->DataSource->DataSet->RecordCount; ++row)
   {
      sline = "";
      for(int col = 0; col < DBGrid1->FieldCount; ++col)
      {
         sline += DBGrid1->Fields[col]->AsString + (char)9;
      }
      mem->Lines->Add(sline);
      DBGrid1->DataSource->DataSet->Next();
   }
 
// копируем данные в буфер обмена (clipboard)
mem->SelectAll();
mem->CopyToClipboard();
 
Sh.OleProcedure("Paste");
 
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::ExcelInit(String File)
{
  // если Excel запущен - подключиться к нему 
  try {
   App=Variant::GetActiveObject("Excel.Application");
  } catch(...) {
     // Excel не запущен - запустить его
     try { App=Variant::CreateObject("Excel.Application"); } catch (...) {
      Application->MessageBox("Невозможно открыть Microsoft Excel!"
      "Возможно Excel не установлен на компьютере.","Ошибка",MB_OK+MB_ICONERROR);
  } }
  try {
    if(File!="")
     App.OlePropertyGet("WorkBooks").OleProcedure("Open",File.c_str());
    else
     App.OlePropertyGet("WorkBooks").OleProcedure("add");
 
    Sh=App.OlePropertyGet("WorkSheets",1);
  } catch(...) {
    Application->MessageBox("Ошибка открытия книги Microsoft Excel!",
                                         "Ошибка",MB_OK+MB_ICONERROR);
  }
}/* ExcelInit() */
//-------------------------------------
 
 
 
 
 
void __fastcall TForm1::toExcelCell(int Row,int Column, AnsiString data)
{
  try {
    Variant  cur = Sh.OlePropertyGet("Cells", Row,Column);
    cur.OlePropertySet("Value", data.c_str());
  } catch(...) { ; }
}/* toExcelCell() */
//------------------------------------------------------------------------
 
 
 
 
 
 
void __fastcall TForm1::toExcelCell(int Row,int Column, Variant data)
{
  try {
    Variant  cur = Sh.OlePropertyGet("Cells", Row,Column);
    cur.OlePropertySet("Value", data);
  } catch(...) { ; }
}/* toExcelCell() */
void __fastcall TForm1::formulaExcel(int sRow, int sColumn, int row)
{
   try {
    App.OlePropertyGet("Cells", sRow, sColumn).OlePropertySet("FormulaR1C1", 
                        ("=СУММ(R[-"+AnsiString(row)+"]C:R[-1]C)").c_str());
  } catch(...) { ; }
}/* formulaExcel() */
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// можем при желании и сразу закрыть, если закрывать не нужно - удалите этот блок
     //---
     try{
       App.OlePropertyGet("WorkBooks",1).OleProcedure("Close");
       }catch(...){
          ShowMessage("Не забудьте сами закрыть Excel.");
      }
     //---
 
    // освобождаем ресурсы
    Sh.Clear();
    App.Clear();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
//
AnsiString  CellName = "" , CellText = "";
 
unsigned short int Row_Counter = 6 , Column_Counter = 0;
//AnsiString Set_Cell_Name (0 , 1) ;
 
while (Column_Counter < ADOQuery2->Fields->Count)
       {
     //  CellName = Set_Cell_Name (Column_Counter , 1);
 
        // функция Set_Cell_Name возвращает стринг - название ячейки типа A1 ,B2 и т.д.
 
        CellText = ADOQuery2->Fields->Fields[Column_Counter]->FullName ;
        Sh.OlePropertyGet("Range", CellName).OlePropertySet("Value",CellText);
        Column_Counter++ ;
       }
 
Column_Counter = 0;
ADOQuery2->First();
 
// собственно експорт
while (!ADOQuery2->Eof)
      {
       while (Column_Counter < ADOQuery2->Fields->Count)
              {
        //       CellName = Set_Cell_Name (Column_Counter , Row_Counter);
               CellText = ADOQuery2->Fields->Fields[Column_Counter]->AsString;
 
               Sh.OlePropertyGet("Range", CellName).
                         OlePropertySet("Value",CellText);
 
               Column_Counter++ ;
              }
      Column_Counter = 0;
      Row_Counter ++;
      ADOQuery2->Next();
      }
App.OlePropertySet("WindowState" ,2 );
Form1->WindowState = wsNormal;
 
 
 
}
//---------------------------------------------------------------------------
 
 
 
 
 
 
 
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
  ADOQuery2->SQL->Clear();
   ADOQuery2->SQL->Add("SELECT * FROM raspisanie");
    RangePtr my_range;
    AnsiString r = "";
 
    try{
      ADOQuery2->Open();
      RangePtr my_range;
      char s[16];
      AnsiString r = "";
 
      // open the workbook to the first worksheet
      Sh->ConnectTo(Book->Sh->get_Item(TVariant(1)));
      Sh->Activate(0);
      // insert field names into the worksheet
      for(int i = 0; i < ADOQuery2->FieldCount; i++){
        r = xlRCtoA1(1, i+1);
        // get the range and iterate through its cells while inserting field names
        my_range = Sh->get_Range(TVariant("A1"), TVariant(r));
        my_range = my_range->get_Cells()->get_Item(TVariant(1), TVariant(i + 1));
        my_range->set_Value(TVariant(ADOQuery2->Fields->Fields[i]->FieldName.c_str()));
      }
      // insert data into the worksheet
      while(!ADOQuery2->Eof){
        for(int i = 0; i < ADOQuery2->FieldCount; i++){
          r = xlRCtoA1(2, i + 1);
          // get the range and iterate through its cells while inserting data
          my_range = Sh->get_Range(TVariant("A1"), TVariant(r));
          my_range = my_range->get_Cells()->get_Item(TVariant(2), TVariant(i + 1));
          if(ADOQuery2->Fields->Fields[i]->DataType != ftDateTime)
          my_range->set_NumberFormat(TVariant("@"));
          my_range->set_Value(TVariant(ADOQuery2->Fields->Fields[i]->AsString.c_str()));
        }
        if(!ADOQuery2->Eof)
          ADOQuery2->Next();
      }
      ADOQuery2->Close();
      delete my_range;
      Sh->Disconnect();
//      delete Sh;
       }
 
}
//---------------------------------------------------------------------------

#ifndef mainH
#define mainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <Dialogs.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Sockets.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *bToExcel;
        TButton *Button1;
        TButton *Button2;
        TButton *Button3;
        TADOConnection *ADOConnection1;
        TDBGrid *DBGrid1;
        TDataSource *DataSource1;
        TADOQuery *ADOQuery1;
        TCheckBox *CheckBox1;
        TADOQuery *ADOQuery2;
        TMemo *mem;
        TButton *Button4;
        TButton *Button5;
        void __fastcall bToExcelClick(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button3Click(TObject *Sender);
        void __fastcall Button4Click(TObject *Sender);
        void __fastcall Button5Click(TObject *Sender);
private:    // User declarations
        void __fastcall ExcelInit(String File);
   //     void __fastcall formulaExcel(int sRow, int sColumn, int row);
        void __fastcall toExcelCell(int c1,int c2, String data);
        void __fastcall toExcelCell(int c1,int c2, Variant data);
 
        Variant App,Sh, Book;
        void MakeReport();
        AnsiString xlRCtoA1(int ARow, int ACol, bool RowAbsolute, bool ColAbsolute)
{
  int A1 = CHAR('A') - 1;  // номер "A" минус 1 (65 - 1 = 64)
  int AZ = CHAR('Z') - A1; // кол-во букв в англ. алфавите (90 - 64 = 26)
  int t, m;
  AnsiString S; // чтоб экономить память IV=256 последний столбец
  // номер колонки
  t = div(ACol, AZ).quot; // целая часть
  m = div(ACol, AZ).rem; // остаток?
  if(m == 0) t--;
  if (t > 0) S = AnsiString(CHAR(A1 + t)); else S = "";
  if(m == 0) t = AZ; else t = m;
  S = S + Char(A1 + t);
  // весь адрес
  if(ColAbsolute) S = "$" + S;
  if(RowAbsolute) S = S + "$";
  S = S + IntToStr(ARow);
  return S;
}
 
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

void __fastcall TForm1::Button5Click(TObject *Sender)
{
  ADOQuery2->SQL->Clear();
   ADOQuery2->SQL->Add("SELECT * FROM raspisanie");
    RangePtr my_range;
    AnsiString r = "";
 
    try{
      ADOQuery2->Open();
      RangePtr my_range;
      char s[16];
      AnsiString r = "";
 
      // open the workbook to the first worksheet
      Sh->ConnectTo(Book->Sh->get_Item(TVariant(1)));
      Sh->Activate(0);
      // insert field names into the worksheet
      for(int i = 0; i < ADOQuery2->FieldCount; i++){
        r = xlRCtoA1(1, i+1);
        // get the range and iterate through its cells while inserting field names
        my_range = Sh->get_Range(TVariant("A1"), TVariant(r));
        my_range = my_range->get_Cells()->get_Item(TVariant(1), TVariant(i + 1));
        my_range->set_Value(TVariant(ADOQuery2->Fields->Fields[i]->FieldName.c_str()));
      }
      // insert data into the worksheet
      while(!ADOQuery2->Eof){
        for(int i = 0; i < ADOQuery2->FieldCount; i++){
          r = xlRCtoA1(2, i + 1);
          // get the range and iterate through its cells while inserting data
          my_range = Sh->get_Range(TVariant("A1"), TVariant(r));
          my_range = my_range->get_Cells()->get_Item(TVariant(2), TVariant(i + 1));
          if(ADOQuery2->Fields->Fields[i]->DataType != ftDateTime)
          my_range->set_NumberFormat(TVariant("@"));
          my_range->set_Value(TVariant(ADOQuery2->Fields->Fields[i]->AsString.c_str()));
        }
        if(!ADOQuery2->Eof)
          ADOQuery2->Next();
      }
      ADOQuery2->Close();
      delete my_range;
      Sh->Disconnect();
//      delete Sh;
       }