delphi导出数据至Excel的七种方法及比较

一;
delphi 快速导出excel

uses ComObj,clipbrd;

function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean;
const
      xlNormal=-4143;
var
    y     :  integer;
    tsList :  TStringList;
    s,filename  :string;
    aSheet  :Variant;
    excel :OleVariant;
    savedialog  :tsavedialog;
begin
    Result := true;
    try
         excel:=CreateOleObject(‘Excel.Application‘);
         excel.workbooks.add;
      except
            //screen.cursor:=crDefault;
         showmessage(‘无法调用Excel！‘);
         exit;
    end;
    savedialog:=tsavedialog.Create(nil);
    savedialog.FileName:=sfilename;   //存入文件
    savedialog.Filter:=‘Excel文件(*.xls)|*.xls‘;
    if   savedialog.Execute   then
    begin
        if   FileExists(savedialog.FileName)   then
              try
                  if   application.messagebox(‘该文件已经存在，要覆盖吗？‘,‘询问‘,mb_yesno+mb_iconquestion)=idyes   then
                        DeleteFile(PChar(savedialog.FileName))
                  else
                  begin
                   Excel.Quit;
                   savedialog.free;
                   //screen.cursor:=crDefault;
                   Exit;
                  end;
              except
                  Excel.Quit;
                  savedialog.free;
                  screen.cursor:=crDefault;
                  Exit;
              end;
        filename:=savedialog.FileName;
    end;
    savedialog.free;
    if   filename=‘‘   then
    begin
      result:=true;
      Excel.Quit;
      //screen.cursor:=crDefault;
      exit;
    end;
    aSheet:=excel.Worksheets.Item[1];
    tsList:=TStringList.Create;
    //tsList.Add(‘查询结果‘);   //加入标题

s:=‘‘;   //加入字段名
    for y := 0 to adoquery.fieldCount - 1 do
    begin
       s:=s+adoQuery.Fields.Fields[y].FieldName+#9 ;
       Application.ProcessMessages;
    end;
    tsList.Add(s);
    try
        try
            ADOQuery.First;
            While Not ADOQuery.Eof do
            begin
                s:=‘‘;
                for y:=0 to ADOQuery.FieldCount-1 do
                begin
                    s:=s+ADOQuery.Fields[y].AsString+#9;
                    Application.ProcessMessages;
                end;
                tsList.Add(s);

ADOQuery.next;
            end;
            Clipboard.AsText:=tsList.Text;
        except
            result:=false;
        end;
    finally
        tsList.Free;
    end;
    aSheet.Paste;
    MessageBox(Application.Handle,‘数据导出完毕！‘,‘系统提示‘,MB_ICONINFORMATION or MB_OK);
    try
          if   copy(FileName,length(FileName)-3,4)<>‘.xls‘   then
                FileName:=FileName+‘.xls‘;
          Excel.ActiveWorkbook.SaveAs(FileName,   xlNormal,   ‘‘,   ‘‘,   False,   False);
    except
      Excel.Quit;
      screen.cursor:=crDefault;
      exit;
    end;
    Excel.Visible   :=   false; //true会自动打开已经保存的excel
    Excel.Quit;
    Excel := UnAssigned;
  
end;

调用:
        ToExcel(‘D:\a.xsl‘,QueryToExcel);//路径可以自定义

-------------------------------------------------------------------------------------------------
*************************************************************************************************
二;
delphi如何导出EXCEL，代码。非第3方控件

首先在Uses处加上ComObj

procedure TForm1.Button1Click(Sender: TObject);
var  h,k:integer;    
 Excelid: OleVariant;    
 s: string;
begin    
try       
 Excelid := CreateOLEObject(‘Excel.Application‘);   
except       
 Application.MessageBox(‘Excel没有安装！‘, ‘提示信息‘, MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);       
 Exit;   
