下面的例子,是我在其他討論區看到的，這是關於EXCEL的存取值的程式碼 請問在取值的部分，該如何取sheet2其他頁面呢 //------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  WideString aa; //定義aa
  if (OpenDialog1->Execute()) //直接打開檔案選擇視窗
 {
  aa=OpenDialog1->FileName; //指定檔名
  ExcelApplication1->Connect(); //EXCEL APPLICATION 連接
  ExcelApplication1->Workbooks->Open(aa);
  ExcelWorkbook1->ConnectTo(ExcelApplication1->get_ActiveWorkbook());
  ExcelApplication1->set_Visible(0,true); //指定EXCEL視窗為可視
  ExcelWorksheet1->ConnectTo(ExcelWorkbook1->get_ActiveSheet());
  //連接工作表
 }
}    void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Variant v5(1); 
 Variant v6(1); 
 Variant v7; 
 Variant KKK(String("ddd"));
 v7=ExcelWorksheet1->Cells->get__default(v5,v6); //取列1欄1的值
 //若要寫入值可用
 ExcelWorksheet1->Cells->set__default(v5,v6,KKK);//將列1欄1的值寫入ddd
} 

//----------------- 另外我在其他篇有看到其他的寫法如下，但寫法比較複雜，有沒有寫法是利用上面方法是簡單一點的呢...真的謝謝大大幫忙了

  Variant Excel,Workbooks,Workbook,Cells,FColumns; //宣告變數
  Variant Worksheets,Worksheet,Column,Cell; //宣告變數
  Variant Item,PageSet,Range,Chart,Charts; //宣告變數
  CoInitialize(NULL); //在引用Com元件前要加這行
  Excel=CreateOleObject("Excel.Application");
  Workbooks=Excel.OlePropertyGet("Workbooks") ;
  Workbook=Workbooks.OleFunction("Add"); //開啟新Workbooks
  Worksheets=Workbook.OlePropertyGet("Worksheets");
  Worksheet=Worksheets.OlePropertyGet("Item",1); //跳至頁面第一頁

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  WideString aa; //定義aa
  if (OpenDialog1->Execute()) //直接打開檔案選擇視窗
 {
  aa=OpenDialog1->FileName; //指定檔名
  ExcelApplication1->Connect(); //EXCEL APPLICATION 連接
  ExcelApplication1->Workbooks->Open(aa);
  ExcelWorkbook1->ConnectTo(ExcelApplication1->get_ActiveWorkbook());
  ExcelApplication1->set_Visible(0,true); //指定EXCEL視窗為可視
  ExcelWorksheet1->ConnectTo(ExcelWorkbook1->OlePropertyGet("WorkSheets", "Sheet2"));
  //ExcelWorksheet1->Activate // 將 Sheet2 設為目前頁
  //ExcelWorksheet1->ConnectTo(ExcelWorkbook1->get_ActiveSheet());
  //連接工作表
 }
}

引言:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  WideString aa; //定義aa
  if (OpenDialog1->Execute()) //直接打開檔案選擇視窗
 {
  aa=OpenDialog1->FileName; //指定檔名
  ExcelApplication1->Connect(); //EXCEL APPLICATION 連接
  ExcelApplication1->Workbooks->Open(aa);
  ExcelWorkbook1->ConnectTo(ExcelApplication1->get_ActiveWorkbook());
  ExcelApplication1->set_Visible(0,true); //指定EXCEL視窗為可視
  ExcelWorksheet1->ConnectTo(ExcelWorkbook1->OlePropertyGet("WorkSheets", "Sheet2"));
  //ExcelWorksheet1->Activate // 將 Sheet2 設為目前頁
  //ExcelWorksheet1->ConnectTo(ExcelWorkbook1->get_ActiveSheet());
  //連接工作表
 }
}

真的很謝謝malanlk的幫忙了^^