Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Открыть макросом один макрос в другой книге, а затем второй макрос в той же книге.
 
Добрый вечер, форумчане. Имею макрос, запускающий макрос в другой книге:
Код
Sub MKR()
Dim wb As Workbook
Set wb = Workbooks.Open("P:\SQL_REPORTS\REPORT_2.xls")
 Application.Run "REPORT_2.xls!reportOpen"
   Windows("REPORT_2.xls").Close False 
End Sub
Данный макрос работает.
Теперь нужно запустить с этой же книги еще один макрос. Делаю так:
Код
Sub MKR()
Dim wb As Workbook
Set wb = Workbooks.Open("P:\SQL_REPORTS\REPORT_2.xls")
 Application.Run "REPORT_2.xls!repoptOpen"
  Application.Run "REPORT_2.xls!Main2"
   Windows("REPORT_2.xls").Close False
End Sub  
Работает только запуск первого макроса  repoptOpen, а запуск макроса  Main2 не происходит.
Книга  REPORT_2.xls  не закрывается.
Пробую сделать так:
Код
Sub MKR()
Dim wb As Workbook
Set wb = Workbooks.Open("P:\SQL_REPORTS\REPORT_2.xls")
 Application.Run "REPORT_2.xls!repoptOpen"
   Windows("REPORT_2.xls").Close False
     Set wb = Workbooks.Open("P:\SQL_REPORTS\REPORT_2.xls")
      Application.Run "REPORT_2.xls!Main2"
       Windows("REPORT_2.xls").Close False
'Application.Run "'REPORT_2.xls'!Main2" или с  апострофом
End Sub
тоже не работает. Первый макрос  repoptOpen - работает, второй - нет.
Помогите пожалуйста исправить макрос, чтобы он открывал поочередно два макросы в другой книге и закрывал ее. Заранее бесконечно благодарен.
 
А если запустить один макрос Main2 - сработает?
 
Да. Если запустить только один макрос - работает.
 
проверил у себя - все работает. Надо смотреть содержимое самих процедур
Учимся сами и помогаем другим...
 
Спасибо. Разобрался.
Ошибка в одной из процедур.
Страницы: 1
Читают тему (гостей: 1)