Variant App, Books, Book, Sheets, Sheet, Cell, Result;
 AnsiString	a;

 App=Variant::CreateObject( "Excel.Application" );
 //App.OlePropertySet( "Visible" ,true);
 Books=App.OlePropertyGet( "Workbooks" );
 Books.OleFunction( "Open" ,  "Книга1.xls" );
 Book=App.OlePropertyGet( "ActiveWorkbook" );
 Sheets=Book.OlePropertyGet( "Worksheets" );
 Sheet=Book.OlePropertyGet( "Worksheets" , 1 );
 Sheet.OleFunction( "Select" );
 Cell=CurSheet.OlePropertyGet( "Cells" ,i,j);
 Result=Cell.OlePropertyGet( "Value" );
 a = Result;
 App.OleFunction( "Quit" );