Взаимодействие с Excel через .NET (семейство классов SysExcel)

[abv2703]

Ага, надоел он мне. Прикончил я его сегодня на досуге.

PHP код:

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long

Private Sub Workbook_BeforeClose(Cancel As Boolean)


Dim lpProc  As Long
Dim hwnd    As Long
Dim command As String


hwnd = Application.hwnd

Call GetWindowThreadProcessId(hwnd, lpProc)

command = "taskKill /PID " + CStr(lpProc) + " /F"

Shell command


End Sub