VFP 在 Excel 文档打开时关闭表单

Question

我目前有一个可以打开.xls excel文档的foxpro表单，问题是当excel文档仍然打开时我无法关闭foxpro表单。

这是我打开Excel文档的方法：

excelDoc = CREATEOBJECT("wscript.shell")

excelDoc.run("Excel"+ " " +  filePath, 3, .T.)

Answer 1

你为什么要使用 wscript.shell？您正在创建对其发布的依赖关系。 只需使用 ShellExecute。即：

#define SW_HIDE             0
#define SW_SHOWNORMAL       1
#define SW_SHOWMINIMIZED    2
#define SW_SHOWMAXIMIZED    3
#define SW_MAXIMIZE         3
#define SW_SHOWNOACTIVATE   4
#define SW_SHOW             5
#define SW_MINIMIZE         6
#define SW_SHOWMINNOACTIVE  7
#define SW_SHOWNA           8
#define SW_RESTORE          9
#define SW_SHOWDEFAULT      10
#define SW_FORCEMINIMIZE    11
#define SW_MAX              11

declare long ShellExecute in "shell32.dll" ;
    long hwnd, string lpszOp, ;
    string lpszFile, string lpszParams, ;
    string lpszDir, long nShowCmd


ShellExecute(0,'Open','c:\MyFolder\blahblah.xls','','',SW_SHOWNORMAL)