Delphi 数据导出到Excel
好多办公软件特别是财务软件,都需要配备把数据导出到Excel,下面就来介绍两种数据导出方法
1.ADODB导出查询结果(此方法需要安装Excel)
2.二维表数据导出(根据Excel文件结构生成二进制文件流,不需要安装Excel)
3.如果涉及到复杂表头的(例如合并字段等),未做研究,下面也没介绍相关资料,请止步。
第一种,ADODB导出查询结果(此方法需要安装Excel)
//uses DB, ADODB, ComObj, ComCtrls, excel2000, StdCtrls, adoint,
var
xlApp, xlBook, xlSheet, xlQuery: Variant;
adoConnection, adoRecordset: Variant;
begin
adoConnection := CreateOleobject('ADODB.Connection');
adoRecordset := CreateOleobject('ADODB.Recordset');
adoConnection.Open(
'Provider=MSDASQL.1;Password=000000;Persist Security Info=True;User ID=my_username;Data Source=tax_ora;Extended Properties="DSN=tax_ora;UID=net_user;PWD=000000;DBQ=TAX_ORA101;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;' + 'FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;MLD=0;ODA=F;"');
adoRecordset.CursorLocation := adUseClient;
adoRecordset.Open('select * from userinfo where rownum<100', adoConnection,
, );
try
xlApp := CreateOleobject('Excel.Application');
xlBook := xlApp.Workbooks.Add;
xlSheet := xlBook.WorkSheets['sheet1']; // 设置这一列为 文本列 ,让 "00123" 正确显示,而不是自动转换为"123"
xlSheet.Columns['C:C'].NumberFormatLocal := '@'; 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 := ;
xlQuery.PreserveColumnInfo := True;
xlQuery.FieldNames := True;
xlQuery.Refresh; xlBook.SaveAs('c:\fromD.xls', xlNormal, '', '', False, False); finally
if not VarIsEmpty(xlApp) then
begin
xlApp.DisplayAlerts := False;
xlApp.ScreenUpdating := True;
xlApp.Quit;
end;
end;
end;
ADODB导出查询结果
第二种,不需要安装Excel是它的绝对优势,而且不限于数据库表查询,你还可以导出listview,甚至你自定义的record数据。
var
arXlsBegin: array[..] of Word = ($, , , $, , );
arXlsEnd: array[..] of Word = ($0A, );
arXlsString: array[..] of Word = ($, , , , , );
arXlsNumber: array[..] of Word = ($, , , , );
arXlsInteger: array[..] of Word = ($27E, , , , );
arXlsBlank: array[..] of Word = ($, , , , $); Procedure ExportExcelFile(FileName: string; bWriteTitle: Boolean);
//.....
implementation
//.....
Procedure ExportExcelFile(FileName: string; bWriteTitle: Boolean);
const
coltitle: array [ .. ] of string = ('第一行', '第二行', '第三行', '第四行'); type
TArrContent = array [ .. , .. ] of string; var
i, j: Integer;
Col, row: Word;
ABookMark: TBookMark;
aFileStream: TFileStream;
A: TArrContent;
// ......
procedure incColRow; // 增加行列号
begin
// if Col = aDataSet.FieldCount - 1 then
if Col = Length(coltitle) - then
begin
Inc(row);
Col := ;
end
else
Inc(Col);
end; procedure WriteStringCell(AValue: AnsiString); // 写字符串数据, 在Delphi7之后的版本,string使用Unicode编码的,要AnsiString,不然会出现中文乱码
var
L: Word;
begin
L := Length(AValue);
arXlsString[] := + L;
arXlsString[] := row;
arXlsString[] := Col;
arXlsString[] := L;
aFileStream.WriteBuffer(arXlsString, SizeOf(arXlsString));
aFileStream.WriteBuffer(AValue[], L);
incColRow;
end; procedure WriteIntegerCell(AValue: Integer); // 写整数
var
V: Integer;
begin
arXlsInteger[] := row;
arXlsInteger[] := Col;
aFileStream.WriteBuffer(arXlsInteger, SizeOf(arXlsInteger));
V := (AValue shl ) or ;
aFileStream.WriteBuffer(V, );
incColRow;
end; procedure WriteFloatCell(AValue: double); // 写浮点数
begin
arXlsNumber[] := row;
arXlsNumber[] := Col;
aFileStream.WriteBuffer(arXlsNumber, SizeOf(arXlsNumber));
aFileStream.WriteBuffer(AValue, );
incColRow;
end; // ......
begin
for i := Low(A) to High(A) do
begin
for j := Low(A[i]) to High(A[i]) do
A[i, j] := IntToStr(i) + ',' + IntToStr(j) + ' ';
end;
if FileExists(FileName) then
DeleteFile(FileName); // 文件存在,先删除
aFileStream := TFileStream.Create(FileName, fmCreate);
Try // 写文件头
aFileStream.WriteBuffer(arXlsBegin, SizeOf(arXlsBegin)); // 写列头
Col := ;
row := ;
if bWriteTitle then
begin
for i := to Length(coltitle) - do
WriteStringCell(coltitle[i]);
end; for i := Low(A) to High(A) do
begin
for J := Low(A) to High(A) do
begin
WriteStringCell(A[i, j]);
//此处可以判断A[i, j]的数据类型,分别调用
//WriteIntegerCell()
//WriteFloatCell()
end;
end;
// 写文件尾
aFileStream.WriteBuffer(arXlsEnd, SizeOf(arXlsEnd));
Finally
aFileStream.Free;
end;
end;
文件流形式导出Excel
ExportExcelFile('d:\数据2.xls', True);
调用
调用结果
三、有一种直接把TStringList保存为Excel的,也可以,很方便,但是遇到数值字段的时候会变成科学记数法形式,所以我没有使用这个方法。
var
s: TStringList;
str: string;
i, j: Integer;
begin
str := '';
for i := to RzListView1.Columns.Count - do
str := str + RzListView1.Columns[i].DisplayName + Char();
str := str + #; for i := to RzListView1.Items.Count - do
begin
str := str + RzListView1.Items[i].Caption + Char();
for j := to RzListView1.Items[i].SubItems.Count - do
begin
str := str + RzListView1.Items[i].SubItems[j] + Char();
end; str := str + #;
end;
s := TStringList.Create;
s.Add(str);
s.SaveToFile('c:\temp.xls'); // 保存到c:\temp.xls
s.Free;
end;
TStringList转Excel
此方法不做详细解释
此文章参考资料来自:Delphi 导出数据至Excel的7种方法
Delphi 数据导出到Excel的更多相关文章
- 学习笔记 DataGridView数据导出为Excel
DataGridView数据导出为Excel 怎样把WinForm下的“DGV”里的绑定数据库后的数据导出到Excel中. 比如:在窗体里有个一“DGV”,DataGridView1,绑定了数据源 ...
- 将C1Chart数据导出到Excel
大多数情况下,当我们说将图表导出到Excel时,意思是将Chart当成图片导出到Excel中.如果是这样,你可以参考帮助文档中保存和导出C1Chart章节. 不过,也有另一种情况,当你想把图表中的数据 ...
- vb.net-三种将datagridview数据导出为excel文件的函数
第一种方法较慢,但是数据格式都比较好,需要引用excel的 Microsoft.Office.Interop.Excel.dll office.dll #Region "导出excel函数 ...
- 数据导出至Excel文件--好库编程网http://code1.okbase.net/codefile/SerializeHelper.cs_2012122018724_118.htm
using System; using System.IO; using System.Data; using System.Collections; using System.Data.OleDb; ...
- 数据导出到Excel中
自己修改后的一个数据导出到Excel的方法,粘出来与大家共享. 只需要将 System.Web.HttpContext.Current.Response.Charset = ...
- asp.net将数据导出到excel
本次应用datatable导出,若用gridview(假设gridview设为了分页显示)会出现只导出当前页的情况. protected void btnPrn_Click(object sender ...
- 将datagrid中数据导出到excel中 -------<<工作日志2014-6-6>>
前台datagrid数据绑定 #region 导出到excel中 /// <summary> /// 2014-6-6 /// </summary> / ...
- 机房收费系统——在VB中将MSHFlexGrid控件中的数据导出到Excel
机房收费系统中,好多查询的窗体都包含同一个功能:将数据库中查询到的数据显示在MSHFlexGrid控件中,然后再把MSHFlexGrid控件中的数据导出到Excel表格中. 虽然之前做过学生信息管理系 ...
- Qt中将QTableView中的数据导出为Excel文件
如果你在做一个报表类的程序,可能将内容导出为Excel文件是一项必须的功能.之前使用MFC的时候我就写过一个类,用于将grid中的数据导出为Excel文件.在使用了QtSql模块后,我很容易的将这个类 ...
随机推荐
- 3、SpringBoot集成Storm WorldCount
RandomSentenceSpout //数据源,在已知的英文句子中,随机发送一条句子出去. public class RandomSentenceSpout extends BaseRichSpo ...
- vue filters中使用data中数据
vue filters中 this指向的不是vue实例,但想要获取vue实例中data中的数据,可以采用下面方法.在 beforeCreate中将vue实例赋值给全局变量app0,然后filters中 ...
- sublime text 3安装
输入快捷键:shift+ctrl+p, 打开安装界面,先要安装install package control,然后选择install package. 增加编译环境,ctrl + b 执行. 安装如下 ...
- Gradle 简记
不是 Gradle,就是 Maven吧.对比下: Maven: 推荐(?)了一个默认的项目结构和生命周期,但是太过死板 虽然暴露了 API 接口,但是插件定制太过复杂 和 Ant 一样,仍然无法表达复 ...
- Nginx1.14.0+ModSecurity实现简单的WAF
一.编译安装Nginx 1.安装依赖环境 $ yum -y install gcc-c++ flex bison yajl yajl-devel curl-devel curl GeoIP-devel ...
- java笔记 -- 数组
概念: 数组是一种数据结构, 用来存储同一类型值的集合. 通过一个整型的下标可以访问数组中的每一个值. 声明: int[] a(推荐,将类型int[](整形数组)和变量名分开了) 或者int a[] ...
- 实验五 <FBG>团队亮相
一.队名:FBG 二.队员: 201571030321:马玉婷 (小队长) 201571030317:马美玲 201571030331:益西卓嘎 三.队员风采: 201571030321:马玉婷 风格 ...
- 环境准备—之—linux下安装python3和pip3
转自 上海悠悠 https://www.cnblogs.com/yoyoketang/p/10195102.html 前言 centos7 自带有 python,但是却是 python2 版本的 py ...
- Ubuntu 16.04安装httpd
1.下载httpd源码(当前版本为2.4.37) http://httpd.apache.org/download.cgi 2.解压编译 tar -zxf httpd-2.4.37.tar.gzcd ...
- NopCommerce源码架构详解
NopCommerce源码架构详解--初识高性能的开源商城系统cms 很多人都说通过阅读.学习大神们高质量的代码是提高自己技术能力最快的方式之一.我觉得通过阅读NopCommerce的源码,可以从 ...