if()
{ //헤더 파일
  버젼 정보 ,  날짜 , 제품 번호
}
else()
{// 데이터 추가

  데이터 1 , 데이터 2
  excel_test();
}


if 조건일때 test.xls 파일에 버젼정보 . 날짜 . 제품번호등을 입력하고 else 조건으로 넘어가면
test.xls 파일에 데이터 1 , 데이터 2를 입력하고 싶어요.

현재는 이렇게 하고 있습니다

void  TComm::  excel_test(void)
{

     TVariant  strTitle;

     Form1->SaveDialog1->Filter = "Excel data file (*.xlsx)|*.xlsx";
     Form1->SaveDialog1->FileName = "*.xlsx";


     Form1->ExcelApplication1->Connect();
     Form1->ExcelApplication1->set_Visible(0, false); // true 화면에 보임, false 화면에 보이지 않음


     Form1->ExcelWorkbook1->ConnectTo( Form1->ExcelApplication1->Workbooks->Add());

     //첫번째 워크시트와 연결
     Form1->ExcelWorksheet1->ConnectTo( Form1->ExcelApplication1->Worksheets->get_Item((TVariant)1));

     if(Form1->SaveDialog1->Execute())
     {
           //워크시트의 이름
          Form1->ExcelWorksheet1->set_Name(strTitle);
          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"A",(TVariant)"VERSION : ") ; //버젼
          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"B",(TVariant) Form1->StatusBar1->Panels->Items[1]->Text) ; //버젼

          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"A",(TVariant)"일련 번호 : ") ; //시리얼 넘버
          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"B",(TVariant)Form1->EditSerial->Text) ; //시리얼 넘버
          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"C",(TVariant)Form1->EditSerial1->Text) ; //시리얼 넘버

          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)3,(TVariant)1,(TVariant)"DATE : ") ; //날짜

          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)3,(TVariant)2,(TVariant)year1) ; //날짜
          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)3,(TVariant)3,(TVariant)month1) ; //날짜
          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)3,(TVariant)4,(TVariant)date1) ; //날짜


          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)4,(TVariant)1,(TVariant)"TIME "); //

          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)5,(TVariant)1,(TVariant)hour1) ;
          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)5,(TVariant)2,(TVariant)min1) ;
          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)5,(TVariant)3,(TVariant)sec1) ;

          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)4,(TVariant)4,(TVariant)"d1");
          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)4,(TVariant)5,(TVariant)"d2") ;

          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)5,(TVariant)4,(TVariant)d1) ;
          Form1->ExcelWorksheet1->Cells->set_Item((TVariant)5,(TVariant)5,(TVariant)d2) ;

          Form1->ExcelWorksheet1->Activate();
          Form1->ExcelWorksheet1->SaveAs((WideString)(Form1->SaveDialog1->FileName));
    }
          //Excel 프로그램 종료
          Form1->ExcelApplication1->Disconnect();
          Form1->ExcelWorksheet1->Disconnect();
          Form1->ExcelWorkbook1->Disconnect();
}