Variant EA=Variant::CreateObject("Excel.Application");
  try
  {
    EA.Exec(PropertySet("Visible")<<true);
    EA.Exec(PropertyGet("Workbooks")).Exec(Function("Add"));

    EA.Exec(PropertyGet("ActiveWorkbook")).Exec(PropertyGet("Sheets")).Exec(Procedure("Add"));

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Variant EA=Variant::CreateObject("Excel.Application");
  try
  {
    EA.Exec(PropertySet("Visible")<<true);
    EA.Exec(PropertyGet("Workbooks")).Exec(Function("Add"));

    Variant Sheet=EA.Exec(PropertyGet("ActiveWorkbook")).Exec(PropertyGet("Sheets")<<"Eeno3");
    EA.Exec(PropertyGet("ActiveWorkbook")).Exec(PropertyGet("Sheets")<<"Eeno1").Exec(Procedure("Copy")<<Sheet);
  }
  __finally
  {
    EA=Unassigned;
  }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Variant EA=Variant::CreateObject("Excel.Application");
  try
  {
    EA.Exec(PropertySet("Visible")<<true);
    EA.Exec(PropertyGet("Workbooks")).Exec(Function("Add"));

    Variant Sheet=EA.Exec(PropertyGet("ActiveWorkbook")).Exec(PropertyGet("Sheets")<<"Лист3");
    EA.Exec(PropertyGet("ActiveWorkbook")).Exec(PropertyGet("Sheets")<<"Лист1").Exec(Procedure("Copy")<<Sheet);
  }
  __finally
  {
    EA=Unassigned;
  }
}

AnsiString OutRange(int x,int y)
{
  int R='Z'-'A'+ 1 ;
//  char R0='A';

  AnsiString Out=(x>=R)? "A":"";
  x%=R;
  Out=Out+char(x+'A');
  Out=Out+AnsiString(y+ 1 );
  return Out;
}
AnsiString Range(int x,int y)
{
  AnsiString Out=OutRange(x,y);
  return Out+":"+Out;
}
AnsiString Range(int x1,int y1,int x2,int y2)
{
  return OutRange(x1,y1)+":"+OutRange(x2,y2);
}
Variant SetValue(Variant EA,int x,int y,AnsiString v,bool sel)
{
  if (v.Length()<= 0 ) v=" ";
  Variant r=EA.Exec(PropertyGet("Range")<<Range(x,y));
  r.Exec(PropertySet("Value")<<v);
  if (sel) r.Exec(Procedure("Select"));
  return r;
}