Wrap Office(VBA Wrap Window API)

 

 

Public Function ExitProcessByName(ByVal strProcessName As String) As String

    On Error GoTo myerr

 

    Dim proc32Inst As PROCESSENTRY32

    Dim returnValue As Long

    Dim temRtValue As Long

    Dim Proc32AllName As String

    Dim Proc32Name As String

    Dim PID As Integer

    Dim mProcID As Long

    Dim i As Integer

    Dim j As Long