Tôi muốn sử dụng VBA trong Excel để kiểm tra xem quy trình WINWORD.EXE hiện có đang chạy hay không.

Tôi muốn sử dụng VBA trong Excel để kiểm tra xem quy trình WINWORD.EXE hiện có đang chạy hay không. Tôi có một macro Excel khá phức tạp sẽ tạo một chữ cái bằng Mailmerge. Sẽ không thành công nếu có quá trình WINWORD.exe đang chạy. Tôi muốn thêm mã vào macro để kiểm tra quy trình WINWORD.exe và nếu vậy, tôi sẽ sử dụng hộp thông báo để cho biết rằng tài liệu Word cần được lưu và đóng hoặc đóng. Macro Excel này chạy trên môi trường hỗn hợp (XP / Win 7) và Excel 2007/2010.


Trả lời:

Xin chào KCKay,

Dưới đây là ví dụ giám sát thời gian thực của ứng dụng Word, tiện lợi hơn so với lời nhắc của hộp thoại pop-up.

Macro để tham khảo:

-------------------

Tùy chọn rõ ràng

Công khai khi chạy theo ngày

'###############################
'Kiểm tra xem phiên bản Word có đang chạy không.
'###############################
Kiểm tra phụWordAppProc()
Dim wdApp làm đối tượng

'Khi xảy ra lỗi, hãy xem nhãn"errHandler".
Khi xảy ra lỗi GoTo errHandler

'Lấy phiên bản Word hiện tại。
Đặt wdApp = GetObject(, "Word.Application")

'╱＊Mở hộp thông báo nếu không có lỗi.＊╱
Nếu Err = 0 thì Application.Caption = "Ứng dụng Word đang chạy"
'MsgBox "Ứng dụng Word đang chạy", vbExclaim, "Mẹo"
Gọi EnableWordAppChecker
Thoát phụ

errHandler:
Application.Caption = "Ứng dụng Word hiện không chạy"
'MsgBox "Ứng dụng Word hiện không chạy", vbExclaim, "Mẹo"
Gọi EnableWordAppChecker
Kết thúc phụ

'#######################################
'Kiểm tra ứng dụng Word mỗi giây một lần.
'#######################################
Sub EnableWordAppChecker()
WhenRun = Now + TimeValue("00:00:01")
Application.OnTime khiRun, "CheckWordAppProc"
Kết thúc phụ

'#######################################
'Dừng kiểm tra xem ứng dụng Word có đang chạy hay không.
'#######################################
Phụ Vô hiệu hóaWordAppChecker()
Khi xảy ra lỗi Tiếp tục tiếp theo
Ứng dụng.Caption = ""
Application.OnTime whenRun, "CheckWordAppProc", , Sai
Kết thúc phụ

Vui lòng chạy macro 'EnableWordAppChecker' để kiểm tra xem ứng dụng Word có đang chạy hay không. Nếu bạn muốn dừng giám sát thời gian thực, hãy chạy macro 'DisableWordAppChecker'.

Comments

Post a Comment

Popular posts from this blog

Macro Đã bật Excel bị hỏng khi sử dụng Excel> Chia sẻ> Email> Gửi dưới dạng tệp đính kèm

Macro Đã bật Excel bị hỏng khi sử dụng Excel> Chia sẻ> Email> Gửi dưới dạng tệp đính kèm Macro Đã bật Excel bị hỏng khi sử dụng Excel> Chia sẻ> Email (O365)> Gửi dưới dạng tệp đính kèm. Khi người nhận mở tệp - bị hỏng. Nếu gửi bằng tùy chọn bên dưới - không có vấn đề gì. 1. Đóng Excel đã bật Macro 2. Outlook> Email mới 3. Đính kèm / Sao chép tệp và gửi Câu trả lời: Xin chào Dipayan Dasgupta, Cảm ơn bài đăng của bạn trong Cộng đồng Microsoft. Rất tiếc, câu hỏi của bạn nằm ngoài phạm vi hỗ trợ của chúng tôi. Để nhận được câu trả lời chi tiết, toàn diện và chuyên nghiệp hơn, chúng tôi khuyên bạn nên đặt câu hỏi trong cộng đồng Technet . Vui lòng đăng lại nếu bạn cần hỗ trợ thêm. Trân trọng, Lynn Sun | Chuyên gia hỗ trợ cộng đồng của Microsoft ----------------------- * Hãy cẩn thận với những kẻ lừa đảo đăng số hỗ trợ giả mạo tại đây. * Vui lòng Đánh dấu và Bình chọn câu trả lời này nếu nó hữu ích, vì nó sẽ có lợi cho nhiều thành viên cộng đồng hơn đọc ...
Read more

Microsoft excel - Tạo công thức trong đó dữ liệu từ các tab / Bảng tính khác nhau có thể được đồng bộ hóa dựa trên một ô trên bảng tính

Microsoft excel - Tạo công thức trong đó dữ liệu từ các tab / Bảng tính khác nhau có thể được đồng bộ hóa dựa trên một ô trên bảng tính Xin chào! Tôi có một bảng tính gồm nhiều tab có tên hàng / cột giống hệt nhau (ví dụ: một tab có dữ liệu cho mọi thành phố lớn ở Hoa Kỳ) Những gì tôi đang tìm cách làm là thêm một tab khác vào tài liệu excel có thể thu thập dữ liệu từ một trong các tab của thành phố lớn. Nếu tôi muốn thu thập dữ liệu từ cột B (ví dụ) trong một trong các tab, có thể chỉ cần nhập tên tab vào một ô (hoặc tạo danh sách cuộn xuống) và kết hợp ô đó như một phần của công thức để xác định không tab nào để thu thập dữ liệu. Cảm ơn nhiều! Câu trả lời: Xin chào, Vui lòng kiểm tra liên kết sau nó có thể giúp bạn. https: //analysistabs.com/excel-vba/copy-data-fr ... nếu điều đó không hiệu quả với bạn, vui lòng chia sẻ cho bạn công việc Excel trên oneDrive và gửi cho tôi liên kết để tôi có thể hướng dẫn bạn chi tiết Trân trọng, Engr. Muhammad bị kẹt Câu trả lời: Yêu cầ...
Read more

Làm mới danh sách SharePoint đã xuất không thành công trong Excel 2013 khi hoạt động với Excel 2010

Làm mới danh sách SharePoint đã xuất không thành công trong Excel 2013 khi hoạt động với Excel 2010 Trường hợp đơn giản là tôi đã xuất danh sách SharePoint sang Excel 2013. Danh sách này nhập tốt vào Excel, nhưng khi nhấp chuột phải, chọn Làm mới, tôi nhận được thông báo "Không thể thiết lập kết nối đến trang SharePoint. Để đồng bộ hóa hoặc làm mới bảng của bạn , bạn phải có khả năng kết nối với trang SharePoint." Điều này hoạt động tốt với Excel 2010. Rõ ràng tôi có quyền truy cập vào trang web vì tôi đang kết nối với nó để thực hiện xuất. Trả lời: Xin chào,   Đối với các vấn đề liên quan đến Excel WebQuery, vấn đề của bạn sẽ được giải quyết tốt nhất trong diễn đàn Excel IT Pro. Hãy tham khảo liên kết sau để đăng truy vấn của bạn: http://social.technet.microsoft.com/Forums/office/en-US/home?forum=excel   Nếu có bất kỳ câu hỏi nào khác liên quan đến các sản phẩm Office, bạn luôn có thể trả lời và tôi rất sẵn lòng hỗ trợ bạn.   Cảm ơn Trả lời: Bạn đã ...
Read more