delphi dbgrideh导入excel 中
答案:3 悬赏:70 手机版
解决时间 2021-02-06 12:44
- 提问者网友:留有余香
- 2021-02-05 19:43
要求:1、要保存以前的数据 2、保存的路径在代码中要注明,不再更改。不显示保存的过程。
最佳答案
- 五星知识达人网友:不甚了了
- 2021-02-05 20:28
SaveDBGridEhToExportFile(TDBGridEhExportAsXls,DBGridEh1,sReceiptFileName,true);
全部回答
- 1楼网友:人间朝暮
- 2021-02-05 20:58
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;
- 2楼网友:往事隔山水
- 2021-02-05 20:50
dbgrideh 控件是需要与数据源相联的,这种情况下,建议你可以用个adoconnection 连接 excel文件,再用个 query 组件取得数据,将 dbgrideh 控件数据源与 query 的 source 组件连接。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