由于DbgridEh 导出 Excel 如果字段长度超过255会截断,所以必须换一种方法来导出,百度 谷歌 看了上百帖,都是有这句:
xlApp := CreateOleObject('Excel.Application');
由于这句代码是要求 客户的电脑上必须有 Office 才行,利用的是OLE技术;
中国的市场是客户电脑上没有Office 但是有WPS,所以带上面那句的代码 都不行,看了很多帖子,发现了一贴很强:
http://blog.sina.com.cn/s/blog_4a8552f80100hee8.html
再客户电脑上没有OFFICE的情况下 除了利用dbgrideh的导出方法,又多了一种导出的方法。代码如下:
另外这里说下dbgrideh 的导出excel,它有两种方式:
1. 客户电脑上有没有Office 都可以,缺陷是 当字段长度 超过255后,会被截断。
SaveDBGridEhToExportFile(TDBGridEhExportAsXLS,TopExportExcelShow,top_file_name,True);
2.要求客户端电脑上必须有Office,实际是 他内部是调用了CreateOleObject('Excel.Application');注意OLE
SaveDBGridEhToExportFile(TDBGridEhExportAsOLEXLS,TopExportExcelShow,top_file_name,True);
新型方法代码如下:
procedure TfrmExportExcel.Excel1Click(Sender: TObject); var MyList: TStringList; MyStr,top_file_name: string; I: Integer; MySaveDialog: TSaveDialog; begin MyList := TStringList.Create; MySaveDialog := TSaveDialog.Create(nil); try //----------------------------- //初始化 MySaveDialog.Filter := 'Excel|*.xls'; MyStr:=''; //----------------------------- //选择文件 if MySaveDialog.Execute then begin top_file_name := MySaveDialog.FileName+'.xls'; end else begin ShowMessage('导出失败'); Exit; end; //----------------------------- //导出表 frmClientDm.ExportExcelShowAdq.DisableControls; for I := 0 to frmClientDm.ExportExcelShowAdq.FieldCount-1 do begin MyStr := MyStr+frmClientDm.ExportExcelShowAdq.Fields[I].DisplayLabel + Char(9); Application.ProcessMessages; end; MyStr := MyStr + #13; frmClientDm.ExportExcelShowAdq.First; while not(frmClientDm.ExportExcelShowAdq.Eof) do begin for I := 0 to frmClientDm.ExportExcelShowAdq.FieldCount-1 do begin MyStr := MyStr + frmClientDm.ExportExcelShowAdq.Fields[I].AsString + Char(9); end; MyStr := MyStr + #13; frmClientDm.ExportExcelShowAdq.Next; Application.ProcessMessages; end; //回到原点 frmClientDm.ExportExcelShowAdq.First; frmClientDm.ExportExcelShowAdq.EnableControls; MyList.Add(MyStr); MyList.SaveToFile(top_file_name); //----------------------------- //提示导出成功 ShowMessage('导出订单表成功'); finally MyList.Free; MySaveDialog.Free; end; end;
本文来自博客园,作者:del88,转载请注明原文链接:https://www.cnblogs.com/del88/p/3897853.html