Excel exe process id

INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Nov 21 ’05
#1

Как мне получить идентификатор процесса из запущенного объекта?

Dim xlApp As Object  = CreateObject("Excel.Application")

Мне нужно использовать позднее связывание, потому что я не могу гарантировать, какую версию получу, поэтому использование Microsoft.Office.Interop.Excel не сработает.

'do some work with xlApp

xlApp.Quit
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
xlApp = nothing

На данный момент Excel все еще работает в фоновом режиме. Я знаком со всеми рекомендациями по использованию переменных и их выпуску, а затем использую: System.Runtime.InteropServices.Marshal.ReleaseComObject(o). Это не работает надежно. Работа, которую я делаю, очень сложная. Я использую для каждого цикла и т.д., используя несколько файлов. Освободить все ресурсы в Excel невозможно. Мне нужен лучший вариант.

Я хотел бы использовать Process.Kill в Excel, но не знаю, как получить процесс из объекта xlApp. Я не хочу убивать все процессы Excel, потому что у пользователя может быть открыта книга.

Я пробовал использовать Dim xProc As Process = Process.Start(ExcelPath), а затем xProc.Kill(). Иногда это работает, за исключением того, что немного сложно получить правильный объект Excel с помощью XLApp = GetObject("Book1").Application или XLApp = GetObject("", "Excel.Application"), если у пользователя уже открыты окна Excel. Мне нужен лучший вариант.

Я не могу использовать GetActiveObject или BindToMoniker для получения объекта Excel, потому что они работают с работой только при использовании раннего связывания. Например. Microsoft.Office.Interop.Excel

Как мне получить идентификатор процесса из запущенного объекта?

Изменить: на самом деле меня не очень интересует перефразирование того, как заставить Excel красиво выйти. Многие другие вопросы касались этого. здесь и здесь Я просто хочу убить его; чисто, точно и прямо. Я хочу убить именно тот процесс, который я начал, и никакой другой.

На самом деле неважно; Я понял. Это очень чистое, точно нацеленное решение, которое убивает точно запущенный процесс. Это не мешает другим процессам или файлам, которые может открыть пользователь. По моему опыту, прекращение процесса после закрытия файлов и выхода из Excel — это самый быстрый и простой способ справиться с Excel. Вот статья базы знаний с описанием проблемы и рекомендуемым решением Microsoft.

Обратите внимание, что это решение НЕ убивает приложение Excel. Он убивает пустую оболочку процесса только в том случае, если какие-либо указатели не были должным образом удалены. Сам Excel действительно закрывается, когда мы вызываем xlApp.quit(). Это можно подтвердить, попытавшись подключить работающее приложение Excel, но это не поможет, потому что Excel вообще не запущен.

Многие не рекомендуют убивать процесс; Видеть Как правильно очистить объекты взаимодействия Excel и Общие сведения о сборке мусора в .NET

С другой стороны, многие люди не рекомендуют использовать GC.Collect. См. Что плохого в использовании GC.Collect ()?

Обязательно закройте все открытые книги, выйдите из приложения, отпустите объект xlApp. Наконец, проверьте, жив ли процесс, и если да, то убейте его.

Private Declare Auto Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As IntPtr, _
              ByRef lpdwProcessId As Integer) As Integer

Sub testKill()

    'start the application
    Dim xlApp As Object = CreateObject("Excel.Application")

    'do some work with Excel

    'close any open files

    'get the window handle
    Dim xlHWND As Integer = xlApp.hwnd

    'this will have the process ID after call to GetWindowThreadProcessId
    Dim ProcIdXL As Integer = 0

    'get the process ID
    GetWindowThreadProcessId(xlHWND, ProcIdXL)

    'get the process
    Dim xproc As Process = Process.GetProcessById(ProcIdXL)

    'Quit Excel
    xlApp.quit()

    'Release
    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)

    'set to nothing
    xlApp = Nothing

    'kill it with glee
    If Not xproc.HasExited Then
        xproc.Kill()
    End If

End Sub

Как только я понял, что могу получить дескриптор окна из Excel, мне просто понадобилась функция для получения идентификатора процесса из дескриптора окна. Следовательно, GetWindowThreadProcessId Если кто-нибудь знает способ получить это на vb.net, я был бы признателен.

Использование Marshal.ReleaseComObject () или уничтожение процесса Excel.exe некрасиво, подвержено ошибкам и является ненужным средством решения этой проблемы. И очень вредно в долгосрочной перспективе, этот вопрос показывает, что может случиться. Правильный способ сделать это — вызвать GC.Collect (), но прочтите этот ответ, чтобы понять, почему это не так. работать, когда вы отлаживаете свою программу.

