delphi dbgrid数据导出为excel

uses Excel2000,ComObj;

procedure F_Form.Button1Click(Sender: TObject);

var

myExcel:TExcel;

Int_i,Int_j,rowCount,columnCount:Integer;

ExcelId:Variant;

begin

try

ExcelId:=CreateOleObject('Excel.Application');

except

on Exception do raise Exception.Create('无法创建报表,请确认是否安装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;