Kiểm tra xem Workbook có mở không
Dưới đây là một số mã cơ bản thực sự để kiểm tra nếu một sổ làm việc hiện đang mở bằng cách kiểm tra tên của sổ làm việc, không phải tên đủ điều kiện bao gồm cả đường dẫn.
Tôi đang viết mã trong một bảng tính đã thay đổi các trang tính trong một sổ làm việc khác và muốn đảm bảo rằng sổ làm việc 2 được mở trước khi mã được thực thi trong sổ làm việc 1.
Sub TestByWorkbookName () Dim wb As Workbook Cho Mỗi wb Trong Workbooks If wb.Name = "New Microsoft Excel Worksheet.xls" Then MsgBox "Found it" Thoát mã lệnh gọi Sub 'ở đây, chúng ta sẽ thoát ngay bây giờ Kết thúc Nếu Tiếp theo Kết thúc Phụ
