HOW TO إغلاق بدأ المثال Excel عن طريق دمج المراسلات

Question

وكيفية إغلاق المثال إكسل التي كتبها دمج المراسلات

وهذا الرمز تعمل داخل قاذفة لا يستطيعون الوصول إلى Excel يتم عرضها عبر DDE ؟؟

'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

ويمكنك قتل عملية التفوق مثل ذلك: (من HTTP: //www.dreamincode. شبكة / القانون / 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

ويمكن أن تكون مغلقة اكسل عبر VBA، إذا طلبت من داخل إكسل

Application.Quit

إذا استدعاؤها من خارج إكسل، سوف تحتاج إلى تعيين مرجع إلى Excel ثم إغلاقه.

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

وتحتاج إلى التأكد من أن جميع المصنفات مغلقة أو حفظها، وإلا إكسل سيدفع المستخدم لحفظ.