VFP屏蔽Excel自动重新计算失败解决思路

VFP屏蔽Excel自动重新计算失败
各位前辈、高手：
XP下试图以VFP9屏蔽Excel2003的自动重新计算,代码如下:

xlsApp = createobject( 'excel.application')

xlsApp.calculation = xlCalculationManual

xlCalculationManual已预先定义,结果弹出如下错误：


茫然无措，祈求帮助！

------解决方案--------------------
是不是工作簿数量为 0？
先执行 xlsApp.Workbooks.Add()，再设置试试
同时也检查下 ActiveWorkbook.Sheets.Count 的值
------解决方案--------------------
_ole_excel = CreateObject("Excel.Application") 
_ole_excel.VISIBLE=.f.
If _ole_excel.Workbooks.Count < 1
   _ole_excel.Workbooks.Add()
EndIf
_ole_excel.Calculation = xlCalculationManual
_ole_excel.Visible = .t.
.....
------解决方案--------------------
xlsApp = createobject( 'excel.application')
* 这之间应该有一个打开excel文件或新建一个空文件的代码，打开之后再设置 calculation
xlsApp.calculation = xlCalculationManual
------解决方案--------------------
 xlCalculationManual 是什麼？
------解决方案--------------------
Const xlCalculationManual = -4135 (&HFFFFEFD9)
    Excel.XlCalculation 的成员