Работа с Excel

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  DTP1->Date = Now() - 30;
  DTP2->Date = Now();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 MakeReport();
}
//---------------------------------------------------------------------------
// а вот и вся программа
 
void TForm1::MakeReport()
{
    // запускаем Excel
    ExcelInit("");
 
    // записываем в него заголовки
    toExcelCell(1,1,WideString("Дата"));
    toExcelCell(1,2,WideString("Наименование"));
    toExcelCell(1,3,WideString("Количество"));
    toExcelCell(1,4,WideString("Цена за еденицу"));
    toExcelCell(1,5,WideString("Сумма"));
 
    // записываем в него данные
    for(int i=0; i < 30; i++){
       toExcelCell(i+2, 1, Variant(DTP1->Date + i));
       AnsiString s = "Молоко "+IntToStr(i+1)+"% жирности";
       toExcelCell(i+2, 2, WideString(s));
       toExcelCell(i+2, 3, Variant(i*2+3));
       toExcelCell(i+2, 4, Variant(i*17.5+1));
       toExcelCell(i+2, 5, Variant((i*2+3) * (i*17.5+1)));
       }
 
    toExcelCell(32,1,WideString("Итого"));
 
    // записываем 2 формулы (диапазон значений)
    formulaExcel(32, 3, 30);
    formulaExcel(32, 5, 30);
 
    // еще формула
    toExcelCell(34,1,WideString("Налог 5%"));
    App.OlePropertyGet("Cells", 34, 5).OlePropertySet("Formula", WideString("=E32*5%"));
 
    // делаем его видимым
 
    if(!App.IsEmpty())App.OlePropertySet("Visible",true);
 
    // сохраняем его на диске в файл MyTest.xls
    try{
      App.OlePropertyGet("WorkBooks",1).OleProcedure("SaveAs","MyTest");
      }catch(...){
         ShowMessage("Не забудьте сохранить сделанные изменения !");
         }
 
     // можем при желании и сразу закрыть, если закрывать не нужно - удалите этот блок
     //---
     try{
       App.OlePropertyGet("WorkBooks",1).OleProcedure("Close");
       }catch(...){
          ShowMessage("Не забудьте сами закрыть Excel.");
      }
     //---
 
    // освобождаем ресурсы
    Sh.Clear();
    App.Clear();
}
//--------------------------------------------------------------------------
void __fastcall TForm1::ExcelInit(String File)
{
  // если Excel запущен - подключиться к нему
  try {
   App=Variant::GetActiveObject("Excel.Application");
  } catch(...) {
     // Excel не запущен - запустить его
     try { App=Variant::CreateObject("Excel.Application"); } catch (...) {
      Application->MessageBox(L"Невозможно открыть Microsoft Excel!"
      L"Возможно Excel не установлен на компьютере.",L"Ошибка",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(L"Ошибка открытия книги Microsoft Excel!",
                                         L"Ошибка",MB_OK+MB_ICONERROR);
  }
}/* ExcelInit() */
//---------------------------------------------------------------------------
void __fastcall TForm1::toExcelCell(int Row,int Column, WideString data)
{
  try {
    Variant  cur = Sh.OlePropertyGet("Cells", Row,Column);
    cur.OlePropertySet("Value", data);
    //ShowMessage("1");
  } catch(...) { ; }
}/* toExcelCell() */
//---------------------------------------------------------------------------
void __fastcall TForm1::toExcelCell(int Row,int Column, Variant data)
{
  try {
    Variant  cur = Sh.OlePropertyGet("Cells", Row,Column);
    cur.OlePropertySet("Value", data);
    //ShowMessage("2");
  } catch(...) { ; }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::formulaExcel(int sRow, int sColumn, int row)
{
   try {
    App.OlePropertyGet("Cells", sRow, sColumn).OlePropertySet("FormulaR1C1",WideString("=СУММ(R[-"+WideString(row)+"]C:R[-1]C)"));
 
  } catch(...) { ; }
}/* formulaExcel() */
//---------------------------------------------------------------------------

void ReadXLS()
{
    String a="\\tst.xlsx"; //файл, содержащий текст тестов
    Variant cnn;
    bool st=false;
        //попытка создания подключения к экселю
        try
        {
            cnn = CreateOleObject("EXCEL.Application");//пытаемся подключиться к экселю
        st=true; //флаг подключения
        }
        catch(...)
        {
            //выводим сообщение о том, что эксель на компьютере не установлен
                Application->MessageBoxW(L"Невозможно открыть Microsoft Excel!"
                            L"Возможно, Excel не установлен на компьютере.",
                            L"Ошибка",MB_OK+MB_ICONERROR);
                //MessageBox(0, 'Ошибка при открытии сервера excel', 'Ошибка', MB_OK);
        return;
        }
        cnn.OlePropertyGet("Workbooks").OlePropertyGet("Open",a.c_str());//открываем файл для последующего анализа
        MainForm->Vopros->Caption = cnn.OlePropertyGet("Cells",1,3);
}

cnn.OlePropertyGet("Workbooks").OlePropertyGet("Open",a.c_str());

cnn.OlePropertyGet("Workbooks").OleFunction("Open", WideString(a));

String a="\\tst.xlsx";

String a = ExtractFilePath(Application->ExeName)+"tst.xlsx";

cnn = CreateOleObject("EXCEL.Application");

       cnn.OlePropertyGet("WorkBooks",1).OleProcedure("Close");

cnn.OleProcedure("Quit");

sheet = book.OlePropertyGet("Worksheets","Персональные данные");
        sheet.OleProcedure("Activate");

sheet = book.OlePropertyGet("Worksheets", WideString(L"Персональные данные"));

sheet = book.OlePropertyGet("Worksheets",WideString("Персональные данные"));