Delphi导出Excel源码实现

unit Unit5;

interface

uses Comobj, office2000, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Grids, DBGrids, StdCtrls, ComCtrls, ToolWin, DB, ADODB,
  ImgList;

procedure   SaveToExcelFile(DbgridName:TDbGrid);

implementation

procedure   SaveToExcelFile(DbgridName:TDbGrid);
var
      XLApp:   Variant;
      Sheet:   Variant;
      WordApp,WordDoc,WordParagraph,WordRange,WordTable:variant;
      I,   J:   Integer;
      SaveDialog:TSaveDialog;
      pBookMark:   TBookMark;
      StrSaveFile:string;
      IntFileType:integer;
      SltRec,SltCol   :integer;
      ColIndex,RowIndex   :   Integer;
begin
            if   dbgridname.DataSource.DataSet.IsEmpty   then   begin
                  messagebox(application.Handle,'没有任何数据,不能进行保存',   
                                        '警告',mb_ok);
                  abort;   
            end;   

            SaveDialog:=TSaveDialog.Create(Nil);   
            SaveDialog.Filter   :=   'Microsoft   Excel   文件|*.xls|Microsoft   Word   文件|*.doc';   
            SaveDialog.Execute;   
            IntFileType:=SaveDialog.FilterIndex;
            StrSaveFile:=SaveDialog.FileName;   
            if   length(StrSaveFile)=0   then   exit;   
            try   
                screen.Cursor:=crHourGlass;   
                case     IntFileType     of   
                      1:   begin
                                  try   
                                      XLApp:=CreateOleObject('Excel.Application');
                                      XLApp.WorkBooks.Add(-4167);
                                      XLApp.WorkBooks[1].WorkSheets[1].Name   :=   '导出数据';
                                      Sheet   :=   XLApp.WorkBooks[1].WorkSheets['导出数据'];
                                      J   :=   1;
                                  except   
                                          MessageBox(GetActiveWindow,'无法调用Mircorsoft   Excel!   '+chr(13)+chr(10)+
                                                            '请检查是否安装了Mircorsoft   Excel。','提示',MB_OK+MB_ICONINFORMATION);   
                                          Exit;   
                                  end;   
                                  with   Dbgridname.DataSource.DataSet   do
                                  begin   
                                      pBookMark   :=   GetBookmark;   
                                      DisableControls;   
                                      for   I:=0   to   dbgridname.Columns.Count-1   do   
                                      begin   
                                            if   dbgridname.Columns[I].Visible=False   then   
                                                  Continue;
                                            Sheet.Cells[J,I+1]   :=   dbgridname.Columns[I].Title.Caption;