导出EXCEL有关问题.

导出EXCEL问题...
在Delphi   7.0中,怎样将DBGrid中的内容导出到EXCEL中?

------解决方案--------------------
到盒子里找gridExcel控件,轻松实现Grid导出到Excel
------解决方案--------------------
装个ehlib，什么都解决了
------解决方案--------------------
Exporting a DBGrid to excel without OLE


{
Exporting a DBGrid to excel without OLE

I develop software and about 95% of my work deals with databases.
I enjoied the advantages of using Microsoft Excel in my projects
in order to make reports but recently I decided to convert myself
to the free OpenOffice suite.
I faced with the problem of exporting data to Excel without having
Office installed on my computer.
The first solution was to create directly an Excel format compatible file:
this solution is about 50 times faster than the OLE solution but there
is a problem: the output file is not compatible with OpenOffice.
I wanted a solution which was compatible with each "DataSet ";
at the same time I wanted to export only the dataset data present in
a DBGrid and not all the "DataSet ".
Finally I obtained this solution which satisfied my requirements.
I hope that it will be usefull for you too.

First of all you must import the ADOX type library
which will be used to create the Excel file and its
internal structure: in the Delphi IDE:

1)Project-> Import Type Library:
2)Select "Microsoft ADO Ext. for DDL and Security "
3)Uncheck "Generate component wrapper " at the bottom
4)Rename the class names (TTable, TColumn, TIndex, TKey, TGroup, TUser, TCatalog) in
(TXTable, TXColumn, TXIndex, TXKey, TXGroup, TXUser, TXCatalog)
in order to avoid conflicts with the already present TTable component.
5)Select the Unit dir name and press "Create Unit ".
It will be created a file named AOX_TLB.
Include ADOX_TLB in the "uses " directive inside the file in which you want
to use ADOX functionality.

That is all. Let 's go now with the implementation:
}

unit DBGridExportToExcel;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, ComCtrls, DB, IniFiles, Buttons, dbgrids, ADOX_TLB, ADODB;


type TScrollEvents = class
BeforeScroll_Event: TDataSetNotifyEvent;
AfterScroll_Event: TDataSetNotifyEvent;
AutoCalcFields_Property: Boolean;
end;

procedure DisableDependencies(DataSet: TDataSet; var ScrollEvents: TScrollEvents);
procedure EnableDependencies(DataSet: TDataSet; ScrollEvents: TScrollEvents);
procedure DBGridToExcelADO(DBGrid: TDBGrid; FileName: string; SheetName: string);


implementation

//Support procedures: I made that in order to increase speed in
//the process of scanning large amounts
//of records in a dataset

//we make a call to the "DisableControls " procedure and then disable the "BeforeScroll " and
// "AfterScroll " events and the "AutoCalcFields " property.
procedure DisableDependencies(DataSet: TDataSet; var ScrollEvents: TScrollEvents);
begin
with DataSet do
begin
DisableControls;
ScrollEvents := TScrollEvents.Create();
with ScrollEvents do
begin
BeforeScroll_Event := BeforeScroll;
AfterScroll_Event := AfterScroll;