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的话还有更简单的方法,不用语句,靠控件就能实现。
查看全文
相关阅读:
低级格式化
winhex恢复误GHOST系统造成的数据丢失
共享进程空间内容(修的进程空间代码/HOOK)
WinDbg 入门教程
遍历删除当前目录下所有文件
VC/MFC非模态对话框实例
经典SQL语句
C++实现系统服务暂停、停止、启动
汇编中的管道操作方法
Dll2lib探究
原文地址:https://www.cnblogs.com/maweiwei/p/12201828.html
最新文章
Oracle DB Link创建方法
LoadPicture函数
【转】MAPGIS加密狗的安装与使用
MAPX更新要素属性另类方法
【转】自动激活 ActiveX 控件
点到直线的距离
【转】在ASP.NET中使用非托管COM组件
【转】获取图层字段的唯一值集合(ArcEngine)
Oracle查询类存储过程调用示例
测绘知识综合词典
热门文章
PL/SQL教程
Oracle9i补丁集安装指南
oracle9i/10g安装包与补丁大全
【转】关于Oracle 9i或9i以上版本客户端连接Oracle 8i及8i版本以下服务器端中文字符乱码的解决办法
IIS配置与ServletExec安装
C# ToString总结
【转载】XP下安装IIS6.0的办法
【转】各linux版本比较(3篇集合)
WinHex进行取证调查
CPU接口类型
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的话还有更简单的方法,不用语句,靠控件就能实现。