end;     
try    
    ADOQuery1.Close;      
 ADOQuery1.SQL.Clear;       
 ADOQuery1.SQL.Add(‘select * from jj_department‘);       
 ADOQuery1.Open;       
 k:=ADOQuery1.RecordCount;        
 Excelid.Visible := True;        
 Excelid.WorkBooks.Add;        
 Excelid.worksheets[1].range[‘A1:c1‘].Merge(True);        
 Excelid.WorkSheets[1].Cells[1,1].Value :=‘部门编码表‘ ;        
 Excelid.worksheets[1].Range[‘a1:a1‘].HorizontalAlignment := $FFFFEFF4;        
 Excelid.worksheets[1].Range[‘a1:a1‘].VerticalAlignment := $FFFFEFF4;        
 Excelid.WorkSheets[1].Cells[2,1].Value := ‘组别编号‘;        
 Excelid.WorkSheets[1].Cells[2,2].Value := ‘公司编号‘;        
 Excelid.WorkSheets[1].Cells[2,3].Value := ‘组别名称‘;        
 Excelid.worksheets[1].Range[‘A1:c1‘].Font.Name := ‘宋体‘;        
 Excelid.worksheets[1].Range[‘A1:c1‘].Font.Size := 9;        
 Excelid.worksheets[1].range[‘A1:c2‘].font.bold:=true;        
 Excelid.worksheets[1].Range[‘A2:c2‘].Font.Size := 9;        
 Excelid.worksheets[1].Range[‘A2:c2‘].HorizontalAlignment := $FFFFEFF4;        
 Excelid.worksheets[1].Range[‘A2:c2‘].VerticalAlignment := $FFFFEFF4;        
 h:=3;        
 ADOQuery1.First;       
 while not ADOQuery1.Eof do        
  begin           Excelid.WorkSheets[1].Cells[h,1].Value := Adoquery1.FieldByName(‘Fdept_id‘).AsString;          
  Excelid.WorkSheets[1].Cells[h,2].Value := Adoquery1.FieldByName(‘Ffdept_id‘).AsString;          
  Excelid.WorkSheets[1].Cells[h,3].Value := Adoquery1.FieldByName(‘Fdept_name‘).AsString;          
  Inc(h);           
  Adoquery1.Next;        
  end;        
 s := ‘A2:f‘+ IntToStr(k+2);        
 Excelid.worksheets[1].Range[s].Font.Name := ‘宋体‘;        
 Excelid.worksheets[1].Range[s].Font.size := 9;        
 Excelid.worksheets[1].Range[s].Borders.LineStyle := 1;        
 Excelid.Quit;         
except       
 Application.MessageBox(‘导入数据出错！请检查文件的格式是否正确！‘, ‘提示信息‘, MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);   
end;  
MessageBox(GetActiveWindow(), ‘EXCEL数据导出成功!‘, ‘提示信息‘, MB_OK +MB_ICONWARNING);
end;

-----------------------------------------------------------------------------------------------------------------------------------------------
****************************************************************************************************************************************
三;
delphi导出EXCEL

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Mask, ComCtrls, StdCtrls, Buttons, Grids, ValEdit, IdBaseComponent,
  CheckLst, excel97, ExcelXP, OleServer, ComObj, excel2000, mmsystem, ShellAPI,
  ADODB, DB, DBGrids, clipbrd;

Var
  FExcel:OleVariant; //excel应用程序
  FWorkBook :OleVariant; //工作表
  Temsheet:OleVariant; //工作薄
  FPicture:OleVariant;//图片
  tmpstr:String;
  range:variant;//范围
  i,j,TemInt:integer;
  TemFileName:String;
begin
  SaveDialog1.Filter:=‘.xls‘;
  if SaveDialog1.Execute then
  begin
    TemFileName:=SaveDialog1.FileName+‘.xls‘;
  
    Screen.Cursor:=CrHourGlass;
    TemInt:=0;
    FExcel:= CreateoleObject(‘excel.Application‘);
    FWorkBook:=FExcel.WorkBooks.Add(-4167); //新的工作表

Temsheet:=FWorkBook.Worksheets.Add;
    Temsheet.Name:=‘利润统计‘;

Temsheet.Select;
    Temsheet.Columns[1].ColumnWidth:=4;//设置列宽度
    Temsheet.Columns[2].ColumnWidth:=10;
    Temsheet.Columns[3].ColumnWidth:=16;
    Temsheet.Columns[4].ColumnWidth:=10;
    Temsheet.Columns[5].ColumnWidth:=10;
    Temsheet.Columns[6].ColumnWidth:=10;
    Temsheet.Columns[7].ColumnWidth:=10;
    Temsheet.Columns[8].ColumnWidth:=10;
    Temsheet.Columns[9].ColumnWidth:=20;
    Temsheet.Columns[10].ColumnWidth:=15;

range:=Temsheet.Range[Temsheet.cells[1,1],Temsheet.cells[5,2]];//选定表格
    range.select;
    range.merge; //合并单元格

tmpstr:=ExtractFilePath(ParamStr(0))+‘tem.jpg‘;   //添加图片
    FPicture:=Temsheet.Pictures.Insert(tmpstr);
    FPicture.Left:=20;
    FPicture.Top:=5;
    FPicture.width:=50;
    FPicture.height:=50;
    FPicture:=null;

