Перейти до основного матеріалу

Як швидко перевірити, відкритий чи закритий файл (робоча книга) в Excel?

У щоденній роботі Excel ви відкриваєте кілька робочих книг одночасно для роботи, але іноді сотні книг можуть зіпсувати вам голову, щоб пам’ятати, відкрита чи закрита конкретна книга. Відмовтеся від традиційного методу перевірки файлів по одному, тут я представляю вам трюки, як швидко знайти книгу відкритою чи закритою.

Перевірте, чи книга відкрита чи закрита за допомогою VBA

Перевірте, чи відкрита чи закрита робоча книга за допомогою Kutools для Excel гарна ідея3

Перевірте, чи книга відкрита чи закрита за допомогою VBA

Ось код VBA, який ви можете запустити, щоб перевірити, відкрита чи закрита конкретна книга.

1. прес Alt + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модулі а потім скопіюйте та вставте VBA в новий Модулі вікна.

VBA: Перевірте, відкрита чи закрита книга

Function IsWorkBookOpen(Name As String) As Boolean
    Dim xWb As Workbook
    On Error Resume Next
    Set xWb = Application.Workbooks.Item(Name)
    IsWorkBookOpen = (Not xWb Is Nothing)
End Function

Sub Sample()
    Dim xRet As Boolean
    xRet = IsWorkBookOpen("combine.xlsx")
    If xRet Then
        MsgBox "The file is open", vbInformation, "Kutools for Excel"
    Else
        MsgBox "The file is not open", vbInformation, "Kutools for Excel"
    End If
End Sub

3. І натисніть F5 , щоб запустити цю vba, і вискакує діалогове вікно, щоб нагадати, що конкретна книга відкрита чи ні.
doc перевірити, чи відкрито файл 1     doc перевірити, чи відкрито файл 2

Порада: У наведеному вище VBA "об'єднувати”- це назва робочої книги, яку ви хочете перевірити, ви можете зробити це, як вам потрібно.

Перевірте, чи відкрита чи закрита робоча книга за допомогою Kutools для Excel

Якщо ви не знайомі з VBA, ви можете перевірити, чи відкрита книга до Kutools для Excel, зі своїми навігація панелі, яка допоможе вам чітко переглянути всі відкриті книги у списку робочих книг на панелі.

Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. 
Безкоштовне завантаження
безкоштовний повнофункціональний за 30 днів

після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.

1. клацання Кутулс > навігація щоб увімкнути панель навігації. Дивіться знімок екрана:
doc перевірити, чи відкрито файл 3

2 Потім натисніть Робоча книга та аркуш , щоб розгорнути область, до якої потрібно перейти Робоча книга та аркуш розділ. І ви можете переглянути всі відкриті книги у верхньому списку. Дивіться знімок екрана:
doc перевірити, чи відкрито файл 4

з навігація Ви також можете швидко перемикатись між книгами чи аркушами у списку.

Натисніть тут, щоб дізнатись більше про навігацію.

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями  |   Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул   |  Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок   |  Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів:  12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис

Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (6)
No ratings yet. Be the first to rate!
Saliou NDIAYE
Saliou NDIAYE
This comment was minimized by the moderator on the site
It doesn't work when the file has macros
Reply
0
0
matheus
matheus
This comment was minimized by the moderator on the site
I add this to my code but im having some issues...

I use ur function to check if a workbook with i take some information from is already open or not, if it is open, the macro msgbox the user, telling him to close the workbook and restart the macro, till here, everything ok, the problem is, after closing the workbook and restarting the macro, it keeps saying the workbook is open while its not, any tips?


Code:


Sub Check_BKG()

Set wa = Nothing

Confirmação = MsgBox("Deseja realizar a checagem de dados?", vbYesNo + vbExclamation, "Aviso Macro")
If Confirmação = vbNo Then Exit Sub

'--------------------------------------------------------------------------------------------'
'////////////////////////////CHECANDO SE EXSH JÁ ESTA ABERTO\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
'--------------------------------------------------------------------------------------------'
Dim xRet As Boolean
xRet = IsWorkBookOpen("EXSH0101.xlsx")
If xRet Then
MsgBox "O arquivo EXSH0101 já está aberto, por favor, feche o arquivo antes de executar a macro novamente.", vbInformation, "ERRO EXSH0101"
'MsgBox "The EXSH0101 file is already open, please close it before restart the macro.", vbInformation, "EXSH0101 ERROR"
Exit Sub
End If
'--------------------------------------------------------------------------------------------'
'////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
'--------------------------------------------------------------------------------------------'

With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Call Abrir_Arquivos

Call Setando_EXSH

Call Inserir_Formulas

With Application
.EnableEvents = True
.ScreenUpdating = True
End With

wb.Sheets("Inserir").Activate

End Sub
Reply
0
0
Joe
Joe
This comment was minimized by the moderator on the site
Just want to make sure everyone is aware, the "IsWorkBookOpen" function will only be able to tell if a workbook is open in the current instance of Excel. If you have multiple instances open you would need to run it on each instance to be sure the workbook is (not) open, using this code alone.
Reply
0
0
Sunny
Sunny     Joe
This comment was minimized by the moderator on the site
Thanks for your reminder.
Reply
Report
0
0
Dawid
Dawid
This comment was minimized by the moderator on the site
Wow, super VBA, simple and works. Thank you very much :)
Reply
0
0
Eddie
Eddie
This comment was minimized by the moderator on the site
Excellent VBA, works great. Thanks.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations