Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Отключить запуск макроса внешней книги при её открытии. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отключить запуск макроса внешней книги при её открытии. (Макросы/Sub)
Отключить запуск макроса внешней книги при её открытии.
Glen Дата: Вторник, 22.01.2019, 13:03 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
Всем доброго дня.
В ходе выполнения макроса VBA есть необходимость открыть внешнюю книгу методом
[vba]
Код
Set objXL = CreateObject("Excel.Application")
Set wbCSV = objXL.Workbooks.Open(Filename:=****
[/vba]
Забрать из нее данные и сразу закрыть.
Проблема в том, что эта внешняя книга при открытии по [vba]
Код
Workbook_Open
[/vba] запускает свой макрос и из за этого происходит потеря времени.
Можно ли отключить запуск макроса внешней книги при запуске, либо вызвать её другим способом исключающим этот запуск?


Самурай без меча подобен самураю с мечом, но только без меча.

Сообщение отредактировал Glen - Вторник, 22.01.2019, 13:05
 
Ответить
СообщениеВсем доброго дня.
В ходе выполнения макроса VBA есть необходимость открыть внешнюю книгу методом
[vba]
Код
Set objXL = CreateObject("Excel.Application")
Set wbCSV = objXL.Workbooks.Open(Filename:=****
[/vba]
Забрать из нее данные и сразу закрыть.
Проблема в том, что эта внешняя книга при открытии по [vba]
Код
Workbook_Open
[/vba] запускает свой макрос и из за этого происходит потеря времени.
Можно ли отключить запуск макроса внешней книги при запуске, либо вызвать её другим способом исключающим этот запуск?

Автор - Glen
Дата добавления - 22.01.2019 в 13:03
_Boroda_ Дата: Вторник, 22.01.2019, 13:43 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15567
Репутация: 6074 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вот такая штука прокатывает, только потом файл лучше без сохранения закрыть
[vba]
Код
Application.DisplayAlerts = 0
Workbooks.Open Filename:="g:\Путь\77.xlsm", CorruptLoad:=xlExtractData
Application.DisplayAlerts = 1
[/vba]

А лучше вот так
[vba]
Код
Set objXL = CreateObject("Excel.Application")
aas_ = objXL.AutomationSecurity
objXL.AutomationSecurity = msoAutomationSecurityForceDisable
Set wbCSV = objXL.Workbooks.Open("g:\моя\стереть\77.xlsm")
objXL.AutomationSecurity = aas_
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВот такая штука прокатывает, только потом файл лучше без сохранения закрыть
[vba]
Код
Application.DisplayAlerts = 0
Workbooks.Open Filename:="g:\Путь\77.xlsm", CorruptLoad:=xlExtractData
Application.DisplayAlerts = 1
[/vba]

А лучше вот так
[vba]
Код
Set objXL = CreateObject("Excel.Application")
aas_ = objXL.AutomationSecurity
objXL.AutomationSecurity = msoAutomationSecurityForceDisable
Set wbCSV = objXL.Workbooks.Open("g:\моя\стереть\77.xlsm")
objXL.AutomationSecurity = aas_
[/vba]

Автор - _Boroda_
Дата добавления - 22.01.2019 в 13:43
Glen Дата: Вторник, 22.01.2019, 14:29 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
Вот главная строчка:
objXL.AutomationSecurity = msoAutomationSecurityForceDisable

Мне по сути возвращать и не надо, я с MS Project открываю файлик.
Спасибо_Boroda_! Извини не знаю как звать. В очередной раз мгновенная точечная помощь!!


Самурай без меча подобен самураю с мечом, но только без меча.
 
Ответить
СообщениеВот главная строчка:
objXL.AutomationSecurity = msoAutomationSecurityForceDisable

Мне по сути возвращать и не надо, я с MS Project открываю файлик.
Спасибо_Boroda_! Извини не знаю как звать. В очередной раз мгновенная точечная помощь!!

Автор - Glen
Дата добавления - 22.01.2019 в 14:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отключить запуск макроса внешней книги при её открытии. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!