|
백호님 답변 정말 감사드립니다.
데이터가 잘 들어가네요.
여기서 조금 더 질문을 드리고 싶은데요..
지금 방식은 버튼을 클릭하면, 엑셀이 실행되고, 각 cell에 해당 데이터를 넣고, 저장하고, 엑셀이 종료 되는 형식이죠?
제가 하고 싶은건, 버튼을 클릭하면 FileSaveAs 다이얼로그가 뜨고, 거기서 제 임의로 파일명을 지정해주고(예를 들어, 1.xls, 2.xls, 3.xls, ... 이런식으로요..) 저장을 하고 싶어요.
물론, 엑셀에 데이터가 저장되는건 그대로 하면서, 저장되는 데이터가 기존 .xls 파일을 덮어쓰는 형식이 아니라, 다른 이름으로 계속 저장을 해주고 싶은거죠.
도와주세요 백호님~~
백호 님이 쓰신 글 :
: 제가 지금 조금 바빠서 기본적인 소스로 설명을 대체 하도록 하겠습니다.
: 이것은 제가 테스트 용으로 셀이 데이터를 넣는 것을 만들었던 것입니다.
: 더 자세한 것들은 제가 아래 남긴 글에 슬님께서 답변해 주신 걸 보면 될듯 합니다.
:
: WideString strTitle = "Excel Test";
: WideString strFile = "C:\\test.xls";
:
: ExcelApplication->Connect();
: ExcelApplication->set_Visible(0, false); // true 화면에 보임, false 화면에 보이지 않음
:
: ExcelWorkbook->ConnectTo(ExcelApplication->Workbooks->Add());
:
: //첫번째 워크시트와 연결
: ExcelWorksheet->ConnectTo(ExcelApplication->Worksheets->get_Item((TVariant)1));
:
: //워크시트의 이름
: ExcelWorksheet->set_Name(strTitle);
: ExcelWorksheet->Cells->set_Item((TVariant)1,(TVariant)"A",(TVariant)"Test 1A") ;
: ExcelWorksheet->Cells->set_Item((TVariant)2,(TVariant)"A",(TVariant)"Test 2A") ;
: ExcelWorksheet->Cells->set_Item((TVariant)3,(TVariant)"A",(TVariant)"Test 3A") ;
: ExcelWorksheet->Cells->set_Item((TVariant)1,(TVariant)"B",(TVariant)"Test 1B") ;
: ExcelWorksheet->Cells->set_Item((TVariant)2,(TVariant)"B",(TVariant)"Test 2B") ;
: ExcelWorksheet->Cells->set_Item((TVariant)3,(TVariant)"B",(TVariant)"Test 3B") ;
:
: ExcelWorksheet->Activate();
:
: ExcelWorksheet->SaveAs(strFile);//, (TVariant)"EXCEL");
:
: //Excel 프로그램 종료
: ExcelApplication->Disconnect();
: ExcelWorksheet->Disconnect();
: ExcelWorkbook->Disconnect();
|