DBGridEh中的汉字多的数据列如何导出到execl中

如上图，DBGridEh中的“反馈内容”列导出到execl中，用以下两种方式，EXECL中显示的内容都不全，请问如何解决？
1、  xlreport1.XLSTemplate:=extractfilepath(paramstr(0))+'\客户投诉信息.xlsx';
  xlreport1.Report;
2、  SaveDBGridEHTOExportFile(TdbgridehEXportasxls,dbgrideh1, 'c:\查询结果.xls',true);
  showmessage('导出到c:\查询结果.xls完毕');}