麻烦哪位高手专门帮我写一下dbgrid导出EXCEL的代码

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Excel2000, OleServer, StdCtrls, Grids, DBGrids, DB, DBTables;type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Query1: TQuery;
    DBGrid1: TDBGrid;
    Button1: TButton;
    ExcelApplication1: TExcelApplication;
    ExcelWorkbook1: TExcelWorkbook;
    ExcelWorksheet1: TExcelWorksheet;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
beginend;end.begin 与 and 之间的代码如何编写，最好不要用procedure，直接编程

Answer 1

最好直接用DBGRID，只要代码简单就好，效率可以不在考虑范围，

Answer 2

var
  msExcel,MsExcelWorkBook, MsExcelWorkSheet:Variant;
  i : integer;
begin
try
  i:=1;
  MsExcel := CreateOleObject('Excel.Application'); //Create
  MsExcelWorkBook:=msExcel.WorkBooks.Add;          //Add Workbooks
  MsExcelWorkSheet:=msExcel.Worksheets['sheet1'];  //Choose Sheet
  MsExcelWorkSheet.Name := 'Diary';             //Excel sheet name
  MsExcel.caption:='My Diary';                 //Excel Caption
  MsExcel.Visible := True;                         //Show
  with Adoquery1 do
  begin
  First;
    while not eof do   //From DataBase To Excel
    begin
        MsExcelWorkSheet.Range['A'+Inttostr(i+1)].Value := FieldByName('D_Date').AsString;
        MsExcelWorkSheet.Range['B'+Inttostr(i+1)].Value := FieldByName('Week').AsString;
        MsExcelWorkSheet.Range['C'+Inttostr(i+1)].Value := FieldByName('Weather').AsString;
        MsExcelWorkSheet.Range['D'+Inttostr(i+1)].Value := FieldByName('Content').AsString;
        inc(i);
        next;
    end;
  end;
      MsExcelWorkSheet.Range['A1'].Font.Size := 24;
      MsExcelWorkSheet.Range['A1'].Value := 'My Diary';
      MsExcelWorkSheet.Cells.EntireColumn.AutoFit;
finally
  MsExcel.Quit;
end;

Answer 3

TDXDBgrid自带导出功能，还又打印功能