社区
Delphi
帖子详情
在delphi中怎样把数据导入excel中?
hzxrh
2004-02-19 07:31:37
如题
...全文
64
1
打赏
收藏
在delphi中怎样把数据导入excel中?
如题
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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;
delphi
中
把
excel
数据
导入
access表
在
delphi
软件
中
实现将
excel
数据
表
导入
access
Delphi
中
从
Excel
导入
数据
的通用方法
Delphi
中
从
Excel
导入
数据
的通用方法
Delphi
中
从
Excel
导入
数据
的通用方法
Delphi
XE10零基础实战快速入门
通过课堂上一个一个的实战例子,演示
Delphi
XE10的用法,最后通过一个完整的通讯录程序,让学员初步掌握软件开发的全部流程 让零基础学员快速入门
Delphi
编程,快速掌握
Delphi
的使用方法,并能够制作出自己的软件来。...
Delphi
中
将
Excel
数据
导入
到
数据
库
中
Delphi
Excel
数据
导入
到
数据
库 需要 uses ComObj; 具体使用方法在文档
中
有说明
Delphi
编程将
数据
库
数据
快速
导入
Excel
(1).rar
Delphi
编程将
数据
库
数据
快速
导入
Excel
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章