程序最终要生成EXECEL表，如果此表在打开状态，程序运行会提示出错。在运行程序前先关闭EXECEL各种表，请问用什么语句？

*!* 44．关闭工作簿
oExcel.Workbooks.Close
objexcel.activeworkbook.Close(.F.)
 *!* 45．退出Excel
oExcel.Quit
Release oExcel &&只有释放对象变量, EXCEL进程才会完全关闭

如果已打开多个工作簿，就会关闭当前处于活动状态的工作簿，无法关闭指定的工作簿。

为什么提示找不到对象？

上传你的代码

试了一下，好象并不能关闭电脑上不是由ＶＦＰ创建或打开的Excel表，我的目的是要关闭电脑上所有的Excel表，而不管这些表是否是由ＶＦＰ程序创建或打开的。

历害了，我的哥。张三差你的钱，你找李四要，李四会给你钱吗？

关闭所有Excel进程

VFP中不知道如何做到关闭其它进程，惭愧。
不过，如果是我来做，我会用VC、VB写一个关闭所有EXCEL进程的小程序，再用VFP来调用它。这也是一种思路。

关闭EXCEL进程示例
** test.prg
#DEFINE MAX_PATH    260
#DEFINE TH32CS_SNAPPROCESS    0x00000002
#DEFINE PROCESS_ALL_ACCESS    0x001F0FFF

DECLARE LONG CreateToolhelp32Snapshot IN Kernel32 LONG, LONG
DECLARE LONG CloseHandle IN Kernel32 LONG
DECLARE LONG Process32First IN Kernel32 LONG, STRING@
DECLARE LONG Process32Next IN Kernel32 LONG, STRING@
DECLARE LONG OpenProcess IN Kernel32 LONG, LONG, LONG
DECLARE LONG GetExitCodeProcess IN Kernel32 LONG, LONG@
DECLARE LONG TerminateProcess IN Kernel32 LONG, LONG

DO WHILE _TerminateProcess("EXCEL.EXE")
    INKEY(0.1)
ENDDO
RETURN

FUNCTION _IsProcessFileName(szFileName, dhProcess)
    LOCAL stPE, dhSnapshot, szExeFile, blRet, ddPID, ddRet
        * PROCESSENTRY32 结构
    stPE = BINTOC(36+MAX_PATH, "4RS") + REPLICATE(0h00, 32+MAX_PATH)
    blRet = .F.
    dhSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)    && 进程快照
    ddRet = Process32First(dhSnapshot, @stPE)        && 第一个进程
    DO WHILE ddRet > 0
        szExeFile = RIGHT(stPE, MAX_PATH)
        szExeFile = LEFT(szExeFile, AT(0h00, szExeFile)-1)
        IF UPPER(szExeFile) == UPPER(szFileName)
            ddPID = CTOBIN(SUBSTR(stPE,9,4), "4RS")
            dhProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, ddPID)
            blRet = .T.
            EXIT
        ENDIF
        ddRet = Process32Next(dhSnapshot, @stPE)    && 下一个进程
    ENDDO
    CloseHandle(dhSnapshot)
    RETURN blRet
ENDFUNC

FUNCTION _TerminateProcess(szFileName)
    LOCAL dhProcess, ddExitCode
    dhProcess = 0
    ddExitCode = 0
    IF _IsProcessFileName(szFileName, @dhProcess)
        **GetExitCodeProcess(dhProcess, @ddExitCode)
        **RETURN (TerminateProcess(dhProcess, ddExitCode) != 0)
        RETURN (TerminateProcess(dhProcess, 0) != 0)
    ENDIF
    RETURN .F.
ENDFUNC