如何用DBGridEh导出到Excel中？

Question

我下载了Ehlib，DclEhLib70.dpk安装没问题，EhLib70.dpk安装不上去。提示EhLib70.dpk is not a design time package。请问如何解决啊？另外，请问如何使用DBGridEh导出Excel表？听说这个控件导Excel很方便，结果确不会用：（
诚心求教！

Answer 1

procedure TFrmMain.BitBtnSaveAsClick(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,self.DBGridEhGZB,SaveDialog1.FileName,False);
      ShowMessage('文件成功导出');
      end;
    end;
end;

Answer 2

TDBGridEhExportClass
TDBGridEhExportAsText等类都提示不能识别！
需要use什么吗？还是因为EhLib70.dpk 安装失败造成的？

Answer 3

EhLib70.dpk 安装失败的问题，各位没有遇到吗？