range:=Temsheet.Range[Temsheet.cells[2,3],Temsheet.cells[3,4]];//选定表格
    range.select;
    range.merge;
    Range.Characters.Font.FontStyle :=‘加粗‘;
    Temsheet.Cells[2,3].HorizontalAlignment:=-4108; //字居中
    Temsheet.Cells[2,3]:=ComSName;

range:=Temsheet.Range[Temsheet.cells[4,3],Temsheet.cells[4,4]];//选定表格
    range.select;
    range.merge;
    Temsheet.Cells[4,3].HorizontalAlignment:=-4108; //字居中
    Temsheet.Cells[4,3]:=ComEName;

range:=Temsheet.Range[Temsheet.cells[2,5],Temsheet.cells[2,6]];//选定表格
    range.select;
    range.merge;
    Temsheet.Cells[2,5].HorizontalAlignment:=-4108; //字居中
    Temsheet.Cells[2,5]:=ComName;

Temsheet.Cells[3,5]:=‘联系人：‘;
    Temsheet.Cells[4,5]:=‘电话：‘;
    Temsheet.Cells[4,6]:=ComPhone;
    Temsheet.Cells[5,5]:=‘传真：‘;
    Temsheet.Cells[5,6]:=ComFax;

range:=Temsheet.Range[Temsheet.cells[6,1],Temsheet.cells[6,10]];//选定表格
    range.select;
    range.merge;

range:=Temsheet.Range[Temsheet.cells[7,1],Temsheet.cells[7,2]];//选定表格
    range.select;
    range.merge;
    Range.Characters.Font.FontStyle :=‘加粗‘;
    Temsheet.Cells[7,1]:=‘入库信息：‘;

range:=Temsheet.Range[Temsheet.cells[7,3],Temsheet.cells[7,10]];//选定表格
    range.select;
    range.merge;

Temsheet.Cells[8,1]:=‘序号‘;
    Temsheet.Cells[8,1].HorizontalAlignment:=-4108; //字居中
    Temsheet.Cells[8,1].Interior.Color:=clGray;     //单元格背景色
    range:=Temsheet.Range[Temsheet.cells[8,1],Temsheet.cells[8,1]];//选定表格
    range.borders.linestyle:=1;//华线

for i:=0 to DBGrid1.Columns.Count - 1 do
    begin
      Temsheet.Cells[8,i+2]:=DBGrid1.Columns[i].Title.Caption;
      Temsheet.Cells[8,i+2].HorizontalAlignment:=-4108; //字居中
      Temsheet.Cells[8,i+2].Interior.Color:=clGray;     //单元格背景色
      range:=Temsheet.Range[Temsheet.cells[8,i+2],Temsheet.cells[8,i+2]];//选定表格
      range.borders.linestyle:=1;//华线
    end;

//////////////////////////////////////////////
    j:=0;
    DBGrid1.DataSource.DataSet.First;
    while not DBGrid1.DataSource.DataSet.Eof do
    begin
      Temsheet.Cells[9+j,1].Value:=j+1;
      Temsheet.Cells[9+j,1].HorizontalAlignment:=-4108; //字居中
      range:=Temsheet.Range[Temsheet.cells[9+j,1],Temsheet.cells[9+j,1]];//选定表格
      range.borders.linestyle:=1;//华线

for i:=0 to DBGrid1.Columns.Count - 1 do
      begin
        Temsheet.Cells[9+j,i+2].Value:=DBGrid1.Fields[i].AsString;
        range:=Temsheet.Range[Temsheet.cells[9+j,i+2],Temsheet.cells[9+j,i+2]];//选定表格
        range.borders.linestyle:=1;//华线
      end;
      DBGrid1.DataSource.DataSet.Next;
      j:=j+1;
    end;

TemInt:=9+ DBGrid1.DataSource.DataSet.RecordCount;

range:=Temsheet.Range[Temsheet.cells[TemInt,1],Temsheet.cells[TemInt,10]];//选定表格
    range.select;
    range.merge;

TemInt:=TemInt+1;

range:=Temsheet.Range[Temsheet.cells[TemInt,1],Temsheet.cells[TemInt,2]];//选定表格
    range.select;
    range.merge;
    Range.Characters.Font.FontStyle :=‘加粗‘;
    Temsheet.Cells[TemInt,1]:=‘出库信息：‘;
  
    range:=Temsheet.Range[Temsheet.cells[TemInt,3],Temsheet.cells[TemInt,10]];//选定表格
    range.select;
    range.merge;

TemInt:=TemInt+1;

