Добрый вечер, форумчане. Имею макрос, запускающий макрос в другой книге:
| Код |
|---|
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 - работает, второй - нет.
Помогите пожалуйста исправить макрос, чтобы он открывал поочередно два макросы в другой книге и закрывал ее. Заранее бесконечно благодарен.
