VFP障蔽Excel自动重新计算失败

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

茫然无措，祈求帮助！
                                                                            
[解决办法]
本帖最后由 dkfdtf 于 2013-07-07 11:55:00 编辑            是不是工作簿数量为 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 的成员