요렇게 하면 될거 같은데요? AnsiString savepath =  ExtractFilePath(Application->ExeName) + strExcelName;

참고로 사용자의 바탕화면에 저장하려면
SHGetSpecialFolderPath(NULL, 경로버퍼, CSIDL_DESKTOPDIRECTORY, FALSE); 등과 같이 하면
바탕화면 경로를 읽어올수 있지요.


win 님이 쓰신 글 :
:
: 안녕하세요.
:
: 오늘 하루종일 헤매다가 혹시 도움을 받을 수 있을까해서 질문 하나 올립니다.
:
: 지금 엑셀 파일 저장 기능을 만들고 있습니다.
:
: 그런데 문제가 지정 위치를 정하지않으니 자동으로 "내문서" 위치에 저장이 됩니다.
:
: 그 위치를 실행파일이 저장된 폴더 위치로 바꾸고 싶은데..
:
: 실행파일 저장하는 위치가 고정되어 있지 않게해야되서 값을 고정된 폴더로 넣지 못합니다...
:
: 혹시 방법 있을까요?
:
:
: ////////////////////////////////////////////////////////////////////////////////////////////
:
:     sprintf(temp,"%d%02d%02d",pyear, pmonth, pdata,);
:
:     TestStr=temp;
:     strExcelName = TestStr;
:     AnsiString savepath = strExcelName;
:
:         excel_book.OleProcedure("SaveAs" ,WideString(savepath)); // <--이부분
:         excel_book.OleFunction("Close", (Variant)False);
:         excel_sheet = Unassigned;
:         excel_book = Unassigned;
:         excel_app.OleFunction("Quit");
:         excel_app = Unassigned;
:       
:
: ////////////////////////////////////////////////////////////////////////////////////////////////