델파이 퀀텀그리드 Excel출력하기

델파이 퀀텀그리드 Excel출력하기

 

1. uses 절에  다음을 추가 한다

    cxGridExportLink , shellApi

 

2. 엑셀버튼 클릭시

    SaveDialog1.FileName := '상품코드.xls';

    if SaveDialog1.Execute then

    begin

        ExportGridToExcel(SaveDialog1.FileName, Grid_Master, true, true, false, 'xls');

        Application.ProcessMessages;

        if MessageDlg(SaveDialog1.FileName + ' 파일을 실행하시겠습니까?',

                 mtWarning, [mbYes, mbNo], 0) = mrYes then

        ShellExecute(self.Handle, PChar('OPEN'), PChar(SaveDialog1.FileName), nil, nil, SW_SHOWMAXIMIZED);

        Application.ProcessMessages;

    end;