えー! そんなことできるの? という感じですが。。。 Sub Push(Items,Item) ReDim Preserve Items(UBound(Items)+1) Set Items(UBound(Items))=Item End Sub Applications=Array() On Error Resume Next Set Application1=GetObject(,"Excel.Application") On Error GoTo 0 If Not IsEmpty(Application1) Then Count1=GetObject("winmgmts:root\CIMV2").ExecQuery("SELECT * FROM Win32_Process WHERE Name='EXCEL.EXE'").Count Push Applications,Applica