Количество открытых файлов excel

I need to know how many Excel files are opened, so in case there are more than two, I can close the last one. How can I get number the of opened files?? I have read Worksbooks.Count… but I´m not getting anything at all. I´m using vbscript code.

I have tried this… but just get the name of the file.

Set objExcel = GetObject(, "Excel.Application")
Set WB = objExcel.ActiveWorkbook
WScript.Echo "Hello" + WB.Name
WScript.Echo "number of excel" + WB.Count

Community's user avatar

asked Oct 16, 2015 at 11:45

Asier Pomposo's user avatar

Just solved!!!
I just needed to get the instance of workbooks correctly:

Set objExcel = GetObject(, "Excel.Application")
Set WB = objExcel.ActiveWorkbook
Set WBS = objExcel.Workbooks
WScript.Echo  WBS.Count

answered Oct 16, 2015 at 12:03

Asier Pomposo's user avatar

Asier PomposoAsier Pomposo

5194 gold badges8 silver badges20 bronze badges

1

Источник

������� ���������� �������� �����

������� ���������� �������� �����

� ������� ���������� ������ ����� ����� �������������� ���� ���������� �������� �������� �����. ��� ����� ���������� �������� ����� �� ���� ����������� ���� �������� (�������� 3.1�3.3) � ��������� ��� � VBA-������.

������� 3.1. ���������� �������� ����� (������� 1)

Sub Auto_Open()

Worksheets(1).Cells(1) = Worksheets(1).Cells(1) + 1

End Sub

������� 3.2. ���������� �������� ����� (������� 2)

Sub Auto_Open()

Worksheets(1).Cells(1, 1) = Worksheets(1).Cells(1, 1) + 1

End Sub

������� 3.3. ���������� �������� ����� (������� 3)

Sub Auto_Open()

Worksheets(1).Range(�A1�) = Worksheets(1).Range(�A1�) + 1

End Sub

��� ��� ������� ����� ���, ������������ �������������� Microsoft Office,�� AutoOpen. ���� ������ � ����� ������ ����������, �� �� ������������� ���������� ������ Microsoft Office ��� ������ �������� �����.

��� ������������� ������ �� ������������� ��������� ���������� �������� �������� ����� ����������� � ������ �1. ���� ��������� ������������ ��������������� �������, �� � ���������� ��� �������� ��� ������ �������� ����� ������������� �� 1 (��������, ��� ��������� ���������� ������� �������� ������, � ���� � ������ �1 ������� �������� 52, �� ��� ��������� �������� ����� ��� ����� ������ 53). ���� �� � ������ �1 ������� ���������� ��������, �� ��� ��������� �������� ����� �� ������ ����������� ��������� �� ������.

Источник
 

sanjey

Пользователь

Сообщений: 114
Регистрация: 29.12.2012

Дорогие, форумчане, помогите мне пожалуйста с такой проблемой:  
Есть файл (исходник) который я открываю в сутки 10-30 раз, совершаю в нем определенные операции и сохраняю под различными названиями.  
Можно ли сделать так, чтобы один счетчик считал количество открытий файла(или программы Exel вообще), а другой количество сохранений (все это в исходнике), в файлах сохраненных под другим названием счетчики бы останавливались и не работали? Возможна ли реализация хотя бы одного из них? И если она возможна необходимо чтобы счетчик сохранений обнулялся (только исходнике) с каждый новым днем! очень надеюсь на вашу помощь!
 

Все что могу предложить:  
в модуль ЭтаКнига  
Для подсчета открытий  
Private Sub Workbook_Open()  
Worksheets(1).Range(«A1») = Worksheets(1).Range(«A1») + 1  
End Sub  
для сохранений  
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)  
Worksheets(1).Range(«A2») = Worksheets(1).Range(«A2») + 1  
End Sub
 

слэн

Пользователь

Сообщений: 5192
Регистрация: 16.01.2013

+1 к пред оратору  

  плюс проверку на имя файла, чтобы работало только в исходнике  
плюс проверку на дату — если записанное значение не равно текущей дате, то обнулять счетчики  
плюс можно записывать не налисте, а, допустим, в именах..
 

Guest

Гость

#5

28.12.2011 15:51:05

{quote}{login=слэн}{date=28.12.2011 03:01}{thema=}{post}+1 к пред оратору  

  post}{/quote}  
А че Вы сразу такие слова. Что тут плохого. Человек задал вопрос, прошло больше часа, а ответов нет, вот и решил ответить с целью поднят на верх тему. Интересная тема и хочется ответов.  
Я прекрасно знаю что мой ответ не больше 5%.Так что не надо так, хоть Вы проффесионал в области ВБА.  
с ув.Азам
Источник

Для подсчёта количества открытия файла и вывода результата в ячейке A1, разместите в стандартном модуле : 

 
Sub Auto_Open()
 Worksheets(1).Cells(1) = Worksheets(1).Cells(1) + 1 ' Вариант № 1.
 'Worksheets(1).Cells(1, 1) = Worksheets(1).Cells(1, 1) + 1 ' Вариант № 2.
 'Worksheets(1).Range("A1") = Worksheets(1).Range("A1") + 1 ' Вариант № 3.
 'Выберите один из вариантов иначе они будут отрабатывать все и суммироваться!
End Sub

  • В ячейку A1 нельзя вносить данные. Если Вы внесёте числовые данные — то они приплюсуются к уже имеющимся, если отличные от числовых, то Вы получите ошибку.
  • Можно также использовать события рабочей книги, например Workbook_Open()
Источник

Как быстро подсчитать количество всех открытых книг?

Иногда вы можете открыть несколько книг одновременно для работы. Но приходилось ли вам когда-нибудь подсчитывать количество всех открытых книг? В этой статье я расскажу о некоторых приемах подсчета открытых книг и листов в активной книге.

Подсчитайте количество открытых книг с VBA

Подсчитайте количество листов в активной книге с помощью Kutools for Excel хорошая идея3

стрелка синий правый пузырь Подсчитайте количество открытых книг с VBA

Чтобы подсчитать количество открытых книг, вам поможет код макроса.

1. Нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте приведенный ниже код в пустой скрипт. Смотрите скриншот:

Код: подсчитать количество открытых книг.

Sub CountBooks()
      MsgBox Workbooks.Count
End Sub

doc count количество открытой книги 1

3. Нажмите F5 нажмите клавишу для запуска кода, появится диалоговое окно с напоминанием о количестве открытых книг.
doc count количество открытой книги 2

стрелка синий правый пузырь Подсчитайте количество листов в активной книге с помощью Kutools for Excel

Подсчет количества книг в Excel используется редко, в большинстве случаев вы можете захотеть подсчитать количество листов в активной книге. Чтобы быстро решить эту задачу, вы можете отобразить Kutools for ExcelАвтора Панель навигации.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

Нажмите Кутулс > Навигация для Панель навигации, А затем нажмите Рабочая тетрадь и лист значок значок документа чтобы развернуть панель. Теперь вы можете просмотреть все открытые книги в верхней части панели и выбрать одну книгу, относительные имена листов перечислены в нижней части панели, а количество листов отображается внизу. Смотрите скриншот:
doc count количество открытой книги 3

документ скачать 1

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

офисный дно

Комментарии (0)


Оценок пока нет. Оцените первым!

Источник

Понравилась статья? Поделить с друзьями:
  • Количество оставшихся дней в месяце excel
  • Количество основных вкладок в microsoft word 2007 ответ
  • Количество нулей функции excel
  • Количество основных вкладок в microsoft word 2007 количество основных вкладок в microsoft word 2007
  • Количество нулей формула excel