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

shangxy

procedure TMainForm.Button1Click(Sender: TObject);
var downName :string;
    tempoleContainer1: TOleContainer;
begin
downName:='c:\test.xls';

YWXX1.TSJWG1(DocViewYWXX1_SJWG1.Doc).DataGrid.SaveToXLS(downName,True);



    tempoleContainer1:=TOleContainer.Create(nil);
    tempoleContainer1.Parent:=self.Panel1;
    tempoleContainer1.Width :=500;
    tempoleContainer1.Height :=500;
    tempoleContainer1.AllowActiveDoc :=false;
    tempoleContainer1.AllowInPlace :=false;
    tempoleContainer1.AutoActivate :=tAutoActivate.aaManual;
    tempoleContainer1.CreateObjectFromFile(downName,false);

    tempoleContainer1.DoVerb (OleCtnrs.ovOpen);//打开附件
    Borland.Delphi.Windows.DeleteFile(downName);  //删除附件
end;

这个是我按照你写的代码没有问题的，你只这样操作DataGrid1.SaveToXLS(downName,true);看看存下来的excel打开是不是好的呢？

newjack

不打开，直接保存，情况也是一样的

shangxy

这个是我存下来的文件，你打开看看有没有红色？

newjack

你发给我的这个在我这边打开可以，但我就不懂为什么我们这边导出的就不行了
还有个比较严重的问题，当单元格的字符数超过256，就导出不了了，提示读取文件错误

shangxy

楼主使用的是那个版本？字段类型是什么？