powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытие ИЛИ активация книги при выполнении процедуры
4 сообщений из 4, страница 1 из 1
Открытие ИЛИ активация книги при выполнении процедуры
    #32456680
PanzerFaust
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем привет! Такой вопрос - в процедуре последовательно обрабатываются файлы и некий результат по каждому файлу сливается в отдельный файл.
Вот этот файл в момент обработки может быть открытым или его нуна открыть

Как бы полаконичнее задать проверку в цикле обработки - если он не открыт - то открыть, а если открыт то активировать.

Workbook.Open
Workbook.Activate в различных вариациях к консенсусу не приводят - в ошибку выпадает все равно...
Может и совсем простой вопрос, но я пока не догнал...
...
Рейтинг: 0 / 0
Открытие ИЛИ активация книги при выполнении процедуры
    #32457457
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
For Each wb in Excel.Workbooks
    if wb.Name= "имя_книги_с_результатом"  Then
       set wbr=wb
       exit for
Next wb
if wbr is nothing then
   set wbr=Workbooks.Open(...)
endif
endif
...
Рейтинг: 0 / 0
Открытие ИЛИ активация книги при выполнении процедуры
    #32457460
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Поставь End If на место!
...
Рейтинг: 0 / 0
Открытие ИЛИ активация книги при выполнении процедуры
    #32457917
PanzerFaust
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, когда рассказал, то кажется действительно просто и понятно))
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытие ИЛИ активация книги при выполнении процедуры
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]