Сохранение таблицы в Ecxel

void __fastcall TMainForm::SaveTabExecute(TObject *Sender)
{
MakeReport();
}
void TMainForm::MakeReport()
{
    // запускаем Excel
    ExcelInit("");
 
    // записываем в него заголовки
    AnsiString s=TableForm->Data->Cells[0][0];
    toExcelCell(1,1,String(s));
 
    // записываем в него данные
    for(int i=1; i < TableForm->Data->RowCount; i++)
    {
       toExcelCell(i+1, 1, TableForm->Data->Cells[0][i]);
    }
    // делаем его видимым
    if(!App.IsEmpty())App.OlePropertySet("Visible",true);
 
    // сохраняем его на диске в файл MyTest.xls
    try{
      App.OlePropertyGet("WorkBooks",1).OleProcedure("SaveAs","MyTest");
      }catch(...){
         ShowMessage("Не забудьте сохранить сделанные изменения !");
         }
    // освобождаем ресурсы
    Sh.Clear();
    App.Clear();
}
//------------------------------------------------------------------------
 
void __fastcall TMainForm::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 TMainForm::toExcelCell(int Row,int Column, String data)
{
  try {
    Variant  cur = Sh.OlePropertyGet("Cells", Row,Column);
    cur.OlePropertySet("Value", data.c_str());
  } catch(...) { ; }
}/* toExcelCell() */
//------------------------------------------------------------------------
 
void __fastcall TMainForm::toExcelCell(int Row,int Column, Variant data)
{
  try {
    Variant  cur = Sh.OlePropertyGet("Cells", Row,Column);
    cur.OlePropertySet("Value", data);
  } catch(...) { ; }
}/* toExcelCell() */
//---------------------------------------------------------------------------

//отчет EXCEL
int k, n=7, metka=0;
Variant range;
AnsiString SaveName ="";
AnsiString Formula ="";
UnicodeString d,sv;
DT=FormatDateTime("dd.mm.yyyy",Now());
 
Variant V, VSheet, VCell;
 
ExcelInit("");
toExcelCell(1,1,String(L"Акт от ")+DateToStr(DT)+String("г."));
toExcelCell(2,1,String(L"сведения о показаниях счетчиков"));
toExcelCell(4,4,String(L"Показания счетчика"));
toExcelCell(4,8,String(L"Разность показаний"));

UnicodeString u_str;
AnsiString a_str = (AnsiString)u_str;