大家好：
最近做的一个软件有一个导出EXCEL文件功能，一直以来用得不错，可是最近对软件做了一些小的修改后，导出EXCEL却出现错误，具体提示“OLE错误码0X800a03ec:未知的com状态代码”。
我的软件做的修改仅是在表单中加了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 （跟踪到此行，出现错误） 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. |
|
