void __fastcall TForm1::ExcelInit(String File)
{
  // если Excel запущен - подключиться к нему
  try
  {
    App=Variant::GetActiveObject("Excel.Application");
  }
    catch(...)
    {
    Application->MessageBox("Невозможно открыть Microsoft Excel!","Ошибка",MB_OK+MB_ICONERROR);
    }
  try
  {
//  filename = TableNameNormal + ".xls";
    if(File!="")
     App.OlePropertyGet("WorkBooks").OleProcedure("Open",File);
    else
     App.OlePropertyGet("WorkBooks").OleProcedure("add");
     Sh=App.OlePropertyGet("WorkSheets", 1 );
  }
    catch(...)
    {
     Application->MessageBox("Ошибка открытия книги Microsoft Excel!","Ошибка",MB_OK+MB_ICONERROR);
    }

}