EhLib 导入文件wps打开变成空白的

我用下面这段代码导出Grideh的内容到一个xls表格中，便用office打开没有问题，可用wps打开就变成空白了，不知道有没有什么办法可以解决。    title := vartostr(MonthCmb.Text) + '-' + FormatDateTime('yyyymmddhhmm', now);
    SaveDialog1.FileName := title;
    if SaveDialog1.Execute then
    begin
      case SaveDialog1.FilterIndex of
        1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; 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 := TDBGridEhExportAsText; Ext := 'txt'; 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, ProdGrid, SaveDialog1.FileName, True);
      end;
    end;