1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
''Zugang zur API ''user32''
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Integer, ByRef lpdwProcessId As IntPtr) As IntPtr
''Beenden eines speziellen Excel Prozesses, anhand seiner Id
Private Shared Sub killExcelInstanceById(ByRef xlsApp As Excel.Application)
Dim processId As IntPtr
''API Funktion, out val: processId
GetWindowThreadProcessId(xlsApp.Hwnd,processId)
''Prozess erstellen
Dim excelProcess As Process = Process.GetProcessById(processId.ToInt32())
Debug.WriteLine(processId)
''die lang ersehnte Erlösung, für den speziellen Excel Process der XlsApp :)
excelProcess.Kill()
End Sub
|