Temsheet.Cells[TemInt,1]:=‘序号‘;
    Temsheet.Cells[TemInt,1].HorizontalAlignment:=-4108; //字居中
    Temsheet.Cells[TemInt,1].Interior.Color:=clGray;     //单元格背景色
    range:=Temsheet.Range[Temsheet.cells[TemInt,1],Temsheet.cells[TemInt,1]];//选定表格
    range.borders.linestyle:=1;//华线

for i:=0 to DBGrid2.Columns.Count - 1 do
    begin
      Temsheet.Cells[TemInt,i+2]:=DBGrid2.Columns[i].Title.Caption;
      Temsheet.Cells[TemInt,i+2].HorizontalAlignment:=-4108; //字居中
      Temsheet.Cells[TemInt,i+2].Interior.Color:=clGray;     //单元格背景色
      range:=Temsheet.Range[Temsheet.cells[TemInt,i+2],Temsheet.cells[TemInt,i+2]];//选定表格
      range.borders.linestyle:=1;//华线
    end;

TemInt:=TemInt+1;
    //////////////////////////////////////////////
    j:=0;
    DBGrid2.DataSource.DataSet.First;
    while not DBGrid2.DataSource.DataSet.Eof do
    begin
      Temsheet.Cells[TemInt+j,1].Value:=j+1;
      Temsheet.Cells[TemInt+j,1].HorizontalAlignment:=-4108; //字居中
      range:=Temsheet.Range[Temsheet.cells[TemInt+j,1],Temsheet.cells[TemInt+j,1]];//选定表格
      range.borders.linestyle:=1;//华线

for i:=0 to DBGrid2.Columns.Count - 1 do
      begin
        Temsheet.Cells[TemInt+j,i+2].Value:=DBGrid2.Fields[i].AsString;
        range:=Temsheet.Range[Temsheet.cells[TemInt+j,i+2],Temsheet.cells[TemInt+j,i+2]];//选定表格
        range.borders.linestyle:=1;//华线
      end;
      DBGrid2.DataSource.DataSet.Next;
      j:=j+1;
    end;

TemInt:=TemInt+ DBGrid2.DataSource.DataSet.RecordCount;

TemInt:=TemInt+1;
  
    range:=Temsheet.Range[Temsheet.cells[TemInt,1],Temsheet.cells[TemInt,10]];//选定表格
    range.select;
    range.merge;

TemInt:=TemInt+1;

range:=Temsheet.Range[Temsheet.cells[TemInt,1],Temsheet.cells[TemInt,2]];//选定表格
    range.select;
    range.merge;
    Range.Characters.Font.FontStyle :=‘加粗‘;
    Temsheet.Cells[TemInt,1]:=‘入库总额：‘;
    Temsheet.Cells[TemInt,3]:=Trim(Edit1.Text);
    range:=Temsheet.Range[Temsheet.cells[TemInt,4],Temsheet.cells[TemInt,10]];//选定表格
    range.select;
    range.merge;

TemInt:=TemInt+1;

range:=Temsheet.Range[Temsheet.cells[TemInt,1],Temsheet.cells[TemInt,2]];//选定表格
    range.select;
    range.merge;
    Range.Characters.Font.FontStyle :=‘加粗‘;
    Temsheet.Cells[TemInt,1]:=‘出库总额：‘;
    Temsheet.Cells[TemInt,3]:=Trim(Edit2.Text);
    range:=Temsheet.Range[Temsheet.cells[TemInt,4],Temsheet.cells[TemInt,10]];//选定表格
    range.select;
    range.merge;

TemInt:=TemInt+1;

range:=Temsheet.Range[Temsheet.cells[TemInt,1],Temsheet.cells[TemInt,2]];//选定表格
    range.select;
    range.merge;
    Range.Characters.Font.FontStyle :=‘加粗‘;
    Temsheet.Cells[TemInt,1]:=‘总利润：‘;
    Temsheet.Cells[TemInt,3]:=Trim(Edit3.Text);
    range:=Temsheet.Range[Temsheet.cells[TemInt,4],Temsheet.cells[TemInt,10]];//选定表格
    range.select;
    range.merge;
  
    range:=Temsheet.Range[Temsheet.cells[7,1],Temsheet.cells[TemInt,10]];//选定表格
    range.borders.linestyle:=1;//华线

Application.ProcessMessages;

