بستن برنامه دیگر با اکسس

• روش بستن برنامه دیگر با اکسس چگونه است؟

در این مطلب آموزشی به روش بستن برنامه دیگر با اکسس می‌پردازیم. فرض کنید برنامه ای با اکسس نوشته اید و میخواهید هنگامی که آن را اجرا کردید فایل های اجرا شده توسط نرم افزار اکسل را ببندید یا قصد دارید هنگامی که نرم افزار شما در حال اجرا است ، NotePad ویندوز توسط برنامه شما کنترل شده و در صورت باز بودن بسته شود.

برای این منظور می توانید از کدی که در زیر برای شما قرار گرفته است استفاده کنید. در ادامه ابتدا وارد محیط کد نویسی VBA در اکسس شده و کدهای زیر را در داخل آن کپی کرده و ماژول را ذخیره کنید.

Public Sub KillExcecutedFile(ExecutedFileName As String)
On Error GoTo Err_KillExcecutedFile

    Dim ProcessName As Object
    For Each ProcessName In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & ExecutedFileName & "'")
        ProcessName.Terminate
    Next
Exit_KillExcecutedFile:
    On Error Resume Next
    Exit Sub
Err_KillExcecutedFile:
    Select Case Err.Number
        Case 0
            Resume Exit_KillExcecutedFile:
        Case Else
            MsgBox Err.Number & " " & Err.Description, vbExclamation, "Error in function KillExcecutedFile"
            Resume Exit_KillExcecutedFile:
    End Select
End Sub

در گام بعد متناسب با نیاز خود ماژول KillExcecutedFile را با استفاده از دستور Call فراخوانی کنید. فرض کنید یک دکمه بر روی یک فرم ایجاد کرده اید. در اینصورت خواهید داشت:

Private Sub Command0_Click()
Call KillExcecutedFile("EXCEL.exe")
End Sub

در دستور بالا بعد از کلیک بر روی دکمه برنامه اکسل در صورت باز بودن بسته خواهد شد. همچنین شما می‌توانید بجای Excel.exe برنامه دلخواه دیگری را که مد نظر خودتان است جایگذین کنید تا بسته شود.