|
안녕하세요.
엑셀파일을 만들어야 하는일이 있어서 볼랜드 포럼에서 자료를 찾아 테스트 프로그램을 만들었습니다.
개발툴은 RAD STUDIO 2007 이구요.
테스트 한 엑셀은 2010 버전, 2007 버전 2가지 입니다.
아래는 소스 입니다. (소스는 볼랜드포럼에서 찾은 소스입니다...문제되면 삭제 하겠습니다.)
C:\ 에 1.xls 라는 파일로 만들게 했습니다.
TExcelApplication *ExcelApplication1;
TExcelWorksheet *ExcelWorksheet1;
TExcelWorkbook *ExcelWorkbook1;
ExcelApplication1 = new TExcelApplication(Application);
ExcelWorksheet1 = new TExcelWorksheet(Application);
ExcelWorkbook1 = new TExcelWorkbook(Application);
ExcelApplication1->Connect();
ExcelApplication1->set_Visible(0, false); // true 화면에 보임, false 화면에 보이지 않음
ExcelWorkbook1->ConnectTo(ExcelApplication1->Workbooks->Add());
//첫번째 워크시트와 연결
ExcelWorksheet1->ConnectTo(ExcelApplication1->Worksheets->get_Item((TVariant)1));
//워크시트의 이름
ExcelWorksheet1->set_Name(L"Name");
ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"A",(TVariant)"VERSION : ") ; //버젼
ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"A",(TVariant)"S/N : ") ; //시리얼 넘버
ExcelWorksheet1->Cells->set_Item((TVariant)3,(TVariant)"A",(TVariant)"DATE : ") ; //날짜
ExcelWorksheet1->Cells->set_Item((TVariant)4,(TVariant)"A",(TVariant)"TIME P[mbar] T[C] STATE") ; //
ExcelWorksheet1->Cells->set_Item((TVariant)5,(TVariant)"A",(TVariant)"Test 2B") ; //TIME
ExcelWorksheet1->Cells->set_Item((TVariant)5,(TVariant)"B",(TVariant)"Test 2B"); //data1
ExcelWorksheet1->Cells->set_Item((TVariant)5,(TVariant)"C",(TVariant)"Test 2B"); // data2
ExcelWorksheet1->Cells->set_Item((TVariant)5,(TVariant)"D",(TVariant)"Test 2B"); // data3
ExcelWorksheet1->Activate();
ExcelWorksheet1->SaveAs((WideString)("C:\\1.xls"));
//Excel 프로그램 종료
ExcelApplication1->Disconnect();
ExcelWorksheet1->Disconnect();
ExcelWorkbook1->Disconnect();
delete ExcelApplication1;
delete ExcelWorksheet1;
delete ExcelWorkbook1;
파일생성도 되고 파일에 값도 올바르게 쓰여집니다만,
만들어진 파일을 실행 하면 첨부된 이미지와 같은 경고 메세지가 나타나네요.
도데체 왜 이럴까요.. ㅠ
|