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 );
        }
    }
 
}

dm9pZCBfX2Zhc3RjYWxsIFRGb3JtMTo6QnRuX0xvYWRDbGljayhUT2JqZWN0ICpTZW5kZXIpCnsKICAgIEFuc2lTdHJpbmcgZmlsZXBhdGg7CgogICAgaWYoT3BlbkRpYWxvZzEtPkV4ZWN1dGUoKSkgICAgICAgICAgICAgICAgICAgICAgICAvL+iLpemWi+WVn+aqlOahiOaIkOWKnwogICAgewogICAgICAgIGZpbGVwYXRoPSAgT3BlbkRpYWxvZzEtPkZpbGVOYW1lLmNfc3RyKCk7ICAgICAgLy/miormqpTmoYjot6/lvpHlhLLlrZggZmlsZXBhdGgKICAgIH0KCgogICAgRWRpdDEtPlRleHQ9ICIiK2ZpbGVwYXRoIDsgICAgLy/ljbDlh7rot6/lvpEKCi8vZGVjbGFyYXRpb24gb2YgdmFyaWFibGVzIG9mIHR5cGUgdmFyaWFudAogICAgVmFyaWFudCBYTCx2MCx2MSx2Y2VsbDsKCi8vYSBzdHJpbmcgd2hlcmUgeW91IHdpbGwgdGVtcG9yYXJpbHkgcHV0IHRoZSBjb250ZW50IG9mIGEgc2luZ2xlIENlbGwKICAgIEFuc2lTdHJpbmcgdG1wOwoKLy9jcmVhdGUgYW4gb2JqZWN0IHdoaWNoIGlzIGFuIGV4Y2VsIGFwcGxpY2F0aW9uIGFuZCBzdG9yZSBpdCB0byBYTAogICAgWEw9VmFyaWFudDo6Q3JlYXRlT2JqZWN0KCJleGNlbC5hcHBsaWNhdGlvbiIpOwoKLy9TZXQgdGhlIEV4Y2VsIEFwcGxpY2F0aW9uIGFzIGludmlzaWJsZSBvbmNlIHlvdSBoYXZlIG9wZW5lZCBpdAogICAgWEwuUFMoIlZpc2libGUiLGZhbHNlKTsKCi8vR2V0IHRoZSB3b3JrYm9va3Mgd2hpbGUgaGFzIGEgcGF0aCBzdG9yZWQgaW4g4oCcZmlsZeKAnSB2YXJpYWJsZSBhbmQgb3BlbiBpdC4KICAgIFhMLlBHKCJXb3JrYm9va3MiKS5QUigiT3BlbiIsIGZpbGVwYXRoLmNfc3RyKCkgKTsKCi8vR2V0IHRoZSBTaGVldCB3aGljaCBoYXMgYSB0aXRsZSDigJxTaGVldDHjgIMKICAgIHYwPVhMLlBHKCJTaGVldHMiLCJIb3Zlcl9Eb3duX1Jlc3VsdCIpOwoKLy9HZXQgdGhlIENlbGxzIG9mIHRoYXQgcGFydGljdWxhciBTaGVldC4KICAgIHYxPXYwLlBHKCJDZWxscyIpOwogICAgZm9yKGludCByb3c9MTsgcm93PDc7IHJvdysrKQogICAgewogICAgICAgIGZvcihpbnQgY29sPTE7IGNvbDwzOyBjb2wrKykKICAgICAgICB7Ci8vR2V0IHRoZSBjb250ZW50IG9mIHRoZSBDZWxsIGxvY2F0ZWQgYXQgcm93IDIgYW5kIGNvbHVtbiAyCiAgICAgICAgICAgIHZjZWxsPXYxLlBHKCJJdGVtIixyb3csY29sKTsgICAvL+axuuWumuimgeiugOWPlueahOS9jee9riBhdCByb3cgMiBhbmQgY29sdW1uIDIKCi8vc3RvcmUgdGhhdCBjb250ZW50IHRvIGFuc2lzdHJpbmcg4oCcdG1w4oCdCiAgICAgICAgICAgIHRtcD12Y2VsbC5QRygiVmFsdWUiKTsKLy/ph43opIcg5LiK5YWp6KGM5rG65a6a6KaB6K6A55qE5pW45a2XCgovL+WNsOWHugogICAgICAgICAgICBNZW1vMS0+TGluZXMtPkFkZCgieGxzWzJdWzJdPSIrdG1wICk7CiAgICAgICAgfQogICAgfQoKfQ==