起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 244|回复: 14

DataGrid导出的excel不能标红色**

[复制链接]
发表于 2008-9-5 11:38:20 | 显示全部楼层 |阅读模式
通过DataGrid1.SaveToXLS(downName,true)函数导出的excel字体颜色选择框缺少红色,一般的excel都是有的
回复

使用道具 举报

发表于 2008-9-5 11:53:13 | 显示全部楼层
1、true参数 是指 True代表导出所有记录,False代表只导出选中记录(没有选中的不导)。
2、不清楚你具体指的是哪里的颜色,能帖个图出来看看吗?我这里是有红色的
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-8 15:42:56 | 显示全部楼层
区别是这样的

1.gif

11.39 KB, 下载次数: 123

回复 支持 反对

使用道具 举报

发表于 2008-9-8 16:05:28 | 显示全部楼层
我这里也是有的呀,要不你换一个机器试试呢?
回复 支持 反对

使用道具 举报

发表于 2008-9-8 16:05:29 | 显示全部楼层
与是否导出无关,应该是你的excel有问题了。
我用导出的excel同样可以设置红色字体

1.gif

59.89 KB, 下载次数: 119

回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-9 08:33:55 | 显示全部楼层
已经换过了,还是存在同样的问题,是不是跟版本有关,我用的office 2003的
回复 支持 反对

使用道具 举报

发表于 2008-9-9 09:00:08 | 显示全部楼层
我的也是office2003的呀。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-9 09:51:50 | 显示全部楼层
那就不清楚了,我这边换了几台机子都是存在这个问题,客户那边也反映有这个问题
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-9 09:53:48 | 显示全部楼层
我把完整的导出代码给你看一下:
downName:='c:\'+ZYJ_XTCZHS.TZYJ_XTCZHS.GetDateBaseTime2('yyyy-mm-ddhh24mi')+'.xls';
   case pagecontrol1.ActivePageIndex of
     0ataGrid1.SaveToXLS(downName,true);
     1ataGrid2.SaveToXLS(downName,true);
     2ataGrid3.SaveToXLS(downName,true);
   end;

    tempoleContainer1:=TOleContainer.Create(nil);
    tempoleContainer1.Parent:=self.Panel2;
    tempoleContainer1.AllowActiveDoc :=false;
    tempoleContainer1.AllowInPlace :=false;
    tempoleContainer1.AutoActivate :=tAutoActivate.aaManual;
    tempoleContainer1.CreateObjectFromFile(downName,false);
    tempoleContainer1.DoVerb (OleCtnrs.ovOpen);//打开附件
    Borland.Delphi.Windows.DeleteFile(downName);  //删除附件
回复 支持 反对

使用道具 举报

发表于 2008-9-9 10:16:14 | 显示全部楼层
我也是用的savetoxls方法,没有问题的。

楼主,你是用olecontainer打开的还是直接双击文件打开的?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-22 06:54 , Processed in 0.043660 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表