Собственно, сложил макрос, который по очереди выполняет другие макросы.
Некоторые макросы имеют "Application.InputBox" для ввода значений в процессе вычисления. И все макросы имеют msgBox с выводом потраченного на свою работу времени. Надо сделать так чтобы в InputBox и msgBox всегда нажималась кнопка "ОК" автоматически.
Можно както задать такой параметр ?
Код:
Некоторые макросы имеют "Application.InputBox" для ввода значений в процессе вычисления. И все макросы имеют msgBox с выводом потраченного на свою работу времени. Надо сделать так чтобы в InputBox и msgBox всегда нажималась кнопка "ОК" автоматически.
Можно както задать такой параметр ?
Код:
Код |
---|
Sub Operativka2() Application.ScreenUpdating = True Windows("Редактор").Activate Application.Run "Головна.xls!BXT_im.BXT_im" ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Worksheets(1).Name & ".xlsx" ActiveWorkbook.Close (SaveChanges = False) Windows("Редактор").Activate Application.Run "Головна.xls!BXT.BXT" ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Worksheets(1).Name & ".xlsx" ActiveWorkbook.Close (SaveChanges = False) Windows("Редактор").Activate Application.Run "Головна.xls!Zvit_2080_import.Zvit_2080_import" ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Worksheets(1).Name & ".xlsx" ActiveWorkbook.Close (SaveChanges = False) Windows("Редактор").Activate Application.Run "Головна.xls!Zvit_2080.Zvit_2080" ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Worksheets(1).Name & ".xlsx" ActiveWorkbook.Close (SaveChanges = False) End Sub |