Delphi中Excel的快速导入

原创 2004年09月08日 16:37:00

//怎样可以提高EXCEL的导出速度?

uses ADODB,excel97,adoint;

function TForm1.ExportToExcel: Boolean;
var
  xlApp,xlBook,xlSheet,xlQuery: Variant;
  adoConnection,adoRecordset: Variant;
begin
  adoConnection := CreateOleObject('ADODB.Connection');
  adoRecordset := CreateOleObject('ADODB.Recordset');
  adoConnection.Open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:/Tree.mdb;Persist Security Info=False');
  adoRecordset.CursorLocation := adUseClient;
  adoRecordset.Open('SELECT * FROM tree',adoConnection,1,3);

  try
    xlApp := CreateOleObject('Excel.Application');
    xlBook := xlApp.Workbooks.Add;
    xlSheet := xlBook.Worksheets['sheet1'];
    xlApp.Visible := True;

    //把查询结果导入EXCEL数据
    xlQuery := xlSheet.QueryTables.Add(adoRecordset,xlSheet.Range['A1']); 
//关键是这一句
    xlQuery.FieldNames := True;
    xlQuery.RowNumbers := False;
    xlQuery.FillAdjacentFormulas := False;
    xlQuery.PreserveFormatting := True;
    xlQuery.RefreshOnFileOpen := False;
    xlQuery.BackgroundQuery := True;
    //xlQuery.RefreshStyle := xlInsertDeleteCells;
    xlQuery.SavePassword := True;
    xlQuery.SaveData := True;
    xlQuery.AdjustColumnWidth := True;
    xlQuery.RefreshPeriod := 0;
    xlQuery.PreserveColumnInfo := True;
    xlQuery.FieldNames := True;
    xlQuery.Refresh;

    xlBook.SaveAs('d:/fromD.xls',xlNormal,'','',False,False);

  finally
    if not VarIsEmpty(XLApp) then begin
      XLApp.displayAlerts:=false;
      XLApp.ScreenUpdating:=true;
      XLApp.quit;
    end;
  end;
end;

畸形URL能导致IIS5.0和exchange 2000停止服务

畸形URL能导致IIS5.0和exchange 2000停止服务(转自绿盟科技)发布日期: 2001-3-13更新日期: 2001-3-13 受影响的系统:  Microsoft Internet I...
  • e_lion
  • e_lion
  • 2001-03-15 01:04:00
  • 593

Delphi 导出、导入Excel的一个快速方法

The quickest way is to use an array of Variant,and just pass the entire array to Excel: var     xls,...
  • lcfeng1982
  • lcfeng1982
  • 2015-02-13 11:03:09
  • 3942

Delphi DBGrid导出Excel文件最快速的代码

  • 2009年02月04日 23:41
  • 5KB
  • 下载

(Delphi)Excel的快速导入

//怎样可以提高EXCEL的导出速度?uses ADODB,excel97,adoint;function TForm1.ExportToExcel: Boolean;var  xlApp,xlBoo...
  • LuckyJan
  • LuckyJan
  • 2003-06-13 12:01:00
  • 3884

Delphi编程将数据库数据用流快速导入Excel

      在开发数据库应用程序中, 经常要将类型相同的数据导出来,放到Excel文件中,利用Excel强大的编辑功能,对数据作进一步的加工处理。这有许多的方法,我们可以使用OLE技 术,在Delp...
  • lee576
  • lee576
  • 2008-02-22 11:06:00
  • 1766

<em>delphi</em> <em>Excel</em> <em>导入</em>的例子

<em>delphi</em> Excel 导入的例子绝对经典. 不需要依赖EXCEL. 不需要安装,只需要引用Sources... <em>Delphi</em> 导出、<em>导入Excel</em>的一个<em>快速</em>方法 [<em>Delphi</em>-码农]<em>Delphi</em> <em>EXCEL导入</em> (...
  • 2018年04月17日 00:00

<em>Delphi快速</em>导出数据到<em>Excel</em>

<em>Delphi快速</em>导出数据到Excel 2008-01-07 上传大小:5KB 导出excel 背景:今天要把DataSet<em>导入Excel</em>,查询以前的贴子,一部分用Ole,速度太慢, 一部分用ADO连接到Excel文...
  • 2018年04月17日 00:00

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

一; delphi 快速导出excel uses ComObj,clipbrd; function ToExcel(sfilename:string; ADOQuery:TADOQuery):...
  • zang141588761
  • zang141588761
  • 2016-08-22 13:15:03
  • 7015

Delphi Excel导入 的通用程序

步骤: 1 连excel(自己知道其格式,最好是没个字段在数据一一对应) 2 读excel数据,填入到数据库 我这里有个函数,实现把excel表格中数据导入数据库,在一条数据导入前判断数据库中是否有该...
  • beyondqd
  • beyondqd
  • 2012-09-24 18:20:30
  • 7092

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

delphi导出数据至Excel的几种方法及比较      一、delphi 快速导出excel uses ComObj,clipbrd; fu...
  • hangyi_008
  • hangyi_008
  • 2014-03-07 10:37:22
  • 997
收藏助手
不良信息举报
您举报文章:Delphi中Excel的快速导入
举报原因:
原因补充:

(最多只允许输入30个字)