急求基于delphi的excel的编程应用的实际代码 最好详细点

来源：百度知道 编辑：UC知道 时间：2024/06/14 10:55:30
那位大侠能帮帮小弟，设计系统上出现很多问题，不知道该如何下手了，最好是delphi控制excel的各种方式都用上的那种。

{*****************************************
作者/日期:dqc/2009.04.08
描 述:把数据集导出到excel
参数介绍:
AdsDate:要导出的数据集
FileName: excel的文件名
Title: 标题
******************************************}
Procedure DB_Excel_Export(AdsDate: TDataSet; FileName,Title: String);
Var
ExcelApplication:TExcelApplication;
ExcelWorkSheet :TExcelWorkSheet;
ExcelWorkBook :TExcelWorkBook;
I,J:Integer;
begin
Try
ExcelApplication:=TExcelApplication.Create(Nil);
ExcelWorkSheet:=TExcelWorkSheet.Create(Nil);
ExcelWorkBook:=TExcelWorkBook.Create(Nil);
ExcelApplication.Connect;
Except
Exit;
End;
Try
ExcelApplication.Workbooks.Add(EmptyParam,0);
ExcelWorkBook.ConnectTo(ExcelApplication.Workbooks[1]);
ExcelWorkSheet.ConnectTo((ExcelWorkBook.Worksheets[1]) as _WorkSheet);
If Not AdsDate.Active Then
AdsDate.Open;
Ad