出現的錯誤,.......(還是這個語法不是BCB的?)    Build   [C++ Error] Unit1.cpp(43): E2316 'get__default' is not a member of 'Range'   [C++ Error] Unit1.cpp(45): E2316 'set__default' is not a member of 'Range'    以下為我key的程式.. ------------------------------------------------------------------    //---------------------------------------------------------------------------    #include  #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "Excel_2K_SRVR" #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- 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 } //---------------------------------------------------------------------------

jimmy_lou45您好:   將

default

改成

Default 

不過我測試後仍會有下面的錯誤訊息 [C Error] utilcls.h(2334): E2031 Cannot cast from 'const TBaseVariantT' to 'TVariant &' 當初我是在其他地方看到這一篇文章,感覺不錯就轉貼過來了 但自己沒有去測試,造成您的不便,在此跟您一鞠躬,真的很抱歉,對不起.... 請您先改用下面連結所提供的方式 http://delphi.ktop.com.tw/topic.php?topic_id=22668 【分享】BCB 轉 EXCEL 大發現 BY denise ～我也是在學習的階段,回答的不好請您多多見諒與指教～ 發表人 - taishyang 於 2003/07/21 16:33:10

拜託,先生...已經很感謝您了...快別這麼客氣..晚輩我會承受不起 您給我的連結,我之前已經看過了...不過,並非我所需要的 我要的只是可以 "開啟excel檔案,並將我所指定的"range"範圍,畫出圖形來~" 就單單是這樣... 唉..稿了我好幾天了... 我有自己寫了一些些程式..不知是否可以請您(大家)看一下..

抱歉, 我覺得我好像講的不清不楚,所以再寫一次: 我的問題是：1.在bcb裡開啟一個已經儲存在我硬碟中的excel檔案 (這一步我已經小小的試出來了,但是...不知道這樣寫對不對?執行的結果是可以跑出我已經儲存在硬碟裡excel的檔案)(就是程式裡面"只有"key第1行的時候),(我程式中已經有編號了,麻煩請參照下面我的程式)    2.我指定欄位(指定兩行)是為了畫出那兩"行"數值所代表的圖形  (就是,excel中不是有畫圖的功能嗎?先圈選一個欄位的範圍,再按一下那個圖示,圖形就會跑出來的那個操作方法!)    3 如果我指定欄位的話,(程式再加上2~8行) 發生我 "附加檔案的錯誤圖示") 還是我所寫的有錯? 第2~8行是否為我所想像的"圈選excel欄位,然後畫出來"的意思??    若還有語意不清楚的地方,還麻煩告知... (很糟糕的是,我還不到24小時,人家就趕的要結果看了,還請多多幫忙~謝謝)    //---------------------------------------------------------------------------    #include  #pragma hdrstop #include #include  #include  #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; Variant excel,WORKbooks,WORKbook,WORKsheets,WORKsheet,CELL,chart,Range,ActiveChart; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender) { 1. ShellExecute(Handle,NULL,"2.xls", NULL, NULL, SW_SHOWNORMAL);    2. excel=CreateOleObject("excel.Application"); 3. Range = WORKsheet.OlePropertyGet("Range","D2:E629"); 4. Range.OlePropertyGet("Select"); 5. chart=WORKbook.OlePropertyGet("Charts"); 6. chart.OleFunction("add"); 7. ActiveChart=WORKbook.OlePropertyGet("ActiveChart"); 8. ActiveChart.OlePropertySet("ChartType",0x00000039);    } //--------------------------------------------------------------------------- 拜託了...