응용 프로그램이 Microsoft Excel에서 VBA를 이용하여 사용할 수 있는지 확인
Microsoft Excel에서 사용 가능하거나 실행중인 특정 응용 프로그램의 상태를 확인하려면이 문서를 참조하십시오. VBA 코드를 사용하여 응용 프로그램이 사용 가능하거나 실행 중이면 “True”를 반환하고 그렇지 않은 경우 “False”를 반환하는지 확인합니다 .
질문 : 특정 응용 프로그램이 실행 중인지 또는 시스템에서 사용 가능 / 설치되었는지를 백그라운드에서 식별하는 매크로를 갖고 싶습니다.
Outlook 응용 프로그램이 실행 중이거나 사용 가능한지 확인하기 위해 VB 편집기를 시작하려면 아래 단계를 따라야합니다.
개발자 탭을 클릭하십시오. 코드 그룹에서 Visual Basic을 선택하십시오
-
삽입을 클릭 한 다음 모듈
이렇게하면 새 모듈이 생성됩니다. 모듈에 다음 코드를 입력하세요
Function ApplicationIsRunning(ApplicationClassName As String) As Boolean
' returns True if the application is running
' example: If Not ApplicationIsRunning("Outlook.Application") Then Exit Sub
Dim AnyApp As Object
On Error Resume Next
Set AnyApp = GetObject(, ApplicationClassName)
ApplicationIsRunning = Not AnyApp Is Nothing
Set AnyApp = Nothing
On Error GoTo 0
End Function
Function ApplicationIsAvailable(ApplicationClassName As String) As Boolean
' returns True if the application is available
' example: If Not ApplicationIsAvailable("Outlook.Application") Then Exit Sub
Dim AnyApp As Object
On Error Resume Next
Set AnyApp = CreateObject(ApplicationClassName)
ApplicationIsAvailable = Not AnyApp Is Nothing
Set AnyApp = Nothing
On Error GoTo 0
End Function
_ 블로그가 마음에 들면 Facebook에서 친구들과 공유하세요. Twitter와 Facebook에서도 팔로우 할 수 있습니다 ._
_ 우리는 여러분의 의견을 듣고 싶습니다. 우리가 작업을 개선, 보완 또는 혁신하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]_로 문의 해주세요