StringGrid를 엑셀로 저장

void __fastcall TDiagnoseFrm::BtnExcelClick(TObject *Sender)

{

    if(!DiagnoseSet->Active || !DiagnoseSet->RecordCount) {

        MsgBox("엑셀로 저장할 데이터가 없습니다.");

        return;

    }

 

    TSaveDialog *Dlg    = new TSaveDialog(this);

 

    try {

        Dlg->DefaultExt = "XLS";

        Dlg->Filter     = "Execl Files|*.XLS";

        Dlg->FileName   = "충전소 진단";

        Dlg->Options << ofOverwritePrompt;

 

        if(Dlg->Execute())  {

            DiagnoseGrid->SaveToXLS(Dlg->FileName);

        }

        else    {   delete Dlg;  return;  }

    }

    catch(...)  {

        MsgBox("엑셀이 설치되어 있지 않거나 실행할 수 없습니다.");

        delete Dlg;

        return;

    }

 

    MsgBox("엑셀로 저장 되었습니다.");

    delete Dlg;

}