C++Builder Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
C++빌더 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
메신저 프로젝트
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
볼랜드포럼 광고 모집

C++빌더 Q&A
C++Builder Programming Q&A
[45066] SaveDialog 사용해서 데이터 엑셀로 저장하려고 합니다. 도와주세요~
허접 [khlee0123] 991 읽음    2006-05-26 11:31
안녕하세요.
전혀 개념없이 삽질하고 있는 허접입니다.  ㅡㅡ;;
현재 버튼을 클릭하면, edit의 내용이 엑셀로 저장이 되게 하려고 합니다.
Q & A 에 엑셀에 값을 넣고 저장이 되도록 하는 내용이 있지만, 제가 원하는 기능은 SaveDialog를 띄워서 제가 원하는 파일명으로, 원하는 디렉토리에 xls 형식으로 값을 저장하는 것입니다.
소스는 아래와 같습니다.
SaveDialog1->Execute();
이거 딸랑 해 놨으니, 당연 버튼 클릭하면, 다이얼로그 창만 뜨겠죠..  ㅡㅡ;;;
SaveDialog1->Execute();  <- 이거 밑에 있는 엑셀 실행하고 데이터 넣고 저장하는 부분을 서로 어떻게 연결을 시켜야 할까요..  막막하네요..    ㅠ.ㅜ
도와주세요~~


void __fastcall TFormMain::Button1Click(TObject *Sender)
{
    SaveDialog1->Execute();

    WideString strTitle = "Data Save";
    WideString strFile = "C:\\test.xls";
    WideString 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->set_Name(strTitle);

    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(strFile);

    ExcelApplication1->Disconnect();
    ExcelWorksheet1->Disconnect();
    ExcelWorkbook1->Disconnect();

}

+ -

관련 글 리스트
45066 SaveDialog 사용해서 데이터 엑셀로 저장하려고 합니다. 도와주세요~ 허접 991 2006/05/26
45067     Re:SaveDialog 사용해서 데이터 엑셀로 저장하려고 합니다. 도와주세요~ ayh 1461 2006/05/26
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.