Emular SendKeys

[xavi]

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.

Código [Seleccionar] Expandir


Function fSendKeys(strKey as String)
  Dim ws As Object
  Set ws = CreateObject("WScript.shell")
  ws.SendKeys strKey
  Set ws = Nothing
End Function