슬님..
님께서 알려주신 대로
ExcelWorkbook1->SaveAs(FileName,
        TNoParam(),
        TNoParam(),
        TNoParam(),
        TNoParam(),
        TNoParam(),
        (Excel_xp::XlSaveAsAccessMode) 3,
        TNoParam(),
        TNoParam(),
        TNoParam(),
        TNoParam(),
        TNoParam(),
        TDefLCID());
이렇게 했을 때,
Qualifier 'Excel_xp' is not a class or namespace name
expected  라고 에러가 뜨네요..
음..  그리고 SaveDialog를 놓긴 했는데..   어떻게 해야 하는지 모르겠습니다..   ㅡㅡ;;;;;

void __fastcall TFormMain::Button1Click(TObject *Sender)
{
    SaveDialog1->Execute();

    WideString strTitle = "Data Save";
    WideString strFile = "C:\\test.xls";
    WideString FileName;

    ExcelApplication1->Connect();
    // true 화면에 보임, false 화면에 보이지 않음
    ExcelApplication1->set_Visible(0,false);
    ExcelApplication1->set_DisplayAlerts(TDefLCID(), false);
    ExcelWorkbook1->ConnectTo(ExcelApplication1->Workbooks->Add());
    //첫번째 워크시트와 연결
    ExcelWorksheet1->ConnectTo(ExcelApplication1->Worksheets->get_Item((TVariant)1));
    //워크시트의 이름

    ExcelWorksheet1->set_Name(strTitle);

    ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"A",(TVariant)Edit20->Text) ;
    ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"B",(TVariant)Edit30->Text) ;
    ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"C",(TVariant)Edit40->Text) ;
    ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"D",(TVariant)Edit50->Text) ;
    ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"E",(TVariant)Edit60->Text) ;

    ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"A",(TVariant)Edit19->Text) ;
    ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"B",(TVariant)Edit29->Text) ;
    ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"C",(TVariant)Edit39->Text) ;
    ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"D",(TVariant)Edit49->Text) ;
    ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"E",(TVariant)Edit59->Text) ;

    ExcelWorksheet1->Activate();
    //ExcelApplication1->Save((TVariant)"C:\\Source\\Test2\\Test1.xls");
    ExcelWorksheet1->SaveAs(strFile);
    ExcelWorkbook1->SaveAs(FileName,
        TNoParam(),
        TNoParam(),
        TNoParam(),
        TNoParam(),
        TNoParam(),
        (Excel_xp::XlSaveAsAccessMode) 3,
        TNoParam(),
        TNoParam(),
        TNoParam(),
        TNoParam(),
        TNoParam(),
        TDefLCID());

    ExtractFileName(SaveDialog1->FileName); // Test 를 반환합니다.
    ExtractFilePath(SaveDialog1->FileName); // C:\를 반환합니다.
    ExtractFileExt(SaveDialog1->FileName);  // .xls를 반환합니다.


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

}

지금 소스가 이런 상태거든요..   도와주세요~  ㅠ.ㅜ



