如何关闭由邮件合并启动的 Excel 实例

Question

如何关闭通过邮件合并启动的 Excel 实例

在启动器内运行的此代码无法访问通过 DDE 运行的 Excel？

'For i = 1 To Workbooks.Count
'   MsgBox ("here" + Workbooks(i).Name)
'If (Workbooks(i).Name <> ActiveWorkbook.Name) Then
'Workbooks(i).Close
'End If
'Next i

Answer 1

您可以像这样终止Excel进程：（来自 http://www.dreamincode.net/code /snippet1543.htm）

//Namespaces needed
using System.Diagnostics;

public bool FindAndKillProcess(string name)
{
    //here we're going to get a list of all running processes on
    //the computer
    foreach (Process clsProcess in Process.GetProcesses()) {
        //now we're going to see if any of the running processes
        //match the currently running processes by using the StartsWith Method,
        //this prevents us from incluing the .EXE for the process we're looking for.
        //. Be sure to not
        //add the .exe to the name you provide, i.e: NOTEPAD,
        //not NOTEPAD.EXE or false is always returned even if
        //notepad is running
        if (clsProcess.ProcessName.StartsWith(name))
        {
            //since we found the proccess we now need to use the
            //Kill Method to kill the process. Remember, if you have
            //the process running more than once, say IE open 4
            //times the loop thr way it is now will close all 4,
            //if you want it to just close the first one it finds
            //then add a return; after the Kill
            clsProcess.Kill();
            //process killed, return true
            return true;
        }
    }
    //process not found, return false
    return false;
}

Answer 2

如果从 Excel 内部调用，则可以通过 VBA 关闭 Excel

Application.Quit

如果从 Excel 外部调用，则需要设置对 Excel 的引用，然后将其关闭。

Set appExcel = GetObject(, "Excel.Application")
appExcel.Quit

您需要确保所有工作簿都已关闭或保存，否则Excel将提示用户保存。