在delphi中怎样把数据导入excel中?

hzxrh 2004-02-19 07:31:37
如题
...全文
64 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
eppen 2004-03-30
  • 打赏
  • 举报
回复
对ehlib
procedure TfrmShipSchedule.Button3Click(Sender: TObject);
var ExpClass: TDBGridEhExportClass;
Ext: string;
begin
//the default exported filename
SaveDialog1.FileName := 'shipSchedule';
//if (ActiveControl is TDBGridEh) then
if not self.Query1.Eof then
if SaveDialog1.Execute then
begin
case SaveDialog1.FilterIndex of
2: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
5: 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;
self.DBGridEh1.SelectedRows.SelectAll;
SaveDBGridEhToExportFile(ExpClass, TDBGridEh(self.DBGridEh1),
SaveDialog1.FileName, False);
DBGridEh1.SelectedRows.Clear;
end;
end;
end;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