ExportDBGridToExcel

 

1. uses DBGrids, ComObj, ActiveX, Variants;
3. procedure ExportDBGridToExcel(F_DBGrid: TDBGrid; F_Title: string = '数据资料';
4.   F_ScreenUpdating: Boolean = true; F_PrintPreview: Boolean = False; F_AddChart: Boolean = False);
5. const
6.   CLASS_ExcelApplication: TGUID = '{00024500-0000-0000-C000-000000000046}';
7. var
8.   ExcelApp, Sheet, Chart: OleVariant;
9.   Unknown: IUnknown;
10.   Bm: TBookmarkStr;
11.   Col, Row: Integer;
12.   I: Integer;
13. begin
14.   if (F_DBGrid.DataSource <> nil) and (F_DBGrid.DataSource.DataSet <> nil) then
15.     with F_DBGrid.DataSource.DataSet do
16.     begin
17.       if not active then exit;
18.       try
19.         if not Succeeded(GetActiveObject(CLASS_ExcelApplication, nil, Unknown)) then
20.           Unknown := CreateComObject(CLASS_ExcelApplication);
21.       except
22.         raise Exception.Create('不能启动 Microsoft Excel，请确认 Microsoft Excel 已正确安装在本机上');
23.       end;
24.       ExcelApp := Unknown as IDispatch;
25.       ExcelApp.Visible := True;
26.       ExcelApp.Workbooks.Add;
27.       if not F_ScreenUpdating then
28.         ExcelApp.ScreenUpdating := False;
29.       DisableControls;
30.       try
31.         Bm := Bookmark;
32.         First;
33.         Row := 3;
34.         Col := 1;
35.         for I := 0 to F_DBGrid.Columns.Count - 1 do
36.         begin
37.           if F_DBGrid.Columns[I].Visible then
38.             ExcelApp.Cells[Row, Col] := F_DBGrid.Columns[I].Title.Caption;
39.           Inc(Col);
40.         end;
41.         Inc(Row);
42.         while not EOF do
43.         begin
44.           Col := 1;
45.           for I := 0 to F_DBGrid.Columns.Count - 1 do
46.           begin
47.             if F_DBGrid.Columns[I].Visible then
48.               if F_DBGrid.Columns[I].Field <> nil then
49.                 ExcelApp.Cells[Row, Col] := F_DBGrid.Columns[I].Field.DisplayText;
50.             Inc(Col);
51.           end;
52.           Inc(Row);
53.           Next;
54.         end;
55.         Col := 1;
56.         for I := 0 to F_DBGrid.Columns.Count - 1 do
57.         begin
58.           if F_DBGrid.Columns[I].Visible then
59.             ExcelApp.Columns[Col].AutoFit; ;
60.           Inc(Col);
61.         end;
62.         ExcelApp.Cells[1, 1] := F_Title;
63.         Bookmark := Bm;
64.       finally
65.         EnableControls;
66.         if not ExcelApp.ScreenUpdating then
67.           ExcelApp.ScreenUpdating := True;
68.       end;
69.     end;
70.   if F_AddChart then
71.   begin
72.     Sheet := ExcelApp.ActiveSheet;
73.     Sheet.Range[Sheet.Cells[4, 1], Sheet.Cells[Row - 1, Col - 1]].Select;
74.     Chart := ExcelApp.ActiveWorkbook.Charts.Add;
75.     Chart.SetSourceData(
76.       Sheet.Range[Sheet.Cells[4, 1], Sheet.Cells[Row - 1, Col - 1]], EmptyParam);
77.     Chart.Location(1, EmptyParam);
78.   end;
79.   if F_PrintPreview then
80.     ExcelApp.ActiveWorkbook.PrintPreview;
81. end;