dbgrideh 控件怎么将指定单元格数据导出到EXCEL中指定工作表的指定位置

我是小菜鸥鸟 2017-09-10 02:43:37

请问dbgrideh 控件怎么将指定单元格数据导出到EXCEL中指定工作表的指定位置？

...全文

155 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

lyhoo163 2017-09-11

打赏
举报

回复

1、通过控件打开EXCEL表； 2、指定位置 xlsObj.Sheets[0].AsInteger[j,iRow] := FieldByName(ADBGrid.VisibleColumns[j].FieldName).AsInteger;

特点：一、不需安装Excel即可导出。二、有进度条。三、最多可以导出多少条，我没试，我试了5万条没有问题，时间也就是只需1-5分钟（我电脑较慢）。四、需安装ehlib组件。使用方法(注：别忘了uses DBGridToExcel;)：procedure TForm1.btn2Click(Sender: TObject);var DBGridEhToExcel: TDBGridEhToExcel; ExcelFileName: string;begin DBGridEhToExcel := TDBGridEhToExcel.Create(nil); try DBGridEhToExcel.TitleName := '导出测试'; DBGridEhToExcel.BeginDate := '开始日期：2005-07-01'; DBGridEhToExcel.EndDate := '结束日期：2005-07-18'; DBGridEhToExcel.UserName := '系统管理员'; DBGridEhToExcel.DBGridEh := DBGridEh1; DBGridEhToExcel.ShowProgress := True; if ExcelFileName = '' then begin ExcelFileName := 'c:\1.xls'; with TSaveDialog.Create(nil) do begin Filter := 'Microsoft Excel xls文件|*.xls'; DefaultExt := 'xls'; if not Execute then Exit else ExcelFileName := FileName; end; end; DBGridToExcel.FileName := ExcelFileName; DBGridEhToExcel.ExportToExcel; finally DBGridEhToExcel.Free; end;end;

dbgrideh导出到excel,数据库导出到excel

DBGridEh导出到EXCEL函数，能导出多表头

使用XLSReadWriteII5控件比comobj速度快不用依赖excel

可以很方便的将dbgrideh转EXCEL控件

5,386

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章