Option Explicit Function FindWindowA Lib "user32" (ByVal cnm As String, ByVal cap As String) dim hWnd hWnd = FindWindow(vbNullString, "無題 - ペイント") If hWnd = 0 Then WScript.Echo "EXCEL動いてない。" Else WScript.Echo "EXCEL動いている。" End If Set obj = CreateObject("APIWrapperCOM.APIWrapper") winHandle = obj.FindWindow("test.txt - Notepad") obj.KillWindow(winHandle) SendMessage hwindow, WM_SYSCOMMAND, SC_CLOSE, 0