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的话还有更简单的方法,不用语句,靠控件就能实现。
查看全文
相关阅读:
CSS3选择器:nth-child和:nth-of-type的差异
H5 设计尺寸
笔试题的各种trick
OpenCV2.4.9 + VS2012 + win10 配置
四种IO模型
深信服笔试
哈希表
TimeOut Error :因为远程服务器关闭导致mnist数据集不能通过input_data下载下来
Http协议对格式、请求头、方法
GDB调试
原文地址:https://www.cnblogs.com/maweiwei/p/12201828.html
最新文章
webdriver高级应用- 右键另存为下载文件
webdriver高级应用- 无人工干预地自动上传附件
数据结构 速记篇
Struts2 流程原理
OGNL
Java Web Tomcat服务器
Java 序列化与反序列化
Java 代码运行顺序
Java Web ClassLoader工作机制
Java Web DNS域名解析
热门文章
Java super与this
Java 可变参数列表
typescript 创建二维数组
去除弹窗自带url提示
vue 运行脚手架报错
canvas addHitRegion()
calc
vue 项目实战之小坑坑
gulp+babel 实时转es6
mac 建立 .babellrc 格式文件
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的话还有更简单的方法,不用语句,靠控件就能实现。