delphi dbgrideh导入excel 中

要求：1、要保存以前的数据 2、保存的路径在代码中要注明，不再更改。不显示保存的过程。

SaveDBGridEhToExportFile(TDBGridEhExportAsXls,DBGridEh1,sReceiptFileName,true);

procedure Tfcxtj.saveClick(Sender: TObject); var ExpClass : TDBGridEhExportClass ; yy : String; begin if (not dm.qjymx.Active) or (dm.qjymx.RecordCount=0) then begin showmessage('无数据可导出！'); exit; end; SaveDialog1.Filter:='xls工作簿(*.xls)|*.xls'+ 'csv文件(*.csv)|*.csv|'+ '网页(*.htm)|*.htm|'+ 'rtf文件(*.rtf)|*.rtf|'+ '文本文件(*.txt)|*.txt|'; if SaveDialog1.Execute then begin case SaveDialog1.FilterIndex of 1: begin ExpClass := TDBGridEhExportAsXLS; yy := 'xls'; end; 2: begin ExpClass := TDBGridEhExportAsCSV; yy := 'csv'; end; 3: begin ExpClass := TDBGridEhExportAsHTML; yy := 'htm'; end; 4: begin ExpClass := TDBGridEhExportAsRTF; yy := 'rtf'; end; 5: begin ExpClass := TDBGridEhExportAsText; yy := 'txt'; end; else ExpClass := nil; yy := ''; end; if ExpClass <> nil then begin if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <> UpperCase(yy) then SaveDialog1.FileName := SaveDialog1.FileName + '.' + yy; SaveDBGridEhToExportFile(ExpClass,DBGridEh1,SaveDialog1.FileName,True);//其false时,为局部数据 //导出文件名及保存的路径来自SaveDialog1.FileName，即文件保存控件激活时会叫你选择保存的目录并让你录入文件名 showmessage('数据导入成功！'); end; end;

dbgrideh 控件是需要与数据源相联的，这种情况下，建议你可以用个adoconnection 连接 excel文件，再用个 query 组件取得数据，将 dbgrideh 控件数据源与 query 的 source 组件连接。