关于DBGridEh导出的问题

[gerrylc]

DBGRIDEH中的数据可以直接导出为EXCEL文件么?而不需要写好多代码,如果有,请告之,谢谢

[xz_fj]

SaveDBGridEhToExportFile(TDBGridEhExportAsXLS, DBGridEh, FileName, False);

[ron_xin]

procedure TFrimFiveReport.FlatButton1Click(Sender: TObject);
var
ExpClass:TDBGridEhExportClass;
Ext:String;
begin

SaveDialog1.FileName :='五日报';
if SaveDialog1.Execute then
begin
case SaveDialog1.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
2: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
3: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
4: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
5: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
else
ExpClass := nil; Ext := '';
end;
if ExpClass <> nil then
begin
if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <> UpperCase(Ext) then
SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
try
SaveDBGridEhToExportFile(ExpClass,DBGridEh1,SaveDialog1.FileName,true);
except
msshow('保存失败!');
end;
end;

end;

end;

[ron_xin]

注意要uses DBGridEhImpExp;

[gerrylc]

十分感谢ron_xin(星雨),已经导出成功了,还有一个问题就是我用的是多层表头,但是导出来的是'|'的形式,可以按多层表头的形式导出么????

[gerrylc]

我的表头是用代码控制的'|'的形式,还可以用别的方式控制吗?

[vfork]

mark一下

[ron_xin]

SaveDBGridEhToExportFile(TDBGridEhExportAsHTML,DBGridEh1,SaveDialog1.FileName + '.xls';,true);