|
안녕하세요.
전혀 개념없이 삽질하고 있는 허접입니다. ㅡㅡ;;
현재 버튼을 클릭하면, 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();
}
|