Как бързо да проверите дали файл (работна книга) е отворен или затворен в Excel?
Ежедневна работа в Excel, отваряте няколко работни книги едновременно, за да работите, но понякога стотиците работни книги може да ви объркат главата, за да запомните дали конкретна работна книга е отворена или затворена. Откажете се от традиционния метод за проверка на файлове един по един, тук ви представям триковете за бързо намиране на работна книга, дали е отворена или затворена.
Проверете дали работната книга е отворена или затворена с VBA
Проверете дали работна книга е отворена или затворена с Kutools за Excel
Проверете дали работната книга е отворена или затворена с VBA
Ето код на VBA, който можете да стартирате, за да проверите дали конкретна работна книга е отворена или затворена.
1. Натиснете Alt + F11 бутони за отваряне Microsoft Visual Basic за приложения прозорец.
2. кликване Поставете > Модули и след това копирайте и поставете 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 и се появява диалогов прозорец, за да ви напомни дали конкретната работна книга е отворена или не.
Съвет: В горния VBA, „комбинират” е името на работната книга, което искате да проверите, можете да го направите, както ви е необходимо.
Проверете дали работна книга е отворена или затворена с Kutools за Excel
Ако не сте запознати с VBA, можете да проверите дали дадена работна книга е отворена от Kutools за Excel, със своите навигация прозорец, който ще ви помогне да видите ясно всички отворени работни книги в списъка с работни книги на панела.
Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. |
След безплатно инсталиране Kutools за Excel, моля, направете следното:
1. кликване Kutools > навигация за да активирате навигационния панел. Вижте екранна снимка:
2. След това кликнете Работна тетрадка и лист бутон за разширяване на панела, към който да отидете Работна тетрадка и лист раздел. И можете да видите всички отворени работни книги в горния списък. Вижте екранна снимка:
с навигация прозорец, можете също бързо да превключвате между работните книги или листовете в списъка.
Щракнете тук, за да научите повече за навигацията.
Демонстрация
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!