|
smleelms 님..
답변 정말 감사드립니다.
제가 원하는 위치에 너무나도 저장이 잘 되네요.. ㅠ.ㅜ
다른 질문이 하나 더 있는데.... 지금같이 할 경우, 제 PC가 딸려서 그러는건지...
너~무 실행 속도가 느리네요. 버튼 누르고 한참이 지나서야 파일이 저장이 되는데,
이 속도를 향상시킬 수 있는 방법은 없는지요.
염치없이 또 질문 드립니다.
그리고 답변 정말 정말 감사드려요.
smleelms 님이 쓰신 글 :
: ExcelWorksheet1->SaveAs(strFileName);
: 저장 경로가 파일이름만 있네요...
: 원하시는 저장경로에 저장하실려면
:
: ExcelWorksheet1->SaveAs((WideString)(SaveDialog1->FileName));
: 이렇게 저장경로가 포함된 파일이름으로 저장해 보시기 바랍니다.
:
:
: 허접 님이 쓰신 글 :
: : edit의 내용을 엑셀로 저장하도록 프로그램을 만들고 있어요..
: : 이곳 볼랜드포럼에서 많은 도움을 얻었는데, 아래 소스좀 봐주세요..
: :
: : void __fastcall TFormMain::Button1Click(TObject *Sender)
: : {
: : SaveDialog1->Execute();
: :
: : WideString strFileName = ExtractFileName(SaveDialog1->FileName);
: : WideString strFilePath = ExtractFilePath(SaveDialog1->FileName);
: : WideString strFileExt = ExtractFileExt(SaveDialog1->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->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(strFileName);
: :
: : ExcelApplication1->Disconnect();
: : ExcelWorksheet1->Disconnect();
: : ExcelWorkbook1->Disconnect();
: : }
: :
: : 버튼을 누르면, 엑셀이 보이지 않게 실행이 되고, File Save Dialog 가 뜨면서 파일을 엑셀 형식으로 저장을 합니다.
: : 저장이 제대로 되긴 하는데, 경로의 문제가 있네요.
: : 제가 임의로 지정한 폴더에 저장이 되질 않고, '내 문서' 에 저장이 되어버리네요.
: : 왜 그런거죠? 이 문제 해결좀 해주세요.
: : 급합니다. ㅠ.ㅜ 일욜도 없이 회사 나와서 일하고 있습니다.
: : 꼭 좀 해결해 주세요.
|