麻烦发一个绝对能用的DBGridEh导入到Excel例子,谢谢。 最好是Delphi7环境下的,通用的组建最好了。麻烦大家了。谢谢... 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 save一下就可以了,dbgrideh很简单 uses DBGridEhImpExp;procedure savegrid(grid:TDBGridEh;filename:string);var ExpClass:TDBGridEhExportclass; Ext:String; savedlg:tsavedialog;begin savedlg:=tsavedialog.Create(nil); savedlg.Filter:='Excel 文档 (*.xls)|*.XLS|Text files (*.txt)|*.TXT|Comma separated values (*.csv)|*.CSV|HTML file (*.htm)|*.HTM|Rich Text Format (*.rtf)|*.RTF'; SaveDlg.FileName := filename; SaveDlg.DefaultExt := 'XLS'; if SaveDlg.Execute then begin case SaveDlg.FilterIndex of 1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end; 2: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end; 3: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end; 4: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end; 5: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end; else ExpClass := nil; Ext := ''; end; if ExpClass <> nil then begin if UpperCase(Copy(SaveDlg.FileName,Length(SaveDlg.FileName)-2,3)) <> UpperCase(Ext) then SaveDlg.FileName := SaveDlg.FileName + '.' + Ext; SaveDBGridEhToExportFile(ExpClass,grid,SaveDlg.FileName,true); end; end; Savedlg.Destroy;end; nojave 简直是太正解了 我找了一天的原因找了一天的代码最后发现只有你的是可以行的通的太感谢你了。。 如何防止文件被拷贝 请教如何获取cobobox下拉列表焦点列数据 如何能够根据文件文件句柄或进程ID获取文件名(文件不是Exe文件)? 我有一个关于程序隐藏的想法,希望大家帮忙实现 我这个问题竟然没人能回答出,高手都泡妞去了吗? quickreport中的dbtext控件如何折行显示? 紧急求救,谢谢各位(50分,请接!) 关于sql server的问题! 请问如何把我的程序永远置于前台 为什么我的多线程程序一个一个运行? 如何使用webbrowser 提交“强制登录”按键? 站在2008门口, 发点分吧.
procedure savegrid(grid:TDBGridEh;filename:string);
var ExpClass:TDBGridEhExportclass;
Ext:String;
savedlg:tsavedialog;
begin
savedlg:=tsavedialog.Create(nil);
savedlg.Filter:='Excel 文档 (*.xls)|*.XLS|Text files (*.txt)|*.TXT|Comma separated values (*.csv)|*.CSV|HTML file (*.htm)|*.HTM|Rich Text Format (*.rtf)|*.RTF';
SaveDlg.FileName := filename;
SaveDlg.DefaultExt := 'XLS';
if SaveDlg.Execute then
begin
case SaveDlg.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
2: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
3: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
4: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
5: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
else
ExpClass := nil; Ext := '';
end;
if ExpClass <> nil then begin
if UpperCase(Copy(SaveDlg.FileName,Length(SaveDlg.FileName)-2,3)) <> UpperCase(Ext) then
SaveDlg.FileName := SaveDlg.FileName + '.' + Ext;
SaveDBGridEhToExportFile(ExpClass,grid,SaveDlg.FileName,true);
end;
end;
Savedlg.Destroy;
end;
我找了一天的原因
找了一天的代码
最后发现只有你的是可以行的通的
太感谢你了。。