dbgrideh打印的报表结果如何导入到Execl中。

Question

dbgrideh打印的报表结果如何导入到Execl中。

Answer 1

uses DBGridEhImpExp;var ExpClass: TDBGridEhExportClass;
   Ext: String;
begin
   try
   begin
      SaveDialog1.FileName := '员工记录';
      LeaveDetail.Selection.SelectAll;
      if SaveDialog1.Execute then
      begin
         case SaveDialog1.FilterIndex of
         5: 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;
         1: 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, LeaveDetail, SaveDialog1.FileName, False);
         end;
      end;
   end;
except infomessage('导出失败！请检查...');
end;/LeaveDetail  为dbgrideh表格名