Palabras clave: sendkeys, bloqnum
Autor: A mi me lo pasó Mihura
Objetivo:
Emular el funcionamiento de SendKeys de Access pero sin el problema reconocido de activar/desactivar la tecla de bloqueo numérico.
Function fSendKeys(strKey as String)
Dim ws As Object
Set ws = CreateObject("WScript.shell")
ws.SendKeys strKey
Set ws = Nothing
End Function