Xác định xem ứng dụng có sẵn sử dụng VBA trong Microsoft Excel hay không
Để tìm hiểu trạng thái của bất kỳ ứng dụng cụ thể nào có sẵn hoặc đang chạy trong Microsoft Excel, hãy xem bài viết này. Chúng tôi sẽ sử dụng mã VBA để kiểm tra để trả về “Đúng”, nếu ứng dụng có sẵn hoặc đang chạy hoặc trả về và “Sai” nếu không .
Câu hỏi: Tôi muốn có một macro để xác định trong nền liệu ứng dụng cụ thể đang chạy hay có sẵn / được cài đặt trong hệ thống.
Để xác định ứng dụng Outlook đang chạy hoặc khả dụng; chúng ta cần làm theo các bước sau để khởi chạy trình soạn thảo VB:
Nhấp vào tab Nhà phát triển Từ nhóm Mã chọn Visual Basic
-
Nhấp vào Chèn rồi đến Mô-đun
Thao tác này sẽ tạo mô-đun mới Nhập mã sau vào Mô-đun
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
Nếu bạn thích blog của chúng tôi, hãy chia sẻ nó với bạn bè của bạn trên Facebook. Và bạn cũng có thể theo dõi chúng tôi trên Twitter và Facebook.
Chúng tôi rất muốn nghe ý kiến từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện, bổ sung hoặc đổi mới công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi tại [email protected]