求助关于FoxPro 8.0与excel 11的

ennuiliu

我有一段现有的FoxPro 3.0和excel 8.0 程式，我想升为FoxPro 8.0与excel 11.0，我改了，就是不行．
代码如下：
wait wind '' timeout 1
oleapp = getObject(M_打印文件)　&&打开Excel文件
oleapp.application.visible = .F.
oleapp.application.windows(标题).Visible = .T.    ＆＆ 这地方出错，OLE error code 0x8002000b:invaild index　

oleApp.application.cells(2,1).value = 日期 ＆＆ 这地方也出错，Unkown com status code[/COLOR]

sele 1
go top
do while .not.eof()
     i=1
     do while i<=M_栏数
       j=right('00'+alltrim(str(i)),2)
           oleApp.application.cells(recno()+5,i).value= v&j
           i=i+1
      endd
      skip
endd
oleapp.application.ActiveWindow.SelectedSheets.PrintOut
oleapp.application.DisplayAlerts  = .f.
oleapp.application.quit
thisform.release
retu

在FoxPro 3.0和excel 8.0 中没错，在为FoxPro 8.0与excel 11.0就出上面的错误，请高手帮改一下，多谢．