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
[45043] 저도 슬님께 질문.. 꼭 도와주세요~~
허접 [khlee0123] 927 읽음    2006-05-25 15:58
void __fastcall TFormMain::Button1Click(TObject *Sender)
{
    WideString strTitle = "Excel Test";
    WideString strFile = "C:\\test.xls";
    WideString FileName;

    ExcelApplication1->Connect();
    // true 화면에 보임, false 화면에 보이지 않음
    ExcelApplication1->set_Visible(0,true);
    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();
    //ExcelApplication1->Save((TVariant)"C:\\Source\\Test2\\Test1.xls");
    ExcelWorksheet1->SaveAs(strFile);

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

이렇게 했습니다.
데이터 잘 들어갑니다.
그런데, 현재 이 방법은 버튼을 클릭하면, 엑셀이 실행되고, 각 cell에 데이터를 넣고, 저장을 해주는 형식이잖아요.
제가 하고 싶은건, 버튼을 클릭하면 FileSaveAs 다이얼로그(맞나?)가 뜨고, 거기서 제가 원하는대로 파일명을 입력해서 (이렇게 되면 임의의 디렉토리 선택도 가능하겠죠?) xls 확장자로 저장을 하고 싶습니다.
컴퓨터가 느려서 그런지, 지금 방식대로 하면, 엑셀 띄우는데 너무 오랜 시간이 걸리네요.
그리고 'text.xls 파일이 있습니다. 이 파일을 변경하겠습니까?' 라는 팝업도 계속 뜨네요.
데이터를 덮어쓰지 않고, 각각의 파일 이름으로 저장을 하고 싶은데..(1.xls, 2.xls, 3.xls, ... 이런식으로요..)    
도와주세요 슬님~~

+ -

관련 글 리스트
45043 저도 슬님께 질문.. 꼭 도와주세요~~ 허접 927 2006/05/25
45049     Re:저도 슬님께 질문.. 꼭 도와주세요~~ 슬  1105 2006/05/25
45053         슬님~ 답변 감사드려요~ 근데 조금 더.......... 허접 869 2006/05/25
45055             Re:슬님~ 답변 감사드려요~ 근데 조금 더.......... 슬  1171 2006/05/25
45065                 도무지 뭐가 뭔지.... 모르겠어요.. ㅠ.ㅜ 허접 984 2006/05/26
45076                     Re:도무지 뭐가 뭔지.... 모르겠어요.. ㅠ.ㅜ 슬  1261 2006/05/26
45087                         ㅠ.ㅜ 안되는데요.. 허접 957 2006/05/26
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.