导出数据到Excel代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】导出数据到Excel

作者:羚 / 发布于2014/10/10/ 1360


	　　procedure TDM.CopyDbDataToExcel(Target: TDBGridEh;mb,FileName: string);
	　　var
	　　iCount, jCount: Integer;
	　　XLApp: Variant;
	　　Sheet: Variant;
	　　begin
	　　Screen.Cursor := crHourGlass;
	　　if not VarIsEmpty(XLApp) then
	　　begin
	　　 XLApp.DisplayAlerts := False;
	　　 XLApp.Quit;
	　　 VarClear(XLApp);
	　　end;
	　　//--------------------------选择模板－－－－－－
	　　// CopyFile(pChar(Trim(ExtractFilePath(Application.ExeName))+mb+'.xls'),pChar(FileName+'1.xls'),false);
	　　//－－－－－－－－－－－－－－－－－－－－－－－－
	　　//通过ole创建Excel对象
	　　try
	　　 XLApp := CreateOleObject('Excel.Application');
	　　except
	　　 Screen.Cursor := crDefault;
	　　 Exit;
	　　end;
	　　if mb = '统计-项目信息前' then
	　　 XLApp.WorkBooks.Add[Trim(ExtractFilePath(Application.ExeName))+mb+'.xls']  //你要把数据放在那里啊,先生成个文件在e:1.xls
	　　else
	　　 XLApp.WorkBooks.Add;
	　　XLApp.WorkBooks[1].WorkSheets[1].Name := 'sheet1';
	　　Sheet := XLApp.Workbooks[1].WorkSheets['sheet1'];
	　　if not Target.DataSource.DataSet.Active then
	　　begin
	　　 Screen.Cursor := crDefault;
	　　 Exit;
	　　end;
	　　Target.DataSource.DataSet.first;
	
	　　for iCount := 0 to Target.Columns.Count - 1 do
	　　begin
	　　 Sheet.cells[1, iCount + 1] := trim(Target.Columns.Items[iCount].Title.Caption);
	　　end;
	
	　　jCount := 1;
	　　while not Target.DataSource.DataSet.Eof do
	　　begin
	
	　　 for iCount := 0 to Target.Columns.Count - 1 do  //
	　　 begin
	　　 if iCount = 0 then
	　　  Sheet.cells[jCount + 1, iCount + 1] := IntToStr(jCount)
	　　 else
	　　  Sheet.cells[jCount + 1, iCount + 1] := trim(Target.Columns.Items[iCount].Field.AsString);
	　　 end;
	　　Inc(jCount);
	　　Target.DataSource.DataSet.Next;
	　　end;
	
	　　//--------------------可以在此添加Excel的宏－－－－－－－－－－－
	
	　　XLApp.ActiveWorkbook.SaveAs(FileName:=FileName);                                                      ;
	　　Screen.Cursor := crDefault;
	　　XLApp.ActiveWorkbook.Close;
	　　end;

试试其它关键字

　Excel　　导出数据　

同语言下

可能有用的

羚贡献的其它代码(1)

.导出数据到Excel