zoukankan
html css js c++ java
stringgrid to execl
NativeExcel
procedure Tsave.CopySGDataToExcel(Target: TStringGrid;FileName: string);
var
iCount, jCount: Integer;
XLApp: Variant;
Sheet: Variant;
begin
Screen.Cursor := crHourGlass;
if not VarIsEmpty(XLApp) then
begin
XLApp.DisplayAlerts := False;
XLApp.Quit;
VarClear(XLApp);
end;
//通过ole创建Excel对象
try
XLApp := CreateOleObject('Excel.Application');
except
Screen.Cursor := crDefault;
Exit;
end;
SaveDialog1.DefaultExt := 'xls';
SaveDialog1.FileName := FileName;XLApp.WorkBooks.Add; //你要把数据放在那里啊,先生成个文件在e:1.xls
XLApp.WorkBooks[1].WorkSheets[1].Name := 'sheet1';
Sheet := XLApp.Workbooks[1].WorkSheets['sheet1'];
Target.Row := 0;
for iCount := 0 to Target.RowCount - 1 do
begin
for jCount := 0 to Target.ColCount - 1 do
Sheet.cells[iCount + 1, jCount + 1] := Target.Cells[jCount,iCount];
Target.Row := iCount;
end;
XLApp.ActiveWorkbook.SaveAs(FileName:=FileName);
Screen.Cursor := crDefault;
XLApp.ActiveWorkbook.Close;
end;
上面这个方法刚好是stringgrid导出Excel的方法,我自己用过的。
当然你要是用advstringgrid的话还有更简单的方法,不用语句,靠控件就能实现。
查看全文
相关阅读:
学习路径_Linux
学习路径_stm32
大小端判断
linux下dbg
vs code使用技巧实际总结
书单(updating...)
[转]单点登录原理
[转]nginx基本配置与参数说明
[转]linux 网络配置 (配置/etc/sysconfig/network-scripts/ifcfg-ethx)
[转]nginx的安装与使用
原文地址:https://www.cnblogs.com/maweiwei/p/12201828.html
最新文章
【mybatis】mybatis分页拦截器搭配bootstrap-table使用
【前端】使用layui、layer父子frame传值
【技巧】使用xshell和xftp连接centos连接配置
【插件篇】前段bootstrap-table-treegrid试手,解决无法显示树形列表或者图标不显示问题。
【前端】vue2.x 配合 bootstrapTable 动态添加元素和绑定点击事件,事件无效 解决
【easyUI】取消easyui行点击选中事件,智能通过勾选checkbox才能选中行
文件命名规则
修改标题
手机自适应
为什么上传文件的表单里面要加一个属性enctype=multipart/form-data?
热门文章
根路径
php.ini修改php上传文件大小限制的方法详解
web服务器和ftp服务器有什么区别
php://input
file_get_contents()函数
api接口验证shal()
rufus——一款小而精的系统启动盘生成软件介绍
ubuntu以root自动登录的配置方式
ubuntu网络接口(网口)配置
【原创】技术面试聊点啥
Copyright © 2011-2022 走看看
var
iCount, jCount: Integer;
XLApp: Variant;
Sheet: Variant;
begin
Screen.Cursor := crHourGlass;
if not VarIsEmpty(XLApp) then
begin
XLApp.DisplayAlerts := False;
XLApp.Quit;
VarClear(XLApp);
end;
//通过ole创建Excel对象
try
XLApp := CreateOleObject('Excel.Application');
except
Screen.Cursor := crDefault;
Exit;
end;
SaveDialog1.DefaultExt := 'xls';
SaveDialog1.FileName := FileName;XLApp.WorkBooks.Add; //你要把数据放在那里啊,先生成个文件在e:1.xls
XLApp.WorkBooks[1].WorkSheets[1].Name := 'sheet1';
Sheet := XLApp.Workbooks[1].WorkSheets['sheet1'];
Target.Row := 0;
for iCount := 0 to Target.RowCount - 1 do
begin
for jCount := 0 to Target.ColCount - 1 do
Sheet.cells[iCount + 1, jCount + 1] := Target.Cells[jCount,iCount];
Target.Row := iCount;
end;
XLApp.ActiveWorkbook.SaveAs(FileName:=FileName);
Screen.Cursor := crDefault;
XLApp.ActiveWorkbook.Close;
end;
当然你要是用advstringgrid的话还有更简单的方法,不用语句,靠控件就能实现。