Screen.Cursor:=CrDefault;
    FExcel.WorkBooks[1].saveas(TemFileName);//保存文件
    FExcel.workbooks[1].close; //关闭工作表
    Application.ProcessMessages;
    MessageBox(Handle,‘导出成功‘,‘提示‘,MB_OK);
    //FExcel.visible:=true;
    FExcel.quit; //关闭Excel
    FExcel := unassigned;
    shellexecute(0,‘open‘,PChar(ExtractFileName(TemFileName)),nil,PChar(ExtractFilePath(TemFileName)),SW_Show);
 
  end;
end;

--------------------------------------------------------------------------------------------------------------------
********************************************************************************************************************
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Mask, ComCtrls, StdCtrls, Buttons, Grids, ValEdit, IdBaseComponent,
  CheckLst, excel97, ExcelXP, OleServer, comobj, excel2000, mmsystem,
  ADODB, DB, DBGrids, clipbrd;

四;
procedure TFIND_FM.Button1Click(Sender: TObject);
var
  i,j : integer;
  reportname, wpath : string;
  ExApp1 : TExcelApplication;
  ExWrbk1 : TExcelWorkbook;
  ExWrst1 : TExcelWorksheet; 
begin
 
  if Main_FM.ADOQuery_TEMP.IsEmpty then
    begin
    Showmessage(‘沒有可導出的資料!‘);
    Exit;
    end
  else
    begin
    Main_FM.SaveDialog1.FileName := ‘qcreport‘;
    if  Main_FM.savedialog1.Execute then
      begin
        //savedialog1.FileName := formatdatetime(‘YYYYMMDDHHMMSS‘,now())+‘md_orderqc_list.xls‘;
        reportname :=  formatdatetime(‘YYYYMMDDHHMMSS‘,now())+ExtractFileName(Main_FM.savedialog1.FileName);
        //reportname :=  formatdatetime(‘YYYYMMDDHHMMSS‘,now())+‘‘;
        wpath := ExtractFilePath(Main_FM.savedialog1.FileName);
        //showmessage(wpath);

try
          ExApp1 := TExcelApplication.Create(application);
          ExWrbk1 := TExcelWorkbook.Create(application);
          ExWrst1 := TExcelWorksheet.Create(application);
          ExApp1.Connect;
        except
          Showmessage(‘電腦沒裝Excel!無法導出!‘);
          Abort;
        end;
        try
          try
          ExApp1.Workbooks.Add(EmptyParam,0);
          ExWrbk1.ConnectTo(ExApp1.Workbooks[1]);
          ExWrst1.ConnectTo(ExWrbk1.Worksheets[1] as _worksheet);
          Main_FM.ADOQuery_TEMP.First;
          for j := 0 to Main_FM.ADOQuery_TEMP.FieldCount-1 do
            begin
            ExWrst1.Cells.Item[1,j+1] := Main_FM.ADOQuery_TEMP.Fields[j].DisplayName;
            //
            end;
          for i := 2 to Main_FM.ADOQuery_TEMP.RecordCount+1 do
            begin
              for j := 0 to Main_FM.ADOQuery_TEMP.FieldCount-1 do
                begin
                ExWrst1.Cells.Item[i,j+1] := Main_FM.ADOQuery_TEMP.Fields[j].Value;
                end;
              Main_FM.ADOQuery_TEMP.Next;
            end;
          ExWrst1.SaveAs(wpath+reportname);
          //ExWrst.SaveAs(formatdatetime(‘YYYYMMDDHHMMSS‘,now())+reportname);;
          Showmessage(‘數據已成功導出!‘);
          except
          Showmessage(‘導出失敗!‘);
          abort;
          end;
        finally
          ExApp1.Disconnect;
          ExApp1.Quit;
          ExApp1.Free;
          ExWrbk1.Free;
          ExWrst1.Free;
        end;
      end;
    end;
end;

--------------------------------------------------------------------------------------------------
**************************************************************************************************
delphi导出数据至Excel的三种方法及比较
闲来无事，跑到网上搜集了几种导出DataSet至Excel的几种方法。另外使用GetTickcount函数计算时差，以便比较。（本来使用Timer控件，但是Timer不适合做高精度时间计算）
使用TADOConnect，TADOQuery查询数据。
方法五：
   使用TADOQuery + Varaint方法，循环遍历数据集中数据，直接插入到Excel的WookBook单元。这是初学者最易懂和易接受的方法。
在下面代码中没有仔细注意语法（比如没有使用try..finally结构体），如果需要使用，请注意：
//使用ADO循环方式保存
procedure TForm1.btn_WhileClick(Sender: TObject);
var
   Eclapp:variant;
   n:integer;
   filename: string;
   t1,t2: Int64;
