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

Вход

Регистрация

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

 

= Мир MS Excel/Запуск макроса из личной книги макросов другим макросом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запуск макроса из личной книги макросов другим макросом (Макросы/Sub)
Запуск макроса из личной книги макросов другим макросом
lelya7 Дата: Понедельник, 21.10.2019, 14:07 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день.
Есть 10 файлов хранятся в одной папке хочу написать макрос, чтобы он по очереди открывал файлы и выполнял 2 макроса из личной книги макросов.
Вот пример с одним файлом из 10ти, только макросы из личной книге не выполняются, подскажите в чем ошибка?

[vba]
Код
Sub Обновление()
'
' Обновление
'

'
Workbooks.Open Filename:="E:\ОТЧЕТЫ\Основные\2019\октябрь\EGR 2014-2019(10).xlsm"
Application.Run "PERSONAL.XLSB!замена"
Application.Run "PERSONAL.XLSB!месяц"
Sheets("Общий").Select
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
[/vba]
 
Ответить
СообщениеДобрый день.
Есть 10 файлов хранятся в одной папке хочу написать макрос, чтобы он по очереди открывал файлы и выполнял 2 макроса из личной книги макросов.
Вот пример с одним файлом из 10ти, только макросы из личной книге не выполняются, подскажите в чем ошибка?

[vba]
Код
Sub Обновление()
'
' Обновление
'

'
Workbooks.Open Filename:="E:\ОТЧЕТЫ\Основные\2019\октябрь\EGR 2014-2019(10).xlsm"
Application.Run "PERSONAL.XLSB!замена"
Application.Run "PERSONAL.XLSB!месяц"
Sheets("Общий").Select
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
[/vba]

Автор - lelya7
Дата добавления - 21.10.2019 в 14:07
dude Дата: Пятница, 25.10.2019, 16:24 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 193
Репутация: 28 ±
Замечаний: 0% ±

2016
вместо
[vba]
Код
Application.Run "PERSONAL.XLSB!замена"
[/vba]

это:
[vba]
Код
call aaaa
[/vba]

и
[vba]
Код
sub aaaa()
run "PERSONAL.XLSB!замена"
end sub  
[/vba]
 
Ответить
Сообщениевместо
[vba]
Код
Application.Run "PERSONAL.XLSB!замена"
[/vba]

это:
[vba]
Код
call aaaa
[/vba]

и
[vba]
Код
sub aaaa()
run "PERSONAL.XLSB!замена"
end sub  
[/vba]

Автор - dude
Дата добавления - 25.10.2019 в 16:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запуск макроса из личной книги макросов другим макросом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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