잘되는데요...

파일이름과  db에서 data가져오는 부분만 수정하고 테스트해보니 잘되네요..

void __fastcall TForm3::Button5Click(TObject *Sender)
{
      ...
        AnsiString asFileName="c:\\Test.xls";
        AnsiString asFileName1="c:\\Test1.xls";
       ...
        String vValue="잘되나? 뭐여이거?";
       ...
}


한줄씩 debug해보면 어디서 에러나는지 확인이 되실것 같은데...

경로가 잘못되거나 해서 파일이 없을경우에 에러가 나겠구....
db에서 data가져오는 부분에 또 에러날 가능성이 있구요.

그밖에 가능성은???

그럼..


가자! 님이 쓰신 글 :
: 문서양식 형태로 작성되있는 엑셀파일을 열고 빈칸에 데이터를 넣은다음 다른이름으로 저장하는걸 하고 있습니다.
:
: 게시판 검색을 통해서 코드를 작성했는데 컴파일은 잘 됩니다.
:
: 근데 실행을 하면 예외가 발생했다면서 프로그램이 죽네요 ;;
:
: 이거 왜이런가요?
:
: void __fastcall TForm3::Button5Click(TObject *Sender)                 // 엑셀저장
: {
:         Variant excel_app;
:         Variant excel_book;
:         Variant excel_sheet;
:         Variant cells;
:
:         AnsiString asFileName="CSR_양식.xls";
:         AnsiString asFileName1="CSR_양식1.xls";
:
:         excel_app=Variant::CreateObject("excel.application");                   //Excel 프로그램 실행
:         excel_app.OlePropertySet("Visible", (Variant)true);                     //Excel 프로그램 Visible설정
:
:         excel_app.OlePropertyGet("WorkBooks").OleProcedure("Open",asFileName.c_str());  //문서 파일 열기
:         excel_book=excel_app.OlePropertyGet("ActiveWorkbook");                  //현재 Active된 WorkBook 선택
:         excel_sheet=excel_book.OlePropertyGet("ActiveSheet");                   // WorkBook에서 Acitve된 Sheet선택
:
:         cells = excel_sheet.OlePropertyGet("Cells",1 , 2); //Cell선택           // Sheet에서 Cell  1,2 선택
:
:         String vValue=Form1->DBGrid1->DataSource->DataSet->FieldByName("CSR_접수등록번호")->AsString;
:         cells.OlePropertySet("Value", WideString(vValue));          //선택한 Cell에 데이타 입력
:
:
:         excel_book.OleProcedure("SaveAs",asFileName1.c_str());       //저장
:         excel_book.OleFunction("Close", (Variant)False);            //Excel 문서 닫기
:         excel_sheet = Unassigned;
:         excel_book = Unassigned;
:         excel_app.OleFunction("Quit");                              //Excel 프로그램 종료
:         excel_app = Unassigned;
: }