#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Excel_2K_SRVR"
#pragma resource "*.dfm"    int i=1;
int j=1;
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 v7;
    Variant KKK=Edit1->Text;
    Variant v(i);
   for(j=1;j<=4;j  ){
    Variant k(j);
   for(i=1;i<=20;  i){
    ExcelWorksheet1->Cells->set__Default(v,k,KKK);
 }
 }
}
//----------------------

引言: 請問一下我現在的程式RUN起來之後，再Edit1->Text輸入數字會先在第一列(1.1)~(1.4)顯示相同數字，然後Edit1->Text輸入新的數字之後會再第20列(20.1)~(20.4)之後不管在輸入什麼數字都會覆蓋在第20列(20.1)~(20.4)。 是我for迴圈設錯了嗎....我程式的用意是要輸入數字後excel再(1.1)顯示 之後是(1.2)....(1.4)再換到(2.1)....以持類推...

  for(j=1;j<=4;j  ){
    Variant k(j);
  for(i=1;i<=20;  i){
    ExcelWorksheet1->Cells->set__Default(v,k,KKK);

int ARow = 1;
int ACol = 1;
.....
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    Variant v(ARow);
    Variant k(ACol);
    Variant KKK = Edit1->Text;        ExcelWorksheet1->Cells->set__Default(v,k,KKK);        ACol  ;
    if(ACol > 4) {
        ACol = 1;
        ARow  ;
        // 我自做主張，當到達 (20,4) 時，跳回 (1,1)
        if(ARow > 20) ARow = 1;
    }
}