function TPubData.OutPutDBF(Src:TDBDataSet;SrcGrid:TDBGrid; TrgName: string): Boolean;
var
elapp,workbook:variant;
xelfileName: string;
I,J: integer;
begin
xelfilename :='c:/temp/'+TrgName+'.xls';
try
elapp :=CreateOLEObject('Excel.Application');//;
workbook := CreateOLEObject('Excel.Sheet');
workbook := Elapp.workbooks.add;
For I := 0 to Src.FieldCount - 2 do
elapp.cells(1,I+1) := SrcGrid.Columns.Title.Caption;
With Src do
begin
DisableControls;
First;
J := 2;
While not eof do
begin
For I := 1 to Src.FieldCount do
elapp.cells(J,I) := Fields[I-1].AsString;
Next;
Inc(J);
end;
First;
EnableControls;
end;
workbook.saveas(xelfilename);
workbook.close;
elapp.Quit;
elapp := unassigned;
except
ShowMessage('您的机器里未安装Microsoft Excel');
exit;
end;
ShowMessage(MSG_SAVE_DOON)
end;
