ehlib中数据怎样导出为EXCEL和word?

Question

ehlib中数据怎样导出为EXCEL和word?望高手指点！！！

Answer 1

在demo里有演示阿，，不过我也没有明白是这么回事：( (我是菜鸟)，
procedure TFrmDateAnanles.N5Click(Sender: TObject);
var ExpClass:TDBGridEhExportClass;
    Ext:String;
begin
try
begin
   SaveDialog1.FileName := '日考勤数据分析';
  carddetail.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,carddetail, SaveDialog1.FileName,False);
      end;
    end;
  end ;
   except
   infomessage('导出失败！请检查...');
   end;
end;

Answer 2

忘了要 加上 use DBGridEhImpExp

Answer 3

carddetail 是那个dbgrideh 的名字

Answer 4

请问能不能导出为foxpro数据库？怎么导？