如何用Ehlib将dbgrideh 中的数据输出到EXCEL？在线等
如何用Ehlib将dbgrideh 中的数据输出到EXCEL？在线等 问题点数：0、回复次数：4Top
1 楼gzllich（刚从泥坑里出来）回复于 2002-12-04 20:19:04 得分 0
先看看它的Memo吧，里面有完整的例子Top
2 楼hf5b（www）回复于 2002-12-04 20:27:19 得分 0
装用英文的Ehlib后，如何删除，再装中文Ehlib？Top
3 楼flyingkiller（大飞虫）回复于 2002-12-05 09:44:56 得分 0
use DBGridEhImpExp
procedure TForm1.ppmSaveSelectionClick(Sender: TObject);
var ExpClass:TDBGridEhExportClass;
Ext:String;
begin
SaveDialog1.FileName := 'file1';
if (ActiveControl is TDBGridEh) then
if SaveDialog1.Execute then
begin
case SaveDialog1.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
5: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; 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;
SaveDBGridEhToExportFile(ExpClass,TDBGridEh(ActiveControl),
SaveDialog1.FileName,False);
end;
end;
end;
注意：
要先全选内容
dbGrideh1.selection.selectall;
打开原来的dpk文件，点击删除，然后在用新的dpk文件安装就是了。Top
4 楼ddvboy（ddv）（我心憔悴）回复于 2002-12-05 09:47:35 得分 0
flyingkiller(大飞虫) ( )
很好!Top
