StringGrid1 StringGrid2

 void __fastcall TForm1::Button1Click(TObject *Sender)
{
 if(OpenDialog1->Execute())
   {
var_Load=CreateOleObject("Excel.Application");
var_Load.OlePropertyGet("Application").OlePropertyGet("Workbooks").OleProcedure("Open" , OpenDialog1->FileName.c_str() );
var_Load.OlePropertySet("Visible",false);
var_Sheet = var_Load.OlePropertyGet("ActiveSheet");
 
for (Row_Counter+1 ; Row_Counter <= Max_Row ; Row_Counter++)
    {
      for (Column_Counter+1 ; Column_Counter <= Max_Column  ; Column_Counter++)
          {
           StringGrid1->Cells[Column_Counter][Row_Counter] =
               var_Sheet.OlePropertyGet("Cells").OlePropertyGet("Item", Row_Counter + 1 , Column_Counter + 1);
          }
          Column_Counter = 0;
    }
var_Load.OlePropertyGet("Application").OleProcedure("Quit");
var_Sheet = Unassigned;
var_Load = Unassigned;
 
 
 
 
 
 
 
 
 
}
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow,
      TRect &Rect, TGridDrawState State)
{
// if(Shift.Contains(ssShift)){
 
      StringGrid2->Cells[Column_Counter][Row_Counter] = StringGrid1->Cells[Column_Counter][Row_Counter];

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "u_copy.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        for (int i = 0; i < 5; i++ )
                for (int j = 0; j < 5; j++ )
                        StringGrid1->Cells[i][j] = i+j;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        TGridRect rect;
        int k, l;
 
        rect = StringGrid1->Selection;
 
        for (int i = rect.Top, k = 0; i < rect.Bottom + 1; i++, k++ )
                for (int j = rect.Left, l = 0; j < rect.Right + 1; j++, l++ )
                        StringGrid2->Cells[k][l] = StringGrid1->Cells[i][j];
}
//---------------------------------------------------------------------------