1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Вы можете использовать инструкцию SendKeys или метод .SendKeys объекта Application, например:code: #vbaSendKeys "{ENTER 10}"SendKeys "{F5}"SendKeys "^{f}"SendKeys "%{F4}"SendKeys "А вот и результат{ENTER}" 'RUS KeyBoardcode: #vbaApplication.SendKeys "{ENTER 10}"Application.SendKeys "{F5}"Application.SendKeys "^{f}"Application.SendKeys "%{F4}"Application.SendKeys "А вот и результат{ENTER}" 'RUS KeyBoard |