void __fastcall TForm1::readexel() //чтение и запись из кн. Exel
{ AnsiString s,fl; float x;
TExcelApplication * EA =new TExcelApplication(NULL);
//TExcelWorkBook * wb; TExcelWorksheet ws;
fl=GetCurrentDir()+"\\dan.xls"; //полное имя файла исх данн
// BSTR fld = WideString(fl).c_bstr();
Variant fld=fl;
if (! FileExists(fld)) { //если нет книги Excel
ShowMessage("Нет файла dan.xls"); exit;
}
EA->Connect();
EA->
ExcelWorkbookPtr wb=EA->Workbooks->Open(fld,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
_WorksheetPtr sh =wb->Sheets->get_Item(TVariant("Лист1"));
RangePtr cl; TVariant v;
for (int i=2 ;i<=6;i++)
{
cl=sh->Cells->get_Item(TVariant(i),TVariant(1));
v=cl->get_Value(); v=i;
sh->Cells->set_Item(TVariant(i),TVariant(2),v);
//get_Item(TVariant(i),TVariant(2));
}
wb->Close();
EA->Disconnect(); EA->Quit();
// EA->Free();
EA=NULL;
}