delphi 怎么实现数据导出到EXCEL
我用ACCESS的数据库在DELPHI内怎么实现ACCESS数据到EXCEL的数据导出啊高人指点下急...
我用ACCESS的数据库 在DELPHI 内 怎么实现ACCESS数据到EXCEL的数据导出啊 高人指点下 急
展开
展开全部
Eclapp:= createoleobject('Excel.Application');
Application.ProcessMessages;
try
Eclapp.workbooks.add;
eclapp.cells[1, 1]:= Caption;
n:= 2;
for i:= 3 to 你数据集的行数 - 1 do
begin
for j:= 1 to 你数据集的列数 - 1 do
begin
eclapp.cells[n, j]:= 根据行列得到你数据集中的值; Application.ProcessMessages;
end;
inc(n);
end;
eclapp.Activeworkbook.saveas(FileName);
eclapp.visible:= true;
except
on E: Exception do
begin
raise Exception.Create(E.Message);
end;
end;
Application.ProcessMessages;
try
Eclapp.workbooks.add;
eclapp.cells[1, 1]:= Caption;
n:= 2;
for i:= 3 to 你数据集的行数 - 1 do
begin
for j:= 1 to 你数据集的列数 - 1 do
begin
eclapp.cells[n, j]:= 根据行列得到你数据集中的值; Application.ProcessMessages;
end;
inc(n);
end;
eclapp.Activeworkbook.saveas(FileName);
eclapp.visible:= true;
except
on E: Exception do
begin
raise Exception.Create(E.Message);
end;
end;
参考资料： http://hi.baidu.com/%CC%EC%B5%D8%BB%CC%BB%CC
本回答由提问者推荐
已赞过
已踩过<
你对这个回答的评价是？
展开全部
用delphi编程把Access数据读出来，然后再写到excel中去
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
超快的方法:
select * INTO Sheet1 in "' + SaveDialog1.FileName + '" "excel 8.0;" from 表 //(ACCESS中的表)
select * INTO Sheet1 in "' + SaveDialog1.FileName + '" "excel 8.0;" from 表 //(ACCESS中的表)
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
