我的VFP程序中多次会重复打开和关闭EXCEL表格，于是我想把打开EXCEL和关闭EXCEL的程序单独放在一个程序或者表单的过程中
需要的时候调用一下，调用的时候没有问题，但是接下来执行程序会出现如下的对话框出现这样的问题：
  
打开EXCEL的程序如下，也是我想重复引用的：
 public gc
    gc=""
    gc=GETFILE('xls,xlsx,mhtml')
    IF LEN(gc)>0   &&必须选择
   
            # DEFINE CON_FILE gc
            DECLARE INTEGER SendMessage IN Win32API Integer Hwnd,IntegeR Msg, Short WParam,Integer LPARAM
            * 创建 Excel 对象
            LOCAL oExcel,lErr,nHwnd
            WAIT WINDOW '正在创建 Excel 对象，请稍侯……' NOCLEAR NOWAIT
            TRY
                oExcel = CREATEOBJECT('Excel.Application')
            CATCH
                WAIT CLEAR
                MESSAGEBOX('你的微机上可能没有安装 Excel，无法创建 Excel 对象！',16,'提示')
                lErr = .t.
            ENDTRY
            IF lErr
                RETURN
            ENDIF

            * 打开 Excel 文件
            WAIT WINDOW '正在打开 Excel 文件，请稍侯……' NOCLEAR NOWAIT
            TRY
                oExcel.WorkBooks.Open(CON_FILE)
            CATCH
                WAIT CLEAR
                MESSAGEBOX('打开文件时出错！可能是本机的 Excel 版本太低或文件不存在。',48,'提示')
                lErr = .t.
                nHwnd = oExcel.Hwnd
                oExcel = NULL
                SendMessage(nHwnd,16,0,0)
            ENDTRY
            IF lErr
                RETURN
            ENDIF

            WAIT CLEAR
            oExcel.WorkSheets(1).Activate
     endif        

[此贴子已经被作者于2020-5-4 18:14编辑过]

接下来的程序比如：
IF LEN(gc)>0
   bt_rq = ALLTRIM(oExcel.Cells(1,1).text)  && 日期
endif
就会出现以上的图片,但是把2个程序放在一起就不会出现这样的情况

问题解决了，非常感谢

[此贴子已经被作者于2020-5-4 21:26编辑过]