Передача данный из StringGrid в "открытый" Excel

//Функция: сохранить StringGrid в Excel--------------------------------------
void __fastcall TForm1::SaveGridToXLS(TStringGrid *Grid,AnsiString FileName)
{
  Variant
  Ex, //Переменная Excel.Application
  Wb, //Переменная WorkBook
  Sh; //Переменная WorkSheet
  OleInitialize(NULL);
  try //Попытка открыть приложение Excel
    {
      Ex=CreateOleObject("Excel.Application");
    }
    catch (...) //Попытка не удалась
      {
        Application->MessageBox("Не могу запустить сервер Microsoft Excel."
        " Возможно, Excel не установлен на компьютере.",
        "Ошибка",MB_OK+MB_ICONERROR);
        return;
      }
  Ex.OlePropertySet("Visible", false); //Отключение визуального режима Excel
  Ex.OlePropertySet("SheetsInNewWorkbook", 3); //Задание количества листов
  Ex.OlePropertyGet("WorkBooks").OleFunction("Add", 1); //Создание книги Excel
  Wb = Ex.OlePropertyGet("WorkBooks", 1);
  Sh=Ex.OlePropertyGet("WorkSheets",1);
  //Вывод StringGrid в Excel
  for (int Row = 0; Row < StringGrid1->RowCount; Row++)
    {
      for (int Col = 0; Col < StringGrid1->ColCount; Col++)
        {
          Sh.OlePropertyGet("Cells", Row + 1, Col + 1).OlePropertySet("Value",
          StringGrid1->Cells[Col][Row].c_str());
        }
    }
  if (FileName!="") //Если FileName не пустое
    {
      try //Попытка сохранить и закрыть приложение Excel
        {
          //НЕ отключить(true) вывод сообщений с вопросами типа "Заменить файл..."
          Ex.OlePropertySet("DisplayAlerts",false);
          //Сохранить книгу
          Ex.OlePropertyGet("Workbooks").OlePropertyGet("Item",1).
            OleProcedure("SaveAs",FileName.c_str());;
          //Закрыть открытое приложение Excel
          Ex.OleProcedure("Quit");
          Sh.Clear();
          Ex.Clear();
          OleUninitialize();
        }
        catch(...) //Попытка не удалась
          {
            MessageBox(0, "Ошибка при сохранении документа в формате .xls",
              "Ошибка", MB_OK);
            Ex.OleProcedure("Quit");
            Sh.Clear();
            Ex.Clear();
            OleUninitialize();
            return;
          }
    }
  else //Если FileName пустое
    {
      Ex.OlePropertySet("Visible", true); //Включить визуального режима Excel
      Sh.Clear();
      Ex.Clear();
      OleUninitialize();
    }
}

bool __fastcall TForm1::ExcelInit(void)
{
   bool Rezul t= false;
   try
   { // Попытка подключиться к открытому приложению Excel
      XL=Variant::GetActiveObject("Excel.Application");
      XLBooks=XL.OlePropertyGet("WorkBooks");
      Rezult=true;
   }
   catch(...)
   { //Попытка не удалась
      try
      { //Попытка открыть приложение Excel
         XL = Variant::CreateObject("Excel.Application");
         XLBooks = XL.OlePropertyGet("WorkBooks");
         Rezult = true;
      }
      catch (...)
      { //Попытка не удалась
         Application->MessageBox("Невозможно открыть Microsoft Excel!"
            "Возможно, Excel не установлен на компьютере.",
            "Ошибка",MB_OK+MB_ICONERROR);
      }
   }
   return Rezult;
}