1
Abrir Excel , a continuación, mostrar la ventana de código VBA pulsando " Alt -F11 ".
2 Haga doble clic en el elemento que muestra " Este libro de trabajo " en el panel de navegación en la pantalla de la izquierda. Se abrirá una ventana para introducir el código del libro actual .
3
Escriba o pegue el siguiente programa en la ventana que aparece. Este programa contempla la declaración VBA " AppActivate " para la aportación directa de la aplicación actual, Excel, para su navegador . La declaración " SendKeys " envía las pulsaciones de teclado , y la información de registro contraseña al navegador activado. El texto " { TAB }" y " ~" representan el " Tab " y "Enter " llaves. La aplicación de la declaración indica a Excel que haga una breve pausa para permitir que Windows y el navegador de su tiempo para procesar las pulsaciones de teclas que se le envían .
Public Sub sendPassword ()
AppActivate " BROWSER_NAME " , Verdadero
< p > SendKeys " YOUR_LOGIN_ID " , verdaderos
Application.Wait 1000
SendKeys "{ TAB } " , True
SendKeys " su_contraseña " , Verdadero
Application.Wait 1000
SendKeys "~" , Verdadero
End Sub
4
Reemplace el texto " BROWSER_NAME " con el nombre del navegador (por ejemplo, "Firefox ", "Internet Explorer " y " Google Chrome" ) que utilizará para iniciar sesión en la página web. Reemplace el texto " YOUR_LOGIN_ID " y " su_contraseña " con la información de registro de las peticiones de páginas web .
5
Abra la página Web que desea que su código para conectarse.
6
Haga clic en uno de los estados de la subrutina " sendPassword ", luego presione "F5 " para ejecutar dicha subrutina . Windows restaurar el foco en el navegador su programa ha activado . Su programa se escriba y luego enviar la información de registro que codifica en ella.
7
Pega el siguiente revisión del primer programa por debajo de ese programa en la ventana de desarrollo de VBA . Esta versión de " sendPassword " entrará en información de registro no del código , sino de valores en una hoja de cálculo del libro actual . La principal ventaja de este enfoque es la conveniencia de cambiar la información de registro . Los datos almacenados en una hoja de cálculo es más conveniente cambiar de lo que es el código del programa .
Pública sendPasswordStoredInWorksheet Sub ( )
sesión Dim , Pword , app
app = ActiveSheet . Las células ( 1 , 1 ) . Valor
login = ActiveSheet.Cells ( 2 , 1 ) . Valor
Pword ActiveSheet.Cells = ( 3 , 1 ) . Valor
AppActivate app , True
SendKeys de inicio de sesión , True
Application.Wait 1000
SendKeys "{ TAB } ", true
SendKeys Pword , Verdadero
Application.Wait 1000
SendKeys "~" , Verdadero
End Sub
8
Escriba el nombre del navegador y la información de registro que codifica en la primera versión del programa en las tres células principales de la primera hoja de cálculo del libro de Excel.
9
Desconectar , en el navegador, desde el sitio web de su primer programa iniciado sesión en , a continuación, vuelva al registro del sitio en la página . Ejecutar la nueva versión del programa , siguiendo las instrucciones desde el paso 6 . El inicio de sesión se iniciará como lo hizo en el paso 6 .