uses Excel2000,ComObj;
F_Form.Button1Click Procedure (Sender: TObject);
var
myExcel: Texcel;
Int_i, Int_j, the rowCount, the columnCount: Integer;
ExcelId: the Variant;
the begin
the try
ExcelId: = CreateOleObject ( 'the Excel.Application');
the except
ON do Exception The raise Exception. create ( 'can not create a report, make sure to install EXCEL');
End;
if DBGrid4.DataSource.DataSet.RecordCount<>0 then
begin
rowCount:=DBGrid4.DataSource.DataSet.RecordCount;
columnCount := DBGrid4.FieldCount;
try
Excelid.Visible := True;
Excelid.WorkBooks.Add;
Excelid.WorkSheets[1].Range['A1:I1'].Merge(True);
Excelid.WorkSheets[1].Cells[1,1].Value := 'xxx公司';
Excelid.WorkSheets[1].Range['A2:I2'].Merge(True);
Excelid.WorkSheets[1].Cells[2,1].Value := 'xxx信息统计表';
excelid.worksheets[1].cells[3,1].value:='1;
excelid.worksheets[1].cells[3,2].value:='2;
excelid.worksheets[1].cells[3,3].value:='3';
excelid.worksheets[1].cells[3,4].value:='4;
excelid.worksheets[1].cells[3,5].value:='5;
excelid.worksheets[1].cells[3,6].value:='6;
excelid.worksheets[1].cells[3,7].value:='7;
excelid.worksheets[1].cells[3,8].value:='8';
excelid.worksheets[1].cells[3,9].value:='9;
excelid.worksheets[1].cells[3,10].value:='10;
Excelid.WorkSheets[1].Range['A1:T3'].Font.Name :='宋体';
Excelid.WorkSheets[1].Range['A1:I2'].Font.Size :=12;
Excelid.WorkSheets[1].Range['A2:T3'].Font.Size :=10;
Excelid.WorkSheets[1].Range['A1:T3'].Font.Bold :=True;
DBGrid4.DataSource.DataSet.First();
for Int_i:=0 to rowCount do
begin
for Int_j:=0 to columnCount-1 do
begin
ExcelId.worksheets[1].cells[Int_i+4,int_j+1].value:= DBGrid4.DataSource.DataSet.FieldByName(DBGrid4.Columns.Items[int_j].FieldName).AsString;
end;
DBGrid4.DataSource.DataSet.Next();
end;
Excelid.WorkSheets[1].range['A1:T3'].HorizontalAlignment := $FFFFEFF4;
Excelid.worksheets[1].range['A1:T3'].VerticalAlignment := $FFFFEFF4;
Excelid.Columns.AutoFit;
finally
end;
end;
end;