델파이/퀀텀그리드
퀀텀 그리드의 내용을 엑셀로 내보내기
지병철
2010. 12. 24. 09:53
procedure TForm1.Btn_ExcelClick(Sender: TObject);
begin
ExportGridToExcel( 'C:\Test.xls', GRD_Simple, True, True, False );
if FileExists( 'C:\Test.xls' ) then
ShellExecute(Application.Handle, 'open', 'C:\Test.xls', nil, nil, SW_ShowNormal)
end;
begin
ExportGridToExcel( 'C:\Test.xls', GRD_Simple, True, True, False );
if FileExists( 'C:\Test.xls' ) then
ShellExecute(Application.Handle, 'open', 'C:\Test.xls', nil, nil, SW_ShowNormal)
end;