//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Excel_2K_SRVR"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    MkDir("C:\\상황실일일근무일지\\");
    String strCurrDate = (DtDate->Date-1).FormatString("yyyymmdd");
    String strExePath = ExtractFilePath(Application->ExeName) + "상황실일일운영일지\\";
    String strOutPath = "C:\\상황실일일근무일지\\상황실일일근무일지_" + strCurrDate;
    strExePath += "일보(신양식)";
    String strExeFileName = strOutPath + ".xls";

    ExcelApplication->Connect();
    ExcelApplication->set_Visible(0,true);
    ExcelApplication->set_DisplayAlerts(TDefLCID(), false);

    TVariant fileName = "C:\\일보(신양식).xlsx";
    TVariant fileNames = (TVariant)strOutPath;

    ExcelWorkbook->ConnectTo( ExcelApplication->Workbooks->Open(fileName.operator wchar_t *()) );
    ExcelWorksheet->ConnectTo( ExcelWorkbook->ActiveSheet );

    ExcelWorksheet->Cells->set_Item((TVariant)13,(TVariant)"X",(TVariant)"100000");

    ExcelWorkbook->SaveAs((OleVariant)fileNames,
                          (OleVariant)xlNormal,
                          EmptyParam,
                          EmptyParam,
                          (OleVariant)false,
                          (OleVariant)false,
                          xlNoChange,
                          (OleVariant)xlUserResolution,
                          (OleVariant)false,
                          EmptyParam,
                          EmptyParam,
                          LOCALE_USER_DEFAULT);

    ExcelApplication->Workbooks->Close(TDefLCID());
    ExcelWorkbook->Close(TNoParam(), TNoParam(), TNoParam(), TDefLCID());
    ExcelApplication->Quit();

    ExcelWorksheet->Disconnect();
    ExcelWorkbook->Disconnect();
    ExcelApplication->Disconnect();
}

테스트용 소스입니다.

다른 엑셀파일을 열어놓고 위의 프로세스를 실행을하면 열어놓았던 모든 엑셀파일이 닫혀버리네요,,,

심지어 저장하지않고 작업하던 엑셀파일들이 그냥 닫혀버리더군요....

불러드린 엑셀파일만 저장하고 닫을 수는 없는지요?

어떻게 해야하는지 조언좀 부탁드립니다.