void __fastcall TForm1::Btn_LoadClick(TObject *Sender)
{
    AnsiString filepath;

    if(OpenDialog1->Execute())                        //若開啟檔案成功
    {
        filepath=  OpenDialog1->FileName.c_str();      //把檔案路徑儲存 filepath
    }


    Edit1->Text= ""+filepath ;    //印出路徑

//declaration of variables of type variant
    Variant XL,v0,v1,vcell;

//a string where you will temporarily put the content of a single Cell
    AnsiString tmp;

//create an object which is an excel application and store it to XL
    XL=Variant::CreateObject("excel.application");

//Set the Excel Application as invisible once you have opened it
    XL.PS("Visible",false);

//Get the workbooks while has a path stored in “file” variable and open it.
    XL.PG("Workbooks").PR("Open", filepath.c_str() );

//Get the Sheet which has a title “Sheet1〃
    v0=XL.PG("Sheets","Hover_Down_Result");

//Get the Cells of that particular Sheet.
    v1=v0.PG("Cells");
    for(int row=1; row<7; row++)
    {
        for(int col=1; col<3; col++)
        {
//Get the content of the Cell located at row 2 and column 2
            vcell=v1.PG("Item",row,col);   //決定要讀取的位置 at row 2 and column 2

//store that content to ansistring “tmp”
            tmp=vcell.PG("Value");
//重複 上兩行決定要讀的數字

//印出
            Memo1->Lines->Add("xls[2][2]="+tmp );
        }
    }

}