" , verdaderos
Application.Wait 900 €
SendKeys " ~ " , Verdadero
End Sub
Este programa pone en marcha su navegador para recibir la entrada del teclado mediante la instrucción AppActivate . La instrucción SendKeys envía las pulsaciones de teclado de la contraseña en el navegador , y la declaración Application.Wait hace una pausa para darle tiempo a su navegador para procesar las pulsaciones de teclado . El carácter " ~ " representa la tecla "Enter " .
4
Tipo sobre el etiquetado ( por ejemplo, " < >") de texto en el programa en el paso 3 con el navegador y el nombre de la contraseña necesaria para conectarse a la página web.
5
clic una declaración en el programa automateLogin escribió en el paso 3 , haga clic en el elemento de menú " ejecutar" " Run sub " para ejecutar el programa. Excel activará el navegador especificados en el código, a continuación, enviar las pulsaciones de teclado en el navegador. Estas pulsaciones explican la contraseña que escribió en el paso 3 . Excel ejecutará entonces " '~' , SendKeys verdadero " estado del programa , que enviará la pulsación de la tecla "Enter " para la página Web. Esta acción envía el formulario de inicio de sesión para el procesamiento , como si ha pulsado manualmente la tecla "Enter " .
6
Escriba la , celda del extremo izquierdo superior de la primera hoja de cálculo de Excel el nombre del navegador para que usted acaba de enviar una contraseña. Este paso se inicia una revisión del programa de inicio de sesión. El programa revisado de utilizar la información almacenada en una hoja de trabajo , en lugar de la información contenida en el código fuente del programa, para iniciar sesión en el sitio web. Este enfoque hace que sea más fácil cambiar la información de inicio de sesión.
7
Tipo de la célula en la que contiene el nombre del navegador de la contraseña codificada en el paso 3 .
8 < p > Comunicado de "Alt -F11 " para volver a entrar al entorno de codificación de VBA. A continuación, pegue el siguiente código de programa revisado a continuación el programa automateLogin .
Public Sub automateLoginWithStoredPassword ()
clave Dim , browsername
browsername ActiveSheet.Cells = ( 1 , 1 ) . Valor
password = ActiveSheet.Cells ( 2 , 1 ) . Valor
AppActivate browsername , Verdadero
SendKeys contraseña, verdadero
Application.Wait 900 < br >
SendKeys "~" , Verdadero
End Sub
9
devolver su navegador a la página de registro y ejecute el programa revisado con las instrucciones del Paso 5 . Excel le enviará la contraseña almacenada en la hoja de trabajo a la página de inicio de sesión .