XLApp=Variant::GetActiveObject("Excel.Application");
      IsOpen=true;
     } catch(...){
        try{
           XLApp = Variant::CreateObject("Excel.Application");
           IsOpen=false;
        } catch(...){
           return;
        }
      }
      try{
        AnsiString AppPath = ExtractFileDir(ParamStr( 0 ));
        WorkBook = XLApp.OlePropertyGet("Workbooks");
        if(!IsOpen)XLApp.OlePropertyGet("Workbooks").OleFunction("Open",(AppPath+"\\result.xls").c_str());
       WorkBook=WorkBook.OlePropertyGet("Item", 1 );

Variant Sheet=App.OlePropertyGet("WorkSheets", 1 );//Берем 1-й лист