delphi的stringgridgridview导出到excell特别慢怎么解决啊

来源：蜘蛛抓取(WebSpider) 时间：2015-03-07 11:28 标签： delphi导出excel2007
爱点delphibbs---用StringGrid怎么实现选择不连续的单元格(高手请进)
& 您现在的位置：
爱点delphibbs---用StringGrid怎么实现选择不连续的单元格(高手请进)
你感兴趣的相关主题
用StringGrid怎么实现选择不连续的单元格(高手请进)
遭到一个问题，客户要求在StringGrid中能够像Excel一样可以通过按下Ctrl+鼠标左键选择不连续的单元格。急急！！！！！！希望哪位高手解燃眉之急，如果第三方控件能实现该功能也可以，在线等待！
哈哈，我已经找到解决的方法了。[:D][:D][:D][:D][:D]怎么把stringgrid中的内容导出excel文档？？
[问题点数：0分]
怎么把stringgrid中的内容导出excel文档？？
[问题点数：0分]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2003年1月 Delphi大版内专家分月排行榜第二
2003年9月 Delphi大版内专家分月排行榜第三
2003年1月 Delphi大版内专家分月排行榜第二
2003年9月 Delphi大版内专家分月排行榜第三
2003年1月 Delphi大版内专家分月排行榜第二
2003年9月 Delphi大版内专家分月排行榜第三
2003年1月 Delphi大版内专家分月排行榜第二
2003年9月 Delphi大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。关于StringGrid 导出数据到EXecl（有大量数据）
[问题点数：100分，结帖人u]
关于StringGrid 导出数据到EXecl（有大量数据）
[问题点数：100分，结帖人u]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。stringgrid导出excel_delphi吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：10,912贴子：
stringgrid导出excel收藏
请教下：我在stringgrid里面有合并单元格，导出到excel里面的时候 就用了
Sheet.Cells[jCount + 1, iCount + 1] := Cells[iCount, jCount];把单元格里面的内容导出到excel里面了，但是合并的单元格却没有，要怎么把stringg里面已经合并了的单元格在导出excel的时候也显示成合并了的单元格啊？
不懂, 帮顶...
不知道这个对你来说有没有用
真喜欢用 EJUN Grid .. 这个是收费的,
免费也能用 不过有水印.
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或delphi excel导入stringgrid后时间格式转换有越界
![CSDN移动问答][1]excel导入stringgrid过程：
procedure TForm1.btn1Click(Sender: TObject);
ExcelApp,sheet:V
ExcelRowCount,ExcelcolCount,i,j,m,n,k:I
EclApp, WorkBook
if dlgOpen1.Execute then
EclApp := CreateOleObject ('Excel.Application');
WorkBook := CreateOleObject ('Excel.Sheet');
ShowMessage ('您的计算机上没有 Microsoft Excel!');
ExcelApp:=CreateOleObject ('Excel.Application');
//建立Excel对象
ExcelApp.WorkBooks.Open(dlgopen1.FileName);
//打开指定文件
ExcelApp.WorkSheets[1];
ExcelApp.Visible
//不显示Excel
ExcelRowCount
ExcelApp.WorkSheets[1].UsedRange.Rows.C
ExcelColCount
ExcelApp.WorkSheets[1].UsedRange.Columns.C
// showmessage(inttostr(ExcelColCount));
strngrd1.RowCount:= ExcelRowCount+1;
strngrd1.ColCount:=ExcelcolCount+1;
with strngrd1 do
for n:=0 to ExcelcolCount -1 do
if n&=ExcelcolCount then
Cells[n,0]:=IntToStr(n+1);
for k:=0 to ExcelRowCount do
if k&=ExcelRowCount then
Cells[0,k]:=IntToStr(k+1);
pb1.Visible:=T
pb1.Max:=ExcelRowCount* ExcelcolC
ExcelRowCount
ExcelColCount
Application.ProcessM
sheet.cells[i,j];
if LeftStr(Trim(sheet.cells[i,j]),1)='.' then
str1:='0'+
strngrd1.Cells[j,i] :=FormatDateTime('hh:mm:ss',FloatToDateTime(StrToFloat(Trim(str1))));;//这里做了转换
strngrd1.Cells[j,i]
pb1.Position:=m;
WBK.Close(SaveChanges
ShowMessage('表格导入完成');
导入excel表，时间栏结果：
23：45：23
请各位大仙帮助解决为谢！
其他相似问题
相关参考资料

我要回帖

更多关于 delphi导出excel2007 的文章

 

随机推荐