A
angleli1981
Unregistered / Unconfirmed
GUEST, unregistred user!
数据导出成Excel文件的问题(如果有代码请贴出来)
1.如何快速地导出数据成Excel文件
2.如何在没有安装Office的环境中快速地导出数据成Excel文件
3.以上问题在分布式环境的客户端如何实现
4.赠品,以下是我把数据导出成Excel文件的程序,程序没问题
,但速度不行,在没有装Office环境中运行就有错。
procedure TForm1.saveexcelExecute(Sender: TObject);
var
row,col:integer;
begin
if adoq.State=dsInactive then
begin
application.MessageBox('没有可导出的数据!','导出',mb_iconinformation+mb_ok);
exit;
end;
if adoq.RecordCount =0 then
begin
application.MessageBox('没有可导出的数据!','导出',mb_iconinformation+mb_ok);
exit;
end;
ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=false;
ExcelApplication1.Workbooks.Add(NULL,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);
for col:=1 to adoq.Fields.Count do
begin
ExcelWorksheet1.Cells.Item[1,col]:=adoq.Fields[col-1].FieldName;
end;
adoq.First;
for row:=2 to adoq.RecordCount+1 do
begin
for col:=1 to adoq.Fields.Count do
begin
ExcelWorksheet1.Cells.Item[row,col]:=adoq.Fields[col-1].Value;
end;
adoq.Next;
end;
ExcelApplication1.Quit;
ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Disconnect;
ExcelApplication1.Disconnect;
end;
1.如何快速地导出数据成Excel文件
2.如何在没有安装Office的环境中快速地导出数据成Excel文件
3.以上问题在分布式环境的客户端如何实现
4.赠品,以下是我把数据导出成Excel文件的程序,程序没问题
,但速度不行,在没有装Office环境中运行就有错。
procedure TForm1.saveexcelExecute(Sender: TObject);
var
row,col:integer;
begin
if adoq.State=dsInactive then
begin
application.MessageBox('没有可导出的数据!','导出',mb_iconinformation+mb_ok);
exit;
end;
if adoq.RecordCount =0 then
begin
application.MessageBox('没有可导出的数据!','导出',mb_iconinformation+mb_ok);
exit;
end;
ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=false;
ExcelApplication1.Workbooks.Add(NULL,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);
for col:=1 to adoq.Fields.Count do
begin
ExcelWorksheet1.Cells.Item[1,col]:=adoq.Fields[col-1].FieldName;
end;
adoq.First;
for row:=2 to adoq.RecordCount+1 do
begin
for col:=1 to adoq.Fields.Count do
begin
ExcelWorksheet1.Cells.Item[row,col]:=adoq.Fields[col-1].Value;
end;
adoq.Next;
end;
ExcelApplication1.Quit;
ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Disconnect;
ExcelApplication1.Disconnect;
end;