excel报表问题

[bbsfly1239]

var ExcelApp,ExcelBook:Variant;
    col,row:integer;
    fLevelNode,sLevelNode,tLevelNode:TcxTreeListNode;
begin
  try
    ExcelApp:=CreateOleObject('Excel.Application');
  except
    showmessage('系统没有安装Microsoft   Excel');
    exit;
  end;
  ExcelBook:=ExcelApp.WorkBooks.Add;
  ExcelApp.WorkSheets[1].Activate;
  if cxTreeList.Count>0 then
  begin
    row:=0;
    fLevelNode:=cxTreeList.TopNode;
    while fLevelNode<>nil do
    begin
      sLevelNode:=fLevelNode.getFirstChild;
      while sLevelNode<>nil do
      begin
        tLevelNode:=sLevelNode.getFirstChild;
        while tLevelNode<>nil do
        begin
          for col:=0 to cxTreeList.ColumnCount-1  do
          begin
            ExcelApp.Cells[row,col].Value:=cxTreeList.Columns[col].DisplayTexts[tLevelNode];//这句报错
          end;
          tLevelNode:=tLevelNode.getNextSibling;
          inc(row);
        end;
        sLevelNode:=sLevelNode.getNextSibling;
      end;
    fLevelNode:=fLevelNode.getNextSibling;
    end;
  end;
  ExcelBook.SaveAS(ExtractFilePath(application.ExeName)+'数据展示.xls');
end；

我现在是要遍历3级节点的数据，然后输出到EXCEL中，但是加注释的那句老报错，哪位大虾给点指点。

[浩南_哥]

ExcelApp.Cells[row,col].Value:=cxTreeList.Columns[col].DisplayTexts[tLevelNode];//这句报错
是赋值出错？还是cxTreeList.Columns[col].DisplayTexts[tLevelNode]取值出错？？

[bbsfly1239]

值能取到，之前测试过了

[浩南_哥]

要不你可以试试
先将cxTreeList.Columns[col].DisplayTexts[tLevelNode]赋值给一个String变量
然后再将String变量赋值给ExcelApp.Cells[row,col].Value。

[bbsfly1239]

我就是这么测试的。。

[浩南_哥]

。。。。。。String变量赋值给Excel这样也出错？？那还是坐等牛人吧。
PS:是不是Excel的单元格设置了特殊的格式

[风之谷]

错误信息是什么？

[bbsfly1239]

OLE error 800A03EC

[浩南_哥]

http://topic.csdn.net/u/20110328/09/c9745779-f4ad-475a-a5c1-8d6c01eb8839.html
可以看先这个帖子#13的回复

var
AValue, APath: String;
begin
    For I := 0 To cxGridDBTableView2.ViewData.RowCount - 1 Do
      Begin
        If Not cxGridDBTableView2.ViewData.Rows[i].ExpandOnDblClick Then
          Begin
            For n := 1 To cxGridDBTableView2.VisibleColumnCount  Do
              Begin
                AValue := String(cxGridDBTableView2.ViewData.Rows[i].Values[n]);
                Try
                  ExcelApp.Cells[ALines, n].Value := AValue;
                Except

                End;
              End;
          End;
        ALines := ALines + 1;
      End;
end;

[bbsfly1239]

晕，搞定了，原来excel不能从cells[0,0]开始添加数据。好了，结贴了

[风之谷]

ExcelApp.Cells[row,col].Value 错误肯定是这里的

看一下 ROW COL的值是多少，再看下 EXCEL 的行，列 起始是0还是1

有可能是你定义到无效的行，列了