急急急急急急!!!!!!!!! 請問一下 如何將excel欄中的值 讀入程式寫的"陣列" 我用的軟體是BCB.... 拜託拜託............... 急死了!!!!下午 05:30 2003/7/17

jimmy_lou45您好:   您可以參考看看下面的連結   http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29910 【轉貼】C Builder 與 EXCEL 連結取值與存值 P.S: 切勿以[急][求救]等無意義的字眼當標題< > 順心< > ～我也是在學習的階段,回答的不好請您多多見諒與指教～

前輩: 對不起,我知道這樣真的很麻煩您,可是我真的"很用心"去看您給的程式 我剛在起步,如果您不嫌棄的話...可不可以給我的"註解"修改, 或者是更正我的錯誤,...... 拜託您了.....感恩~ ●☆:是晚輩的問題註解... void __fastcall TForm1::Button1Click(TObject *Sender) { 1 WideString aa; //定義aa 2 if (OpenDialog1->Execute()) //直接打開檔案選擇視窗 3 { 4 aa=OpenDialog1->FileName; //指定檔名 ●☆// Q: 將檔名放進去,需要加路徑嗎?ex:C:\1.xls ●☆// 可是我加了,compiler後,還是錯耶~ 5 ExcelApplication1->Connect(); //EXCEL APPLICATION 連接 6 ExcelApplication1->Workbooks->Open(aa); 7 ExcelWorkbook1->ConnectTo(ExcelApplication1->get_ActiveWorkbook()); 8 ExcelApplication1->set_Visible(0,true); //指定EXCEL視窗為可視 9 ExcelWorksheet1->ConnectTo(ExcelWorkbook1->get_ActiveSheet()); 10 //連接工作表 11 } 12 } ●☆// Q: Button1Click的動作是連接 bcb 和 excel ?然後讓 excel 可以被看到? void __fastcall TForm1::Button2Click(TObject *Sender) { 13 Variant v5(1); 14 Variant v6(1); 15 Variant v7; 16 Variant KKK(String("ddd")); 17 v7=ExcelWorksheet1->Cells->get__default(v5,v6); //取列1欄1的值 18 //若要寫入值可用 19 ExcelWorksheet1->Cells->set__default(v5,v6,KKK);//將列1欄1的值寫入ddd 20 } ●☆// Q:(1) Variant 是宣告成什麼型態的函數? (2) v5(1),v6(1)是什麼意思? (3) 13~16行,這樣的宣告模式,主要的目的是? ●☆// Q: 以下是我compiler程式所出現的錯誤: 1. [C Error] Unit1.cpp(23): E2280 Member identifier expected ●☆//第一行指的是什麼意思阿? ●☆// 3~5行以下通通都是找不到耶!! 是不是要放什麼 VCL 的元件阿? ------------------------------------------------------------------------------------------------ 2. [C Error] Unit1.cpp(24): E2451 Undefined symbol 'ExcelApplication1' 3. [C Error] Unit1.cpp(26): E2451 Undefined symbol 'ExcelWorkbook1' 4. [C Error] Unit1.cpp(28): E2451 Undefined symbol 'ExcelWorksheet1' 5. [C Error] Unit1.cpp(40): E2451 Undefined symbol 'ExcelWorksheet1'

引言: 急急急急急急!!!!!!!!! 請問一下 如何將excel欄中的值 讀入程式寫的"陣列" 我用的軟體是BCB.... 拜託拜託............... 急死了!!!!下午 05:30 2003/7/17

引言: 急急急急急急!!!!!!!!! 請問一下 如何將excel欄中的值 讀入程式寫的"陣列" 我用的軟體是BCB.... 拜託拜託............... 急死了!!!!下午 05:30 2003/7/17

   Variant Ex,Wb,Sh;
   Ex=Variant::CreateObject("Excel.Application");
   Ex.OlePropertyGet("WorkBooks").OleProcedure("Open","C:\\a.xls");
   Wb=Ex.OlePropertyGet("ActiveWorkBook");
   Sh=Wb.OlePropertyGet("ActiveSheet");
   Sh.OlePropertyGet("Cells",1,1).OlePropertySet("Value","");

以上是設定excel的值 讀取也是依此類推 http://delphi.ktop.com.tw/topic.php?topic_id=22668