先NEW 一个UNIT
然后就可以写了unit ExportToExcel;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, db,
ComObj, Excel97;type
TExportToExcel = Class private
FTitle :string;
ExcelApp, WorkBook :Variant;
function GetColumnName(FieldCount: integer): string;
public
Constructor Create; overLoad; //构造
Destructor Free; overload; //析构
function DataSetToExcel(MasterTable,DetailTable :TDataSet; ZBZD,MXZD,TitleAndTail :TStringList) :Boolean;
procedure setExcelTitle(Value :string);
property Title :string read FTitle write setExcelTitle;
end;这正好是我写的,准备用的,正好你看看吧
然后就可以写了unit ExportToExcel;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, db,
ComObj, Excel97;type
TExportToExcel = Class private
FTitle :string;
ExcelApp, WorkBook :Variant;
function GetColumnName(FieldCount: integer): string;
public
Constructor Create; overLoad; //构造
Destructor Free; overload; //析构
function DataSetToExcel(MasterTable,DetailTable :TDataSet; ZBZD,MXZD,TitleAndTail :TStringList) :Boolean;
procedure setExcelTitle(Value :string);
property Title :string read FTitle write setExcelTitle;
end;这正好是我写的,准备用的,正好你看看吧
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货