begin
   Eclapp := CreateOleObject(‘Excel.Application‘);
   Eclapp.WorkBooks.Add;
   Eclapp.Visible:= False;
   filename :=‘d:\数据1.xls‘;
   lbl2.Caption := ‘0‘;
   if FileExists(fileName) then
     DeleteFile(fileName);
   t1:= GetTickCount;
   qry1.DisableControls;
   qry1.First;
   n:=2;
   while not qry1.Eof do
   begin
     eclapp.cells[n,1] := qry1.Fields[0].AsString;
     eclapp.cells[n,2] := qry1.Fields[1].AsString;
     eclapp.cells[n,3] := qry1.Fields[2].AsString;
     eclapp.cells[n,4] := qry1.Fields[3].AsString;
     //为了简单，只添加了4个栏位
     inc(n);
     qry1.Next;
     application.ProcessMessages;
   end;
   qry1.EnableControls;
   t2:= GetTickCount;
   eclapp.visible := false;
   eclapp.Workbooks[1].SaveAs(filename);
   Eclapp.Quit;
   Eclapp:= Unassigned;
   lbl2.Caption := IntToStr(t2 - t1);
end;

---------------------------------------------------------------------------------------------------------
*********************************************************************************************************

方法六：使用OLE方法导入。

先讲TDateSet中的数据保存为二维OLEVariant数组中，再保存到Excel Sheet中  ///使用OLE方式保存procedure TForm1.btn_OleVariantClick(Sender: TObject);
var
fileName: string;
xlApp, Sheet: OleVariant;
rowCount, Colcount, index: Integer;
t1,t2: Int64;
function RefToCell(RowID, ColID: Integer): string;
var
    ACount, APos: Integer;
begin
    ACount := ColID div 26;
    APos := ColID mod 26;
    if APos = 0 then
    begin
      ACount := ACount - 1;
      APos := 26;
    end;
    if ACount = 0 then
      Result := Chr(Ord(‘A‘) + ColID - 1) + IntToStr(RowID);
    if ACount = 1 then
      Result := ‘A‘ + Chr(Ord(‘A‘) + APos - 1) + IntToStr(RowID);
    if ACount > 1 then
      Result := Chr(Ord(‘A‘) + ACount - 1) + Chr(Ord(‘A‘) + APos - 1) + IntToStr(RowID);
end;
function getData(ds: TDataSet): OleVariant;
var
    Data: OLEVariant;
    i,j : Integer;
begin
    rowCount := ds.RecordCount;
    colCount := ds.FieldCount;
    Data := VarArrayCreate([1, rowCount + 1, 1, colCount], varVariant); //1，rowCount 表示第一维数组的上下标，1，colCount表示第二维数组的上下标
    i := 1;
    for j := 0 to colCount - 1 do
    begin
      if not ds.Fields[j].Visible then
        continue;
      Data[i,j + 1] := ds.Fields[j].DisplayLabel;
    end;
    Inc(i);
    ds.DisableControls;
    try
      ds.First;
      while not ds.Eof do
      begin
        for j := 0 to colCount - 1 do
        begin
          Data[i,j + 1] := ds.Fields[j].AsString;
        end;
        Inc(i);
        ds.Next;
        Application.ProcessMessages;
      end;
    finally
      ds.EnableControls;
    end;
    result := Data;
end;
begin
fileName := ‘d:\数据.xls‘;
lbl1.Caption := ‘0‘;
t1:= GetTickCount;//开始计时
if FileExists(fileName) then
    DeleteFile(fileName);
xlApp := CreateOleObject(‘Excel.Application‘);
try
    XLApp.Visible := False;
    XLApp.DisplayAlerts := False;
    XLApp.Workbooks.Add;
    // 删除多余的 worksheet
    for index := XLApp.SheetsInNewWorkbook downto 2 do
    begin
      XLApp.Workbooks[1].Worksheets[index].Delete;
    end;
    Sheet := XLApp.Workbooks[1].Worksheets[1];
    index := 1;
    if index <> 0 then
      Sheet := XLApp.Workbooks[1].Worksheets.Add;
    Sheet.Name := qry1.Name;
    //Sheet.Columns.NumberFormatLocal := ‘@‘; //设置单元格式为文本
    Sheet.Range[RefToCell(1, 1), RefToCell(rowCount + 1, colCount)].Value := getData(qry1);
    XLApp.Workbooks[1].SaveAs(fileName);
finally
    if not VarIsEmpty(XLApp) then
    begin
      XLApp.Quit;
      XLAPP := Unassigned;
      Sheet := Unassigned;
      application.ProcessMessages;
      t2:= GetTickCount;
      lbl1.Caption := IntToStr( t2 - t1);
    end;
end;
end;

