Добрый день!
Написала макрос для обработки группы XML файлов. Для большей информативности работы программы хотелось бы в процессе работы выводить дополнительную информацию, например, номер обрабатываемого файла.
Чтобы не нажимать каждый раз на ОК, попробовала использовать SendKeys. До конца дорабатывает, но изменения значения h не видно. Если SendKeys убрать - работает, как и ожидалось. подскажите, пожалуйста, в чем ошибка.
Написала макрос для обработки группы XML файлов. Для большей информативности работы программы хотелось бы в процессе работы выводить дополнительную информацию, например, номер обрабатываемого файла.
Чтобы не нажимать каждый раз на ОК, попробовала использовать SendKeys. До конца дорабатывает, но изменения значения h не видно. Если SendKeys убрать - работает, как и ожидалось. подскажите, пожалуйста, в чем ошибка.
Код |
---|
Sub aaa() n_All_fl = 5 h = 0 For s = 1 To n_All_fl h = h + 1 MsgBox h Application.SendKeys "{ENTER}" Next MsgBox "???" End Sub |