Обходной путь прост, вам просто нужно убедиться, что вы вызываете GC.Collect () в другом методе. Это гарантирует, что ваши ссылки на объекты Excel больше не входят в область действия. Итак, приблизительный набросок программы, которая делает это правильно, будет следующим:

Sub Main()
    DoOfficeStuff()
    GC.Collect()
    GC.WaitForPendingFinalizers()
    '' Excel.exe will now be gone
    '' Do more work
    ''...
End Sub

Sub DoOfficeStuff()
    Dim xlApp As Object = CreateObject("Excel.Application")
    '' etc..
End Sub

Public Declare Function GetWindowThreadProcessId Lib "user32" _
  (ByVal hwnd As Long, _
   ByRef lpdwProcessId As Long) As Long

Function KillProcess(hwnd As Long)
  Dim CurrentForegroundThreadID As Long
  Dim strComputer As String
  Dim objWMIService
  Dim colProcessList
  Dim objProcess
  Dim ProcIdXL As Long

  ProcIdXL = 0
  CurrentForegroundThreadID = GetWindowThreadProcessId(hwnd, ProcIdXL)

  strComputer = "."

  Set objWMIService = GetObject _
  ("winmgmts:\" & strComputer & "rootcimv2")
  Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where ProcessID =" & ProcIdXL)
  For Each objProcess In colProcessList
    objProcess.Terminate
  Next

End Function


KillProcess (ExcelApplication.hwnd)

Для C # используйте:

    [DllImport("user32.dll")]
    private static extern uint GetWindowThreadProcessId(IntPtr hWnd, out uint lpdwProcessId);

    uint iProcessId = 0;

    //Get the process ID of excel so we can kill it later.
    GetWindowThreadProcessId((IntPtr)ExcelObj.Hwnd, out iProcessId);

    try
    {
        Process pProcess = Process.GetProcessById((int)iProcessId);
        pProcess.Kill();
    }
    catch (System.Exception)
    {
        //just ignore any failure.
    }

Я нашел обходной путь (источник на VB):

Private Declare Auto Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer

Сначала Marshal.ReleaseComObject () все более детализированные объекты и устанавливают для них значение Nothing.

Переместите окно Excel наверх после закрытия последней книги, а затем подождите 1000 мс (хорошее значение для шансов на работу):

exlBook.Close()
Dim exlProcId As Integer = Nothing
GetWindowThreadProcessId(exlApp.Hwnd, exlProcId)
AppActivate(exlProcId)
Threading.Thread.Sleep(1000)
Marshal.ReleaseComObject(exlBook)
exlBook = Nothing

В конце концов:

exlApp.Quit()
exlApp = Nothing
GC.Collect()
GC.WaitForPendingFinalizers()
GC.Collect()
GC.WaitForPendingFinalizers()

Я обнаружил это, когда остановил программу после закрытия рабочей книги, затем открыл окно Excel, затем продолжил программу и процесс Excel был закрыт.

С уважением: Торстен, Ганновер, Германия

Я столкнулся с этой проблемой при разработке автоматического приложения, которое каждый день создает от 50 до 100 книг Excel и отправляет их по электронной почте. Что бы я ни делал, экземпляр Excel зависал в диспетчере задач, иногда даже после GC.WaitForPendingFinalizers ().

Поскольку приложение работает без присмотра, я не могу рисковать, что Excel съест машину, поэтому я объединил все подходы в:

Private Declare Auto Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer

        Dim XLApp As Excel.Application
        Dim XLHwnd As Integer
        Dim XLProcID As Integer
        Dim XLProc As Process

        XLApp = New Excel.Application

        XLHwnd = XLApp.Hwnd
        GetWindowThreadProcessId(CType(XLHwnd, IntPtr), XLProcID)
        XLProc = Process.GetProcessById(XLProcID)

        DoStuffWithExcel()

        Try
            XLApp.Quit()
            System.Runtime.InteropServices.Marshal.ReleaseComObject(XLApp)
            XLApp = Nothing
            GC.Collect()
            GC.WaitForPendingFinalizers()

            If Not XLProc.HasExited Then
                XLProc.Kill()
            End If
        Catch ex As Exception
            XLApp = Nothing
        Finally
            GC.Collect()
        End Try

Я пытаюсь выйти изящно, но если это не удается, я прекращаю процесс, потому что должен!

Пока что вёл себя