Функция SendKeys
Иногда возникает необходимость сымитровать пользовательский ввод с клавиатуры. Тут на помощь придет фукция SendKeys. Вот её описание:
SendKeys строка, [режим ожидания]
Этот макрос прокрутит таблицу на страницу вниз.
Sub Test()
SendKeys ("{PGDN}")
End Sub
Режим ожидания определяет то, как будет произведен возврат. В случае TRUE возврат в процедуру будет только после обработки нажатия клавиш. Если в программе выполняется какое-нибудь длительное действие, то задержка может быть значительной. В случае FALSE функция вернет управление сразу ничего не ожидая.
В фигурные скобках указываются команды и символы:
|
+ |
^ |
% |
~ |
( |
) |
{DEL} |
{INS} |
{BS} |
{BREAK} |
{CAPSLOCK} |
{ENTER} |
{DOWN} |
{PGUP} |
и так далее. Это не все возможные коды, полный список можно посмотреть в MSDN.
Функция, приведенная ниже, переведет курсор на страницу ниже, введет 123 и нажмет ENTER:
Sub Test()
SendKeys ("{PGDN}")
SendKeys ("123{ENTER}")
End Sub
Вот так можно вызвать функциональную клавишу:
Sub Test()
SendKeys ("{F1}")
End Sub
Когда экспериментируете, запускайте макрос из активной рабочей книги.
