把数据库表里的信息 导入Execl表 程序截图

uses

　　 Excel2000,  Math, OleServer

添加 ToolBar1, Gauge1,ImageList1,ExcelWorkbook1,ExcelWorksheet1,ADOConnection1,ADOQuery1,DataSource1 ,Memo1,DBGrid1,StatusBar1

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, ToolWin, DB, Grids, DBGrids, ADODB, StdCtrls,
  Gauges, Excel2000,  Math, OleServer;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    Gauge1: TGauge;
    ExcelWorksheet1: TExcelWorksheet;
    StatusBar1: TStatusBar;
    ExcelWorkbook1: TExcelWorkbook;
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    //procedure ExcelApplication1NewWorkbook(Sender: TObject;
     // var Wb: OleVariant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ToolButton5Click(Sender: TObject);
var
  SQLStr : String;
begin   //根据Memo1中的SQL语句提取数据库的信息显示在DBgrid

  SQLStr := '';
  SQLStr :=Memo1.Lines.GetText;

  ADOQuery1.Close;
  ADOQuery1.Sql.Clear;
  ADOQuery1.SqL.Add(SQLStr);
  ADOQuery1.Open;
  end;

procedure TForm1.ToolButton7Click(Sender: TObject);
var
 ExcelApp1:TExcelApplication;  //uses Excel2000
    Row,i:Integer;
    AFileName : string;
begin
  AFileName := 'D:\a.xlsx';
  ExcelApp1:=TExcelApplication.Create(nil);
  try
    ExcelApp1.Connect;//和Execl连接如果没有Excel程序可能要出错
    ExcelApp1.Workbooks.Add(Null,0);//为Excel添加工作薄
    ExcelWorkbook1.ConnectTo(ExcelApp1.Workbooks[1]);
    ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Sheets[1] as _WorkSheet);

    if DBGrid1.DataSource.DataSet.RecordCount=0 then Exit;
    row:=2;
    for i:=1 to ADOQuery1.Fields.Count do
    begin
      ExcelWorkSheet1.Cells.Item[1,i]:=ADOQuery1.Fields[i-1].FieldName ;
    end;
    ADOQuery1.First;
    while not ADOQuery1.Eof do
    begin
      Application.ProcessMessages;
      for i:=1 to ADOQuery1.Fields.Count do
      begin //把查询结果写入到电子表格中
        excelworksheet1.Cells.Item[row,i].numberformatlocal:='@';
        ExcelWorkSheet1.Cells.Item[row,i]:=ADOQuery1.Fields[i-1].Value;
      end;
      row:=row+1;
      Gauge1.Progress:=Ceil(100*(row-2)/(ADOQuery1.RecordCount));
      if Gauge1.Progress=100 then StatusBar1.Panels[1].Text:='导出完成，已保存至'+AFileName;          //AFileName是导出文件存放的目录位置。
      ADOQuery1.Next;
    end;
  finally
    ExcelWorkBook1.SaveCopyAs(AFileName);
    ExcelWorkSheet1.Disconnect;
    ExcelWorkBook1.Close(False);
    ExcelApp1.Disconnect;
    ExcelApp1.Quit;
    ExcelApp1.Free;
    Gauge1.Visible:=False;
  end;
end;




end.