本人在将Excel转换到Access时遇到了无法解决的问题,即使在论坛上发布了问题至今也无人比较好的方法回答。因为在用循环导入Excel时实在太慢了。数据多了实在太慢了,本人也不想用第三方控件,可Access本身提价了转换的功能,为什么delphi却不提供像操作Excel一样来操作Access。本人不解,请大家来讨论些问题。
解决方案 »
- double类型怎么转化成字符串,delphi7有没有现成的函数。
- 关于PaintBox的问题·!~来看看啊
- 钩子如何编译?
- 高手们救命呀!!TRichEdit每添加一行(lines.add()),怎样显示最后一行,即会自动滚动,前提是不用鼠标点击。此问题搞得我头晕都没办法。
- 终于解脱了,散分2
- 做c/s时,应用程序服务器怎么进行安装?
- 毕业设计 课题是分布式售票管理系统 请大家提供思路!非常谢谢大家!!
- 那位前辈朋友用过codesite,请和我联系.,研究这个东西的用法,谢谢
- 错误提示:尚未调用Coinitialize.
- 以下四种定位方式,大家觉得那一种速度更快
- 如何实现网络驱动器的映射?(在广域网上的实现) 帮一下忙,哥们们!!!急!!!
- 初学都的问题?
用循环读入数据就可以,不过实在太慢。
唉.
没有其它的办法,原因可能是EXCEL的数据类型并不符合数据库的标准.
利用剪贴板实现高速导出数据到Excel amei2000go(原作)
关键字 Excel
在很多的时候,我们需要将我们的数据导出到Excel中进行加工,在Access中有现成的工具可以实现
可是在Delphi中却偏偏没有,无论如何我们需要这么一个工具,那么,事不宜迟,细细一想,最好的方法莫过
于直接在程序中按照Excel的格式生成Excel文件,使用Ole技术直接调用Excel实例,由于第一种方法技术实现
过于复杂,好在一般的计算机上已经安装了Office,在此就第二种方法“抛一块砖”。
在此做一个示例以方便说明,我们考虑到导出数据有很多的情况是Master/Detail数据,因此就用两个
TQuery和一个TDataSource,如果有更多的层次,只需要增加TQuery和TDataSource即可,以下使用了两个TQuery
,分别是:qryMaster和qryDetail,一个TDataSource:dsSource;
步骤是:
1.建立一个Excel实例
2.创建一个工作表
3.创建一个TStringList,用来装数据
4.穷举数据表,将数据存入TStringList
5.将TStringList的数据复制到剪贴板
6.把剪贴板中的数据粘贴到Excel
本方法的优点在于:比逐条写入到Excel中的速度大大提高,我曾试过,在P3933,256M的机器上用普通
的方法,导出1000条数据大约需要2分钟,而该用本方法后只需要8秒。function ToExcel():boolean;
var
y :integer;
tsList :TStringList;
s :string;
aSheet :Variant;
begin
result:=true;
Excel.Connect; // 打开Excel
Excel.Visible[0]:=true; // 显示Excel
Excel.Workbooks.Add(xlWBATWorksheet,0);
aSheet:=excel.Worksheets.Item[1]; tsList:=TStringList.Create;
try
try
with qryMaster do
begin
Open;
First;
While Not Eof do
begin
s:='';
for y:=0 to FieldCount-1 do
begin
s:=s+Fields[y].AsString+#9;
Application.ProcessMessages;
end;
tsList.Add(s);
// 从表
if qryDetail<>nil then
begin
with qryDetail do
begin
Open;
First;
while Not Eof do
begin
s:='';
for y:=0 to FieldCount-1 do
begin
s:=s+Fields[y].AsString+#9;
Application.ProcessMessages;
end;
tsList.Add(s);
next;
end;
end;
end;
next;
end;
Close;
end;
Clipboard.AsText:=tsList.Text;
except
result:=false;
end;
finally
tsList.Free;
end; Excel.Disconnect;
aSheet.Paste;
MessageBox(Application.Handle,'数据导出完毕!','系统提示',MB_ICONINFORMATION or MB_OK);
end;
最为简便也最为快速的办法。