Some code refers to the post on the 9CBS website!
Procedure TFORM1.BITBTN1CLICK (Sender: TOBJECT);
VAR
Excelworksheet: texcelworksheet;
Excelapplication: texcelapplication;
Excelworkbook: texcelworkbook;
I, Row, Column: Integer;
X1, x2, y1, y2: integer;
Begin
X1: = 1;
Y1: = 2;
COLUMN: = 1;
Excelapplication: = TEXCELAPPLICATION.CREATE (APPLIC);
Excelworksheet: = texcelworksheet.create (Application);
Excelworkbook: = texcelworkbook.create (Application);
Try
Excelapplication.connect;
Except
ShowMessage ('Error!');
END;
Excelapplication.visible [0]: = TRUE;
Excelapplication.caption: = 'Excel Application';
Excelapplication.Workbooks.Add (NULL, 0);
Excelworkbook.connectto (ExceLapplication.Workbooks [1]);
Excelworksheet.connectto (Excelworkbook.worksheets [1] as _Worksheet;
Row: = 3;
Excelworksheet.cells.Item [1, 1]: = 'xxxxx'; // Title Settings
Excelworksheet.range [Excelworksheet.cells.Item [1, 1],
Excelworksheet.cells.Item [1, 2]]. Merge (0);
Excelworksheet.cells.item [1,1] .hizontalalignment: = XLCenter;
For i: = 1 to dbgrid1.columns.count do
Begin
Excelworksheet.cells.Item [2, i]: = dBGrid1.columns.items [i-1] .fieldname;
END;
While not (dbgrid1.datasource.dataset.eof) do
Begin
COLUMN: = 1;
For i: = 1 to dbgrid1.columns.count do
Begin
Excelworksheet.cells.Item [Row, Column]: = dbgrid1.datasource.dataset.fields [i - 1] .sstring;
COLUMN: = Column 1;
END;
DBGRID1.DATASOURCE.DATASET.NEXT;
Row: = row 1;
END;
Y2: = row-1;
X2: = column-1;
// Data content setting
Excelworksheet.range [eXCELWORKSHEET.CELLS.ITEM [Y1, X1],
Excelworksheet.cells.Item [Y2, X2]]]]]]]]]]]]]. Font.name: = 'Song's
Excelworksheet.range [eXCELWORKSHEET.CELLS.ITEM [Y1, X1],
Excelworksheet.cells.Item [Y2, X2]]. Font.size: = 10; Excelworksheet.Range [Excelworksheet.cells.Item [Y1-1, X1],
Excelworksheet.cells.Item [Y2, X2]]]. Borders.Color: = CLBLACK;
Excelworksheet.range [eXCELWORKSHEET.CELLS.ITEM [Y1-1, X1],
Excelworksheet.cells.Item [Y2, X2]]. Borders.LinesTyle: = Xlcontinuous;
Excelworksheet.cells.Item [1,1] .font.name: = 'Song body'; // Title Font Setting
Excelworksheet.cells.Item [1,1] .font.size: = 12;
Excelworksheet.cells.Item [1,1] .font.bold: = true;
Excelapplication.disconnect;
Excelapplication.free;
Excelworksheet.free;
Excelworkbook.free;
END;