슬　 님이 쓰신 글 :
: 허접 님이 쓰신 글 :
: : 슬님..  답변 정말로 감사드립니다.
: : 엑셀이 실행되는게 보이질 않고 저장이 되네요.
: : 그런데, 아래 부분에서 에러가 나구요..
: : : ExcelWb->SaveAs(m_strFileName,
: : :         TNoParam(),
: : :         TNoParam(),
: : :         TNoParam(),
: : :         TNoParam(),
: : :         TNoParam(),
: : :         (Excel_xp::XlSaveAsAccessMode) 3/*[in,def,opt]*/,
: : :         TNoParam(),
: : :         TNoParam(),
: : :         TNoParam(),
: : :         TNoParam(),
: : :         TNoParam(),
: : :         TDefLCID());
: :
: : 그리고 솔직히 제가 너무 초보에 허접이라, 다이얼로그를 어떻게 띄우는지도 모릅니다.  ㅠ.ㅜ
: : 포럼에 자료가 많다고 하는데, 검색 능력도 떨어지는지 잘 못 찾겠네요.  ㅡㅡ;;;
: : 염치없지만, 조금 자세히 알려주시면 안될까요? 소스코드로....
: : 버튼을 누르면, FileSaveAs 다이얼로그가 뜹니다.
: : 거기에 원하는 파일 이름을 쓰고 (ex. 20060525.xls) 원하는 디렉토리를 선택한 후 저장을 누릅니다.
: : 그럼 xls 파일이 생기고, xls 파일을 열면, edit의 내용이 이~쁘게 excel cell 에 담겨 나오는거죠..   
: : 꼭 좀 도와주세요~   ㅠ.ㅜ 
: : 소스 코드를 알려달라고 하는게 참 챙피하고 슬님께 죄송하지만, 지금 상황으로서는 그 방법 밖에 없는지라..   ㅠ.ㅜ
: : 부탁 드리겠습니다..
: :
: :
: :
: : 슬　 님이 쓰신 글 :
: : : 허접 님이 쓰신 글 :
: : : : void __fastcall TFormMain::Button1Click(TObject *Sender)
: : : : {
: : : :     WideString strTitle = "Excel Test";
: : : :     WideString strFile = "C:\\test.xls";
: : : :     WideString FileName;
: : : :
: : : :     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(strTitle);
: : : :
: : : :     ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"A",(TVariant)Edit20->Text) ;
: : : :     ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"B",(TVariant)Edit30->Text) ;
: : : :     ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"C",(TVariant)Edit40->Text) ;
: : : :     ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"D",(TVariant)Edit50->Text) ;
: : : :     ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"E",(TVariant)Edit60->Text) ;
: : : :
: : : :     ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"A",(TVariant)Edit19->Text) ;
: : : :     ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"B",(TVariant)Edit29->Text) ;
: : : :     ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"C",(TVariant)Edit39->Text) ;
: : : :     ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"D",(TVariant)Edit49->Text) ;
: : : :     ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"E",(TVariant)Edit59->Text) ;
: : : :
: : : :     ExcelWorksheet1->Activate();
: : : :     //ExcelApplication1->Save((TVariant)"C:\\Source\\Test2\\Test1.xls");
: : : :     ExcelWorksheet1->SaveAs(strFile);
: : : :
: : : :     ExcelApplication1->Disconnect();
: : : :     ExcelWorksheet1->Disconnect();
: : : :     ExcelWorkbook1->Disconnect();
: : : : }
: : : :
: : : : 이렇게 했습니다.
: : : : 데이터 잘 들어갑니다.
: : : : 그런데, 현재 이 방법은 버튼을 클릭하면, 엑셀이 실행되고, 각 cell에 데이터를 넣고, 저장을 해주는 형식이잖아요.
: : : : 제가 하고 싶은건, 버튼을 클릭하면 FileSaveAs 다이얼로그(맞나?)가 뜨고, 거기서 제가 원하는대로 파일명을 입력해서 (이렇게 되면 임의의 디렉토리 선택도 가능하겠죠?) xls 확장자로 저장을 하고 싶습니다.
: : : : 컴퓨터가 느려서 그런지, 지금 방식대로 하면, 엑셀 띄우는데 너무 오랜 시간이 걸리네요.
: : : : 그리고 'text.xls 파일이 있습니다. 이 파일을 변경하겠습니까?' 라는 팝업도 계속 뜨네요.
: : : : 데이터를 덮어쓰지 않고, 각각의 파일 이름으로 저장을 하고 싶은데..(1.xls, 2.xls, 3.xls, ... 이런식으로요..)    
: : : : 도와주세요 슬님~~
: : :
: : : 답변이 늦었네요^^;; 죄송합니다 일이 많아서;;
: : :
: : : 우선 팝업을 안뜨게 하는 방법은 이렇습니다.
: : :
: : : ExcelApplication에서 Open을 실행시키시기 전에 수행해주시면 됩니다.
: : :
: : : ExcelApp->Connect(); 엑셀을 링크 시키시고
: : : ExcelApp->set_Visible(0,false); 숨겨서 실행합니다.
: : : ExcelApp->set_DisplayAlerts(TDefLCID(), false); 그리고 팝업을 띄우지 않게 하죠 그대신 에러가 일어날 상황을 처리해 주셔야 합니다.
: : :
: : : 원하시는게 새로운 파일을 생성하시는 거라면...
: : :
: : : 우선 ExcelApp->Add() 를 이용하셔서 새로운 파일을 생성하신후에
: : :
: : : 원하시는 파일명으로
: : :
: : : ExcelWb->SaveAs(m_strFileName,
: : :         TNoParam(),
: : :         TNoParam(),
: : :         TNoParam(),
: : :         TNoParam(),
: : :         TNoParam(),
: : :         (Excel_xp::XlSaveAsAccessMode) 3/*[in,def,opt]*/,
: : :         TNoParam(),
: : :         TNoParam(),
: : :         TNoParam(),
: : :         TNoParam(),
: : :         TNoParam(),
: : :         TDefLCID());
: : :
: : : 해주시면 됩니다.
: : :
: : : 이때 FileSaveDialog에서 받아온 파일 이름(혹은 경로)로 원하시는 파일 명을 넣어주시면 되죠...
: : :
: : : 파일을 생성하시기전에
: : :
: : : FileExists()로 파일이 존재 하는지 확인하시고 존재한다면
: : :
: : : DeleteFile()로 파일을 삭제하신후에 SaveAs()해주셔야 안전할껍니다.
: : :
: : : 그리고 FileSaveDialog의 프로퍼티를 잘 수정하셔서 .xls 가 가능하도록 해주시면 되겠죠...
: : :
: : : 그리고 SaveAs()에 들어가는 파일명은 tagVariant 이므로 (TVariant)로 캐스팅 해주시면 됩니다.
: : :
: : : 그럼....
: : :
: : : 즐프하세요^^
:
: 에러메세지를 보여주시면 해당 부분에 정확한 답변을 드릴수 있겠네요..
:
: 말씀하신 부분은 제가 직접 사용하는 부분을 복사해서 보여드린 겁니다.
:
:
:
: FileSaveDialog 는 저도 몇번 안써봐서 제가 정확히 사용하는 지는 모르겠네요...
:
: 우선 폼 위에 TSaveDialog Component 를 올려 두시구요...
:
: Filter 프로퍼티를 더블클릭하셔서
:
: 설명과 제한할 확장자를 *.xls 와 같은 형식으로 써주시면 됩니다.
:
:
: 그 다음 Button1의 onClick 이벤트에다 SaveDialog->Excute();
: 를 호출하시면 파일을 저장하는 다이얼로그가 뜹니다.
:
: 확인 버튼을 누르게 되면 SaveDialog->FileName 에 경로,파일명,확장자가 모두 저장되어있습니다.
:
: 이걸 따로 추출해주는 함수도 존재합니다.
:
: 예를 들어 C:\Test.xls라는 파일 경로를 지정해주었다면..
:
: ExtractFileName(SaveDialog->FileName) 는 Test 를 반환합니다.
: ExtractFilePath(SaveDialog->FileName) 는 C:\를 반환합니다.
: ExtractFileExt(SaveDialog->FileName) 는 .xls를 반환합니다.
:
: 만약 사용자가 임의로 다른 확장자를 써 넣었다면.
:
: 확장자를 검출해서 뒤에 .xls를 붙여주면 완벽해지겠죠...
:
: FileSaveDialog 가 아니라 SaveDialog 였네요...
:
: 그럼... 즐프하세요~