大家好：
最近做的一個(gè)軟件有一個(gè)導(dǎo)出EXCEL文件功能，一直以來用得不錯(cuò)，可是最近對(duì)軟件做了一些小的修改后，導(dǎo)出EXCEL卻出現(xiàn)錯(cuò)誤，具體提示“OLE錯(cuò)誤碼0X800a03ec:未知的com狀態(tài)代碼”。
我的軟件做的修改僅是在表單中加了OLE的時(shí)間控件，和單選按鈕。其他沒有修改的表單，導(dǎo)出EXCEL功能依然運(yùn)行正常！
我在網(wǎng)上查看了一些關(guān)于此問題的答案，但沒有找到我的問題所在。我覺得是在表單中加入OLE控件后出現(xiàn)的問題，所以應(yīng)該是那個(gè)控件的原因，希望各位老師給予幫助。謝先！！
注：該表單導(dǎo)出EXCEL代碼如下（其他表單從**循環(huán)生成表頭**開始往下代碼全部一致，沒有出現(xiàn)錯(cuò)誤）
public ag
SELECT computerdoc
nCount=AFIELDS(aArray)
eole=createobject("excel.application") &&建立EXCEL對(duì)象
eole.workbooks.add
eole.worksheets("sheet1").Activate
eole.activesheet.pagesetup.orientation=2 &&設(shè)置頁(yè)面為橫向
eole.cells(1,1).value="計(jì)算機(jī)設(shè)備檔案明細(xì)表" &&給單元格賦值
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 &&水平居中
****************************循環(huán)生成表頭*******************************
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
****************************生成表內(nèi)容*********************************
SELECT computerdoc
nRow=3
SCAN
FOR nColumn=1 to nCount-1
cField=aArray(nColumn,1)
eole.Cells(nRow,nColumn).value=&cField （跟蹤到此行，出現(xiàn)錯(cuò)誤） ENDFOR
nRow=nRow+1
ENDSCAN
********************************劃表格線*******************************
eole.range("A2:"+to26(nCount-1)+ALLTRIM(STR(nRow-1))).borders.linestyle=1 &&細(xì)線
eole.range("A2:"+to26(nCount-1)+ALLTRIM(STR(nRow-1))).borders.Weight=2 &&線的粗細(xì)
eole.Activesheet.columns.autofit &&當(dāng)前表各列最適合的列寬
eole.visible=.t. |
|