-------------------------------------------------------------------------------------------------------
*******************************************************************************************************

方法七：现在最流行的文件流方法
.....
var
Form1: TForm1;
arXlsBegin: array[0..5] of Word = ($809, 8, 0, $10, 0, 0);
arXlsEnd: array[0..1] of Word = ($0A, 00);
arXlsString: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);
arXlsNumber: array[0..4] of Word = ($203, 14, 0, 0, 0);
arXlsInteger: array[0..4] of Word = ($27E, 10, 0, 0, 0);
arXlsBlank: array[0..4] of Word = ($201, 6, 0, 0, $17);
Procedure ExportExcelFile(FileName: string; bWriteTitle: Boolean; aDataSet: TDataSet);

implementation
{$R *.dfm}
//使用文件流

procedure incColRow; //增加行列号
begin
    if Col = ADataSet.FieldCount - 1 then
      begin
        Inc(Row);
        Col :=0;
      end
    else
      Inc(Col);
end;

procedure WriteStringCell(AValue: string);//写字符串数据
var
L: Word;
begin
     L := Length(AValue);
     arXlsString[1] := 8 + L;
     arXlsString[2] := Row;
     arXlsString[3] := Col;
     arXlsString[5] := L;
     aFileStream.WriteBuffer(arXlsString, SizeOf (arXlsString));
     aFileStream.WriteBuffer(Pointer(AValue)^, L);
     IncColRow;
end;

procedure WriteIntegerCell(AValue: integer);//写整数
var
    V: Integer;
begin
    arXlsInteger[2] := Row;
    arXlsInteger[3] := Col;
    aFileStream.WriteBuffer(arXlsInteger, SizeOf(arXlsInteger));
    V := (AValue shl 2) or 2;
    aFileStream.WriteBuffer(V, 4);
    IncColRow;
end;

procedure WriteFloatCell(AValue: double );//写浮点数
begin
     arXlsNumber[2] := Row;
     arXlsNumber[3] := Col;
     aFileStream.WriteBuffer(arXlsNumber, SizeOf(arXlsNumber));
     aFileStream.WriteBuffer(AValue, 8);
     IncColRow;
end;

Procedure ExportExcelFile(FileName: string; bWriteTitle: Boolean; aDataSet: TDataSet);
var
i,j: integer;
Col , row: word;
ABookMark: TBookMark;
aFileStream: TFileStream;
//......

//......
begin
   if FileExists(FileName) then DeleteFile(FileName); //文件存在，先删除
      aFileStream := TFileStream.Create(FileName, fmCreate);
   Try    //写文件头　
      aFileStream.WriteBuffer(arXlsBegin, SizeOf(arXlsBegin));   //写列头 　
      Col := 0; Row := 0;
      if bWriteTitle then
      begin
        for i := 0 to aDataSet.FieldCount - 1 do
          WriteStringCell(aDataSet.Fields[i].FieldName);
      end;       //写数据集中的数据 　　
      aDataSet.DisableControls;
      //ABookMark := aDataSet.GetBookmark;
      aDataSet.First ;
      while not aDataSet.Eof do
      begin
        for i := 0 to aDataSet.FieldCount - 1 do
        case ADataSet.Fields[i].DataType of
              ftSmallint, ftInteger, ftWord, ftAutoInc, ftBytes:
              WriteIntegerCell(aDataSet.Fields[i].AsInteger);
              ftFloat, ftCurrency, ftBCD:
              WriteFloatCell(aDataSet.Fields[i].AsFloat)
        else
              WriteStringCell(aDataSet.Fields[i].AsString);
        end;
        aDataSet.Next;
        Application.ProcessMessages;
      end;
      //写文件尾 　
      AFileStream.WriteBuffer(arXlsEnd, SizeOf(arXlsEnd));
      //if ADataSet.BookmarkValid(ABookMark) then aDataSet.GotoBookmark(ABookMark);
   Finally
     AFileStream.Free;
     ADataSet.EnableControls;
   end;
end;

//调用：
procedure TForm1.btn_FileStreamClick(Sender: TObject);
var
t1,t2: Int64;
begin
lbl3.Caption := ‘0‘;
t1:= GetTickCount;
ExportExcelFile(‘d:\数据2.xls‘,true,qry1);
t2:= GetTickCount;
lbl3.Caption:= IntToStr(t2 - t1);
end;

delphi导出数据至Excel的七种方法及比较

时间： 2024-10-13 11:03:03

delphi导出数据至Excel的七种方法及比较的相关文章

Delphi 导出数据至Excel的7种方法【转】

