請問各位前輩，我想用BCB得知EXCEL的每一行的長度，我也爬過文了，但是方法我看不是很懂，我自己用了下面的程式下去測試，但是發現在r=ExcelWorksheet1->Cells->get__Default(i,1); //取列第一行的值，這一行就發生錯誤了，請問get__Default(i,1)中不是應該傳數字進去的嗎？或是應該傳什麼樣的格式進去呢...真的多謝各位前輩的幫忙了 [coode] 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()); //連接工作表 } int i=1,j=1,size=0,m; int r; while(r!=StrToInt(' ')) { r=ExcelWorksheet1->Cells->get__Default(i,1); //取列第一行的值 size ; i ; } Edit1->Text=size; [/code]

我記得, 傳入和傳出的參數都要是 Variant 型態, read/write cell 的方式如下, 試試看

Variant r;
ExcelWorksheet1->Cells->set__Default(Variant(1),Variant(2),Variant(600)); // write cell
r = ExcelWorksheet1->Cells->get__Default(Variant(1),Variant(2)); // read cell

===================引 用 starhua628 文 章===================
請問各位前輩，我想用BCB得知EXCEL的每一行的長度，我也爬過文了，但是方法我看不是很懂，我自己用了下面的程式下去測試，但是發現在r=ExcelWorksheet1->Cells->get__Default(i,1); //取列第一行的值，這一行就發生錯誤了，請問get__Default(i,1)中不是應該傳數字進去的嗎？或是應該傳什麼樣的格式進去呢...真的多謝各位前輩的幫忙了 [coode] 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()); //連接工作表 } int i=1,j=1,size=0,m; int r; while(r!=StrToInt(' ')) { r=ExcelWorksheet1->Cells->get__Default(i,1); //取列第一行的值 size ; i ; } Edit1->Text=size; [/code]