질문을 잘 이해 못하겠습니다.

하여간 기존에 disk에 있는 xls파일을 Open하여 정보를 저장하기 하고자 하는것으로 이해 하고 답변드립니다.


[기존 Excel파일 Open]
     ExcelWorkbook1->ConnectTo( ExcelApplication1->Workbooks->Open(WideString("c:\\test2.xls")));


[같은 이름의 File이 있는 경우 saveAs시 확인 메세지 띄우지 않기]

    ExcelApplication1->set_DisplayAlerts(0,false); 


답변이 될런지 모르겟네요

그럼..



아자 님이 쓰신 글 :
: 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();
: }