转自:http://blog.csdn.net/zang141588761/article/details/52275948 一; delphi 快速导出excel uses ComObj,clipbrd; function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean; const xlNormal=-4143; var y : integer; tsList : TStringList; s,filename :string; a

【转】asp.net导出数据到Excel的三种方法

来源:http://www.cnblogs.com/lishengpeng1982/archive/2008/04/03/1135490.html 原文出处:http://blog.csdn.net/cpp2017/article/details/2244368 asp.net导出到Excel也是个老生常谈的问题,在此归纳一下. 第一种是比较常用的方法.是利用控件的RenderControl功能,得到该控件生成的HTML,然后以Excel文件的类型输出到客户端.这种方法生成的其实是个HTML文件

浅谈控件(组件)制作方法一（附带一delphi导出数据到Excel的组件实例）（原创）

来自:http://blog.csdn.net/zhdwjie/article/details/1490741 ------------------------------------------------------------------- 从99年学习delphi开始,我就被它的快速开发迷上了,那时候刚接触编程,对可视化开发特别来劲,原因嘛,不外乎是比C更快的实现啦,这几年来,从delphi的C/S到三层B/S,大大小小也写过一些软件,自认为这delphi也就这么些功能吧,自从最近偶得一

Java导出数据为EXCEL的两种方式JXL和POI

JXL和POI导出数据方式的比较 POI支持excel2003和2007,而jxl只支持excel2003. 下面为测试代码: Java代码   public class TestCondition { /** * 生成的记录条数 */ public static final int RECORD_COUNT = 21000; /** * 模板文件 */ public static final String TEMPLATE_FILE = "E:/MyKernelPlatformWorkspac

SQL从数据库导出数据到EXCEL换行的问题解决方法

EXCEL版本:Office 2010 我是遇到这种情况,辛苦的组成了一个复杂的SQL ,得出正确数据,使用简便的复制粘贴的方法准备把数据复制到EXCEL中, 可是悲剧了,因为资料里有换行符,粘贴到EXCEL后行数完全错乱了. 于是我找万能的百度,参考了很多,也试了很多方法,可是还是不行.于是自己测试了两种方法,两种方法都完美实现. 一.方法一. 我想到了一个办法:把查询结果拉到一个数据集:DataSet1.xsd中,然后把结果集与Report关联,然后预览,保存成EXCEL,这种方法是行的.只

delphi 导出到excel的7种方法

本文来自 爱好者8888 的CSDN 博客 ,全文地址请点击:https://blog.csdn.net/kpc2000/article/details/17066823?utm_source=copy =================================================================================================== 第一种方法delphi 快速导出excel uses ComObj,clipbrd; funct

Dynamics CRM导出数据到Excel

原创地址:http://www.cnblogs.com/jfzhu/p/4276212.html 转载请注明出处 Pivot Table是微软BI的一个重要工具,所以这里讲一下Dynamics CRM将数据导出到Excel的功能. (一)导出数据到Excel的三种类型 下图中点击红框内的按钮EXPORT TO EXCEL,会弹出三个选项 第一个是一个静态工作表,将当前页面内的数据导出到一张表内.该数据是静态的,也就是说CRM里的数据发生改变,工作表的数据不会发生相应修改.如果勾选了”Make t

php导出数据到excel,防止身份证等数字字符格式变成科学计数的方-------缺点，必须使用table tr td

php导出数据到excel,防止身份证等数字字符格式变成科学计数的方 时间:2012-08-17 13:50来源:未知 作者:硅峰网络-红豆 点击:219次 在网上查了很多资料知道解决办法大概有两个:一是在身份证字段前加个英文单引号,二是设置Excel的格式为文本格式. 我试用过第一种确实可以显示,但是有个'号在那里感觉确实不是很好,虽然听说不影响,但是需要用户点击那个单元格那个单引号才消失,并且在该 在网上查了很多资料知道解决办法大概有两个:一是在身份证字段前加个英文单引号,二是设置Excel

PHP导出数据到Excel

PHP导出数据到Excel 在Web开发中经常需要将一些数据导入到Excel表格中,比如需要导出符合条件的用户数据,导出项包括姓名.性别.***号.联系方式等等.那么问题来了,在导出的数据中如果出现比较长的数值类型的项时,默认按科学计数法表示,比如***号这显然不是我们需要的,那么我们怎么做才能让数据按我们要求的格式显示呢? 查到一些相关资料,摘抄如下: 首先,我们了解一下excel从web页面上导出的原理.当我们把这些数据发送到客户端时,我们想让客户端程序(浏览器)以excel的格式读取它,所