麻烦发一个绝对能用的DBGridEh导入到Excel例子，谢谢。
最好是Delphi7环境下的，通用的组建最好了。
麻烦大家了。谢谢...
[解决办法]
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;
[解决办法]
楼主的信誉值
楼上正解
