两天了着实找不到dbgrideh导出excel乱码的原因

两天了实在找不到dbgrideh导出excel乱码的原因
SaveDBGridEhToExportFile(ExpClass,DbgridEh1,FSaveDialog.FileName,true);导出的excel打开后中文字符都是乱码，请问大家这个问题是dbgrideh自带的bug吗？是不是没有解决办法？

[解决办法]
另外.你是给客户用的吗?


EH 可以直接 ctrl+c  复制出来

然后打开个 excel 再 ctrl + v
[解决办法]
我用的是D7，ehlib 5.03，没有楼主说的问题。

procedure TForm1.BitBtn7Click(Sender: TObject);
  var   ExpClass:TDBGridEhExportClass;
          Ext:String;
  begin
          SaveDialog1.FileName   :=   '';
          if   SaveDialog1.Execute   then
          begin
              case   SaveDialog1.FilterIndex   of
                  1:   begin   ExpClass   :=   TDBGridEhExportAsText;   Ext   :=   'txt';   end;
                  2:   begin   ExpClass   :=   TDBGridEhExportAsCSV;   Ext   :=   'csv';   end;
                  3:   begin   ExpClass   :=   TDBGridEhExportAsHTML;   Ext   :=   'htm';   end;
                  4:   begin   ExpClass   :=   TDBGridEhExportAsRTF;   Ext   :=   'rtf';   end;
                  5:   begin   ExpClass   :=   TDBGridEhExportAsXLS;   Ext   :=   'xls';   end;
              else
                  ExpClass   :=   nil;   Ext   :=   '';
              end;
              if   ExpClass   <>   nil   then
              begin
                  if   UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3))   <>
                        UpperCase(Ext)   then
                      SaveDialog1.FileName   :=   SaveDialog1.FileName   +   '.'   +   Ext; 
 
                  SaveDBGridEhToExportFile(ExpClass,dbgrideh3,
                            SaveDialog1.FileName,true);   
              end;
          end;
end;