delphi DBGrid1导出excel
tryWorkBook:=eclApp.workbooks.Add;fori:=0toDBGrid1.Columns.Count-1dobegineclApp.Cells...
try
WorkBook:=eclApp.workbooks.Add;
for i:=0 to DBGrid1.Columns.Count-1 do
begin
eclApp.Cells(1,i+1):=DBGrid1.Columns[i].FieldName;
end;
这个是delphi DBGrid1控件里的数据导出excel 保存 我想让导出来的数据 第一列的标题是 客户编码 第二列是 客户姓名 中文的 现在倒出来的是我数据库的列名 我是新手 希望哪位高手指点一下 最好有代码 展开
WorkBook:=eclApp.workbooks.Add;
for i:=0 to DBGrid1.Columns.Count-1 do
begin
eclApp.Cells(1,i+1):=DBGrid1.Columns[i].FieldName;
end;
这个是delphi DBGrid1控件里的数据导出excel 保存 我想让导出来的数据 第一列的标题是 客户编码 第二列是 客户姓名 中文的 现在倒出来的是我数据库的列名 我是新手 希望哪位高手指点一下 最好有代码 展开
1个回答
展开全部
那你这一段改一下
for i:=0 to DBGrid1.Columns.Count-1 do begin eclApp.Cells(1,i+1):=DBGrid1.Columns[i].FieldName; end;
改成
eclApp.Cells(1,i):='客户编码';
eclApp.Cells(1,2):='客户姓名';
依此类推即可
for i:=0 to DBGrid1.Columns.Count-1 do begin eclApp.Cells(1,i+1):=DBGrid1.Columns[i].FieldName; end;
改成
eclApp.Cells(1,i):='客户编码';
eclApp.Cells(1,2):='客户姓名';
依此类推即可
更多追问追答
追问
太感谢了
里边有个日期 导出来的 格式不够大 怎么办啊？
还有就是 导出来的时候 不点保存 点取消就出错误 是什么原因啊？
追答
你取消的代码是啥
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
