안녕하세요?
신디입니다.
아랫 제 질문 첨가하여...
비밀번호가 맞지않아 삭제가 안되네요.

1.Memo1->Lines->Add("데이타)

2.이 데이타를 엑셀파일로 저장하여

3.버튼을 클릭하면 바로 엑셀파일이 열리도록

4.아래 코드로 Test 해보니 에러메세지가 나타나구여

5.에러메세지엔 기존의 데이타가 있으니 다시 저장하라고 나오는데 
  님들의 리플 부탁드립니다.

 
//Load 버튼 클릭
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int k, j;
    ExcelApplication1->Connect();
    // true 화면에 보임, false 화면에 보이지 않음

    ExcelApplication1->set_Visible(0,true);
    ExcelWorkbook1->ConnectTo(ExcelApplication1->Workbooks->Add());
    //첫번째 워크시트와 연결
    ExcelWorksheet1->ConnectTo(ExcelApplication1->Worksheets->get_Item((TVariant)1));
    //워크시트의 이름

    ExcelWorksheet1->set_Name(WideString("test"));
    ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"A",(TVariant)"test") ;
    ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"A",(TVariant)"test") ;
    ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"B",(TVariant)"test") ;
    ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"B",(TVariant)"test") ;

    ExcelWorksheet1->Activate();
    //ExcelApplication1->Save((TVariant)"C:\\Source\\Test2\\Test1.xls");
    ExcelWorksheet1->SaveAs((TVariant)"C:\\Source\\Test2\\Test.xls");
    k = Memo1->Lines->Count;

    for(j = 0 ; j < k -1; j++)
    {
        ExcelWorksheet1->Cells->set_Item((TVariant)(j + 1), (TVariant)"A",
        (TVariant)Memo1->Lines->GetText());
    }
    //Excel 프로그램 종료

    ExcelApplication1->Disconnect();
    ExcelWorksheet1->Disconnect();
    ExcelWorkbook1->Disconnect();
}