예기치 않은 포스트 매크로 가비지 수집을 허용하는 명명 된 Excel.Application 객체를 구현하는 방법

Question

저는 상대적인 VBA 초보자이며 10 초에서 10 분 사이의 아무 것도 실행할 수있는 상당히 복잡한 매크로를 디자인합니다. 보이지 않는 다른 Excel 인스턴스에서 대부분의 작업이 Dim appDatabaseInstance = New Excel.Application에 의해 생성됩니다. 코드 실행 과정에서 사용되는 많은 함수와 서브 루틴이 있습니다. 반 예측 가능한 것이 잘못 될 때마다 appDatabaseInstance.Quit이 호출되도록 최선을 다했으나, 제어 할 수없는 한 가지가 있습니다. 사용자.

특히 사용자가 프로그램이 충돌하여 이탈을 결정하면 VBA가 실행을 중단하고 중단이 발생하여 내 가비지 수집 루틴 (내가 생각하는)이 발생하지 않습니다.

예를 들어 예측 가능한 방식으로 인스턴스 이름을 지정하고 새 인스턴스를 만들기 전에 기존 인스턴스를 찾고 적절히 처리하려고하면 훨씬 행복해집니다. 그렇게하면 불행한 응용 프로그램 인스턴스가 열려 있어도 사용자가 프로그램과 관련된 다른 작업을 시도하자마자 닫히게됩니다 (그렇지 않으면 인스턴스가 너무 많아 문맥에서 너무 많은 두통을 일으키지 않습니다).

누구에게 의견이 있습니까?

Answer 1

당신은 사용자가 당신이 딕의 블로그에 this post on EnableCancelKey를 참조 제안 코드

중단 할 때 무슨 일이 일어날 지 결정하기 위해 Application 개체의 EnableCancelKey 속성을 사용할 수 있습니다.

• xlDisable 정상 작동 - - 코드
• xlInterrupt을 방해에서 사용자를 방지 : 요약으로
  , EnableCancelKey은 세 가지 설정이 있습니다. 디버거가 표시되고 코드가 인터럽트 된 시점의 디버그 모드에 있습니다.
• xlErrorHandler - 오류 번호 18을 발생시키고 다른 오류와 마찬가지로 반응합니다. 오류 처리가 설정되어 있으면 호출됩니다.

Answer 2

나는 VBA에서 비슷한 것을해야만했습니다. Follow 메서드는 현재 코드를 실행중인 다른 모든 Excel 프로세스를 종료합니다. 이 코드를 실행하기 전에 물건을 저장하십시오!

Declare Function GetCurrentProcessId Lib "kernel32"() As Long 

Sub CloseOtherInstances() 

    Dim currentId As Long 
    Dim wmiObj As Object 
    Dim process As Object 
    Dim processes As Object 

    currentId = GetCurrentProcessId 

    Set wmiObj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 

    Set processes = wmiObj.ExecQuery("select * from win32_process where name ='EXCEL.exe'") 

    For Each process In processes 
    If process.ProcessId <> currentId Then process.Terminate 
    Next process 

End Sub