搜索了网络很多资源,都无法把stringgrid上的数据导出成一个excel文件?太难了!
好多介绍说需要安装一些第三方控件。
比如FlexCel这个控件,下载资源很少,即便下载了安装后,都没有像以下图片显示的引入安装路径。更加没有图中的三个控件。论坛里还提到XLSReadWriteII 这个控件,下载了好多版本都安装不上,这个控件安装似乎很难!
这个问题一直困扰着,请有经验的帮忙一下,谢谢!
好多介绍说需要安装一些第三方控件。
比如FlexCel这个控件,下载资源很少,即便下载了安装后,都没有像以下图片显示的引入安装路径。更加没有图中的三个控件。论坛里还提到XLSReadWriteII 这个控件,下载了好多版本都安装不上,这个控件安装似乎很难!
这个问题一直困扰着,请有经验的帮忙一下,谢谢!
解决方案 »
- 如何觖Delphi数据集参数中文字符截断问题?
- 要在程序中实现传送邮件的功能,把数据发送到指定邮箱和接收,怎么做
- 碰到一个难题,哪位兄知道程序调用画图工具的时候同时加载进图片的!
- win2000环境下,普通用户怎样取得修改系统时间的权限?(编程怎样实现)
- 移动后再定位回去时位置变了?
- 那位有可以播放MPEG4格式影片的控件?
- delphi7 在创建数据库时按钮不能显示
- 请问谁有ic卡类的资料或原程序什么的啊???
- 介绍一本用DELPHI做OPENGL的书
- 打印问题,怎样把ListView当中的内容打印出来!
- 模式窗口中CloseQuery事件无响应
- Tstringlist可以直接用在SQL中吗?
搜索"delphi 操作excel",一堆出来。
至于读StringGrid,这个简单吧
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的话还有更简单的方法,不用语句,靠控件就能实现。
链接: https://pan.baidu.com/s/16z0LBQxuGztnLiY0e1prPg 提取码: sibz