Stringgridtoexcel

 

 

1. procedure Stringgridtoexcel(atitle: string;
2.   Astringgrid: Tstringgrid; Afontsize: integer);
3. var xlapp, xlsheet: variant;
4.   row, CCC, nnn, jjj: integer;
5. begin
6.   try
7.     xlapp := createoleobject('excel.application');
8.   except
9.     showmessage('not found excel in your system, so can not create file!');
10.     exit;
11.   end;
12.   try
13.     ccc := Astringgrid.ColCount;
14.     xlapp.workbooks.add; //添加新工作簿
15.     xlapp.visible := false;
16.     xlsheet := xlapp.activesheet;
17.     xlapp.activewindow.windowstate := 2;
18.     xlapp.range[xlsheet.cells[1, 1], xlsheet.cells[1, ccc]].MERGE;
19.     xlsheet.cells[1, 1].value := Atitle; //页头第一行；
20.     xlsheet.cells[1, 1].HorizontalAlignment := -4108;
22.     row := 2;
23.     for jjj := 0 to Astringgrid.RowCount - 1 do
24.     begin
25.       for nnn := 1 to ccc do
26.         xlsheet.cells[row, nnn] := trim(Astringgrid.Cells[nnn - 1, row - 2]);
27.       xlsheet.rows[row].RowHeight := 18;
28.       inc(row);
29.     end;
31.     xlapp.visible := true;
32.         //格式调整
34.     xlapp.range[xlsheet.cells[row, 1], xlsheet.cells[row, 13]].WrapText := True;
35.     xlapp.range[xlsheet.cells[row, 1], xlsheet.cells[row, 13]].HorizontalAlignment := -4108;
37.     xlsheet.pagesetup.headerMargin := 1 / 0.035; //页眉到顶端边距1cm
38.     xlsheet.pagesetup.footerMargin := 0.6 / 0.035; //页脚到底端边距1cm
39.     xlsheet.pagesetup.topMargin := 1 / 0.035; //顶边距1cm
40.     XLSHEET.pagesetup.bottomMargin := 1.3 / 0.035; //底边距1cm
41.     xlsheet.pagesetup.leftMargin := 0.5 / 0.035; //左边距1cm
42.     xlsheet.pagesetup.rightMargin := 0.5 / 0.035; //右边距1cm
43.     xlsheet.pagesetup.leftfooter := '制表: ' + Puboptername;
44.     xlsheet.pagesetup.centerfooter := ''; //页脚
45.     xlsheet.pagesetup.rightfooter := '第&P页/共&N页';
46.     xlsheet.pagesetup.leftHeader := '';
47.     xlsheet.pagesetup.orientation := 1; //横向
48.     xlsheet.pagesetup.printtitlerows := '$1:$1';
49.     xlsheet.rows[1].font.name := '宋体'; //设置第一行字体属性
50.     xlsheet.rows[1].font.bold := true;
51.     xlsheet.rows[1].font.size := 20;
52.     xlsheet.rows[1].RowHeight := 28;
54.     for nnn := 1 to ccc do
55.     begin
56.       xlsheet.columns[nnn].columnwidth := Astringgrid.ColWidths[nnn - 1] * 0.1188;
57.     end;
59.     for nnn := 1 to 4 do begin
60.       xlapp.range[xlsheet.cells[2, 1], xlsheet.cells[row - 1, CCC]].borders[nnn].linestyle := 1;
61.       xlapp.range[xlsheet.cells[2, 1], xlsheet.cells[row - 1, CCC]].borders[nnn].weight := 1;
62.     end;
64.     xlapp.range[xlsheet.cells[2, 1], xlsheet.cells[row - 1, CCC]].font.size := Afontsize;
65.     xlapp.range[xlsheet.cells[2, 1], xlsheet.cells[row - 1, ccc]].WrapText := True;
67.     varclear(xlsheet);
68.     varclear(xlapp);
69.   except
70.     on E: Exception do
71.     begin
72.       xlapp.quit;
73.       showMSG('出现错误' + E.message, '错误', 1);
74.     end;
75.   end;
76. end;