ExcelWorksheet1->SaveAs(strFileName);
저장 경로가 파일이름만 있네요...
원하시는 저장경로에 저장하실려면

ExcelWorksheet1->SaveAs((WideString)(SaveDialog1->FileName));
이렇게 저장경로가 포함된 파일이름으로 저장해 보시기 바랍니다.


허접 님이 쓰신 글 :
: edit의 내용을 엑셀로 저장하도록 프로그램을 만들고 있어요..
: 이곳 볼랜드포럼에서 많은 도움을 얻었는데, 아래 소스좀 봐주세요..
:
: void __fastcall TFormMain::Button1Click(TObject *Sender)
: {
:     SaveDialog1->Execute();
:
:     WideString strFileName = ExtractFileName(SaveDialog1->FileName);
:     WideString strFilePath = ExtractFilePath(SaveDialog1->FileName);
:     WideString strFileExt = ExtractFileExt(SaveDialog1->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->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();
:     ExcelWorksheet1->SaveAs(strFileName);
:
:     ExcelApplication1->Disconnect();
:     ExcelWorksheet1->Disconnect();
:     ExcelWorkbook1->Disconnect();
: }
:
: 버튼을 누르면, 엑셀이 보이지 않게 실행이 되고, File Save Dialog 가 뜨면서 파일을 엑셀 형식으로 저장을 합니다.
: 저장이 제대로 되긴 하는데, 경로의 문제가 있네요.
: 제가 임의로 지정한 폴더에 저장이 되질 않고,  '내 문서' 에 저장이 되어버리네요.
: 왜 그런거죠?  이 문제 해결좀 해주세요.
: 급합니다.  ㅠ.ㅜ  일욜도 없이 회사 나와서 일하고 있습니다.
: 꼭 좀 해결해 주세요.