|
허접 님이 쓰신 글 :
: 슬님.. 답변 정말로 감사드립니다.
: 엑셀이 실행되는게 보이질 않고 저장이 되네요.
: 그런데, 아래 부분에서 에러가 나구요..
: : ExcelWb->SaveAs(m_strFileName,
: : TNoParam(),
: : TNoParam(),
: : TNoParam(),
: : TNoParam(),
: : TNoParam(),
: : (Excel_xp::XlSaveAsAccessMode) 3/*[in,def,opt]*/,
: : TNoParam(),
: : TNoParam(),
: : TNoParam(),
: : TNoParam(),
: : TNoParam(),
: : TDefLCID());
:
: 그리고 솔직히 제가 너무 초보에 허접이라, 다이얼로그를 어떻게 띄우는지도 모릅니다. ㅠ.ㅜ
: 포럼에 자료가 많다고 하는데, 검색 능력도 떨어지는지 잘 못 찾겠네요. ㅡㅡ;;;
: 염치없지만, 조금 자세히 알려주시면 안될까요? 소스코드로....
: 버튼을 누르면, FileSaveAs 다이얼로그가 뜹니다.
: 거기에 원하는 파일 이름을 쓰고 (ex. 20060525.xls) 원하는 디렉토리를 선택한 후 저장을 누릅니다.
: 그럼 xls 파일이 생기고, xls 파일을 열면, edit의 내용이 이~쁘게 excel cell 에 담겨 나오는거죠..
: 꼭 좀 도와주세요~ ㅠ.ㅜ
: 소스 코드를 알려달라고 하는게 참 챙피하고 슬님께 죄송하지만, 지금 상황으로서는 그 방법 밖에 없는지라.. ㅠ.ㅜ
: 부탁 드리겠습니다..
:
:
:
: 슬 님이 쓰신 글 :
: : 허접 님이 쓰신 글 :
: : : 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, ... 이런식으로요..)
: : : 도와주세요 슬님~~
: :
: : 답변이 늦었네요^^;; 죄송합니다 일이 많아서;;
: :
: : 우선 팝업을 안뜨게 하는 방법은 이렇습니다.
: :
: : ExcelApplication에서 Open을 실행시키시기 전에 수행해주시면 됩니다.
: :
: : ExcelApp->Connect(); 엑셀을 링크 시키시고
: : ExcelApp->set_Visible(0,false); 숨겨서 실행합니다.
: : ExcelApp->set_DisplayAlerts(TDefLCID(), false); 그리고 팝업을 띄우지 않게 하죠 그대신 에러가 일어날 상황을 처리해 주셔야 합니다.
: :
: : 원하시는게 새로운 파일을 생성하시는 거라면...
: :
: : 우선 ExcelApp->Add() 를 이용하셔서 새로운 파일을 생성하신후에
: :
: : 원하시는 파일명으로
: :
: : ExcelWb->SaveAs(m_strFileName,
: : TNoParam(),
: : TNoParam(),
: : TNoParam(),
: : TNoParam(),
: : TNoParam(),
: : (Excel_xp::XlSaveAsAccessMode) 3/*[in,def,opt]*/,
: : TNoParam(),
: : TNoParam(),
: : TNoParam(),
: : TNoParam(),
: : TNoParam(),
: : TDefLCID());
: :
: : 해주시면 됩니다.
: :
: : 이때 FileSaveDialog에서 받아온 파일 이름(혹은 경로)로 원하시는 파일 명을 넣어주시면 되죠...
: :
: : 파일을 생성하시기전에
: :
: : FileExists()로 파일이 존재 하는지 확인하시고 존재한다면
: :
: : DeleteFile()로 파일을 삭제하신후에 SaveAs()해주셔야 안전할껍니다.
: :
: : 그리고 FileSaveDialog의 프로퍼티를 잘 수정하셔서 .xls 가 가능하도록 해주시면 되겠죠...
: :
: : 그리고 SaveAs()에 들어가는 파일명은 tagVariant 이므로 (TVariant)로 캐스팅 해주시면 됩니다.
: :
: : 그럼....
: :
: : 즐프하세요^^
에러메세지를 보여주시면 해당 부분에 정확한 답변을 드릴수 있겠네요..
말씀하신 부분은 제가 직접 사용하는 부분을 복사해서 보여드린 겁니다.
FileSaveDialog 는 저도 몇번 안써봐서 제가 정확히 사용하는 지는 모르겠네요...
우선 폼 위에 TSaveDialog Component 를 올려 두시구요...
Filter 프로퍼티를 더블클릭하셔서
설명과 제한할 확장자를 *.xls 와 같은 형식으로 써주시면 됩니다.
그 다음 Button1의 onClick 이벤트에다 SaveDialog->Excute();
를 호출하시면 파일을 저장하는 다이얼로그가 뜹니다.
확인 버튼을 누르게 되면 SaveDialog->FileName 에 경로,파일명,확장자가 모두 저장되어있습니다.
이걸 따로 추출해주는 함수도 존재합니다.
예를 들어 C:\Test.xls라는 파일 경로를 지정해주었다면..
ExtractFileName(SaveDialog->FileName) 는 Test 를 반환합니다.
ExtractFilePath(SaveDialog->FileName) 는 C:\를 반환합니다.
ExtractFileExt(SaveDialog->FileName) 는 .xls를 반환합니다.
만약 사용자가 임의로 다른 확장자를 써 넣었다면.
확장자를 검출해서 뒤에 .xls를 붙여주면 완벽해지겠죠...
FileSaveDialog 가 아니라 SaveDialog 였네요...
그럼... 즐프하세요~
|
