大家好：
    最近做的一个软件有一个导出EXCEL文件功能，一直以来用得不错，可是最近对软件做了一些小的修改后，导出EXCEL却出现错误，具体提示“[color=800000]OLE错误码0X800a03ec:未知的com状态代码[/color]”。
    我的软件做的修改仅是在表单中加了OLE的时间控件，和单选按钮。其他没有修改的表单，导出EXCEL功能依然运行正常！
    我在网上查看了一些关于此问题的答案，但没有找到我的问题所在。我觉得是在表单中加入OLE控件后出现的问题，所以应该是那个控件的原因，希望各位老师给予帮助。谢先！！


注：该表单导出EXCEL代码如下（其他表单从**循环生成表头**开始往下代码全部一致，没有出现错误）


public ag
SELECT computerdoc
nCount=AFIELDS(aArray)
            eole=createobject("excel.application")            &&建立EXCEL对象
            eole.workbooks.add
            eole.worksheets("sheet1").Activate
            eole.activesheet.pagesetup.orientation=2              &&设置页面为横向
            eole.cells(1,1).value="计算机设备档案明细表"      &&给单元格赋值
            eole.cells(1,1).font.name="黑体"
            eole.cells(1,1).font.size=18
            eole.range(to26(1)+"1:"+to26(nCount-1)+"1").merge                       &&合并单元格
            eole.activesheet.rows(1).horizontalalignment=3                     &&水平居中
****************************循环生成表头*******************************
                FOR i=1 to nCount-1
                  eole.Activesheet.columns(i).font.Size=9
                  eole.Cells(2,i).value=aArray(i,1)
                  eole.Cells(2,i).HorizontalAlignment=3
                ENDFOR
****************************生成表内容*********************************
                SELECT computerdoc
                nRow=3
                SCAN
                  FOR nColumn=1 to nCount-1
                      cField=aArray(nColumn,1)
                      eole.Cells(nRow,nColumn).value=&cField     [color=800000]（跟踪到此行，出现错误）[/color]                    ENDFOR
                nRow=nRow+1
                ENDSCAN
********************************划表格线*******************************
            eole.range("A2:"+to26(nCount-1)+ALLTRIM(STR(nRow-1))).borders.linestyle=1    &&细线
            eole.range("A2:"+to26(nCount-1)+ALLTRIM(STR(nRow-1))).borders.Weight=2       &&线的粗细
            eole.Activesheet.columns.autofit         &&当前表各列最适合的列宽
            eole.visible=.t.