在用VFP对Excel进行操作中，如果Excel处于忙碌状态（如单元格处于活动状态），就会出现“...程序正在忙碌中，因此该操作无法完成。请选择切换至命令，然后更正问题。”的提示，如何判断通过VFP打开的Excel是否处于“忙碌”状态？如果无法判断，如何屏蔽这个提示？

[此贴子已经被作者于2022-7-13 10:18编辑过]

我试了一下：
oExcel=Createobject("Excel.application")
oExcel.Workbooks.Add
oExcel.Visible=.T.
oExcel.ActiveSheet.Range('A1').Select   &&单元格激活时，这句出现提示：由于"Microsoft Excel - Book1"程序正在忙碌中，因此该操作无法完成。请选择”切换至“命令，然后更正问题。

?_vfp.OLERequestPendingTimeout   &&返回5000
?_vfp.OLEServerBusyTimeout       &&返回10000
?_vfp.OLEServerBusyRaiseError    &&返回.F.

求详解，谢谢！

[此贴子已经被作者于2022-7-13 12:58编辑过]

还是不懂，我这样设了之后，还是显示忙碌消息：
_vfp.OLERequestPendingTimeout=0

问题解决了！谢谢！！！
oExcel=Createobject("Excel.application")
oExcel.Workbooks.Add
oExcel.Visible=.T.
_vfp.OLEServerBusyRaiseError=.t.
WAIT WINDOW '等待过程中激活Excel表中的一个单元格'
oExcel.ActiveSheet.Range('A1').Select

oExcel=Createobject("Excel.application")
oExcel.Workbooks.Add
oExcel.Visible=.T.
_vfp.OLEServerBusyRaiseError=.t.  &&如果不加这一句，程序暂停时双击激活Excel一个单元格，再继续程序运行，过一会儿（大约几秒种）就有问题了。
WAIT WINDOW '等待过程中激活Excel表中的一个单元格'
oExcel.ActiveSheet.Range('A1').Select

在csyx的帮助下，几经周折问题基本解决，谢谢吹水版主的关注！