請問各位我參考了各位大大發表的文章之後，想修改下面的程式為當Edit1->Text輸入數字後按Button2可以加入自EXCEL中，就是(1.1)寫完之後寫(1.2)....(1.n)...等，但是問題是要如何將excel的行和欄的位置一直增加下去，這樣我才可以一直輸入新的數字到excel中...不是像程式中只寫了(1.1)="ddd"之後就沒了....    

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

我修改內容如下,但是不會過

    void __fastcall TForm1::Button2Click(TObject *Sender)
{
int i,j=1;    Variant v5(i); 
Variant v6(i); 
Variant v7; 
Variant KKK(String("Edit1->Text");
//若要寫入值可用
for(i=1;i<7;i  ){
for(j=1;j<10;j==){
ExcelWorksheet1->Cells->set__Default(i,j,KKK);//將列i欄j的值寫入Edit1->Text
}
}

http://delphi.ktop.com.tw/topic.php?topic_id=43728 【BCB】【問題】請問取得 EXCEL 資料裡面行數和列數的方法 http://delphi.ktop.com.tw/topic.php?topic_id=39420 【BCB】【問題】資料填入Excel http://delphi.ktop.com.tw/topic.php?topic_id=40582 【問題】如何更改 Excel 的 Cell 內容 http://delphi.ktop.com.tw/topic.php?topic_id=54101 【BCB】【問題】設定Excel文件Cell的Function

看了大大轉貼的文章之後，還是有點不懂。我簡單說一下我的問題就是要如何在EXECL裡續貼我的資料...謝謝    

引言: http://delphi.ktop.com.tw/topic.php?topic_id=43728 【BCB】【問題】請問取得 EXCEL 資料裡面行數和列數的方法 http://delphi.ktop.com.tw/topic.php?topic_id=39420 【BCB】【問題】資料填入Excel http://delphi.ktop.com.tw/topic.php?topic_id=40582 【問題】如何更改 Excel 的 Cell 內容 http://delphi.ktop.com.tw/topic.php?topic_id=54101 【BCB】【問題】設定Excel文件Cell的Function

引言: 看了大大轉貼的文章之後，還是有點不懂。我簡單說一下我的問題就是要如何在EXECL裡續貼我的資料...謝謝

你可以用【BCB】【問題】請問取得 EXCEL 資料裡面行數和列數的方法 來知到你現在的資料寫到第幾行第幾列 再利用【問題】資料填入Excel來填入你所要甜的資料 最重要得是 Variant KKK(String("Edit1->Text");寫錯了 =>Variant KKK(Edit1->Text);