SMExportToExcel 用法

来源：百度知道编辑：UC知道时间：2024/05/12 07:12:33

怎样使用该控件将DBGridEh 中的数据用EXCEL格式导出？
或者如何将DBGridEh 中的数据用EXCEL格式导出方法？

uses DBGridEhImpExp;

var ExpClass:TDBGridEhExportClass;
Ext:String;
begin
SaveDialog1.FileName := strFileName
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 + '.'