' Copy data from excel cell, row 2 and column 8, to Google Chrome. This is the username.
Application.SendKeys (Cells(2, 8).Value)
' Tab
Application.SendKeys ("{TAB}")
' Copy data from excel cell, row 3 and column 8, to Google Chrome. This is the pasword.
Application.SendKeys (Cells(3, 8).Value)
' Intro
Application.SendKeys ("~")
Call TiempoPasa
Application.SendKeys ("{TAB}")
Application.SendKeys ("~")
Call TiempoPasa
End Sub
El siguiente macro lo utilizo para esperar a que Google Chrome abra la página web
Public Sub Timegoes()
Dim r As Integer
For r = 1 To 10
Cells(2, 4).Value = Time
Cells(3, 4).Value = r
Application.Wait (Now + TimeValue("00:00:01"))
Next r
End Sub
A partir de ahí, lo que necesito es copiar unos número de la celda A2, y copiarlos en Google Chrome y hacer una búsqueda en la web de esos números, y me dará como respuesta un fichero excel con otros números, que descargaré de la web. Después el macro debería ir a la celda A3, y coiar los números y pegarlos en Google Chrome......y así hasta la última celda con datos.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
I have created the following macros to enter to a website with user and password
He creado el siguiente macro para entrar en una web con un usuario y contraseña (copiando datos de un fichero excel con esos datos).
Public Sub A_Consulta_Serial_Parnter_Center()
ActiveWorkbook.FollowHyperlink Address:="https://www.zzzz.com", NewWindow:=False, AddHistory:=True
Application.WindowState = xlNormal
' Wait for a little bit to let website upload
Call Timegoes
' Copy data from excel cell, row 2 and column 8, to Google Chrome. This is the username.
Application.SendKeys (Cells(2, 8).Value)
' Tab
Application.SendKeys ("{TAB}")
' Copy data from excel cell, row 3 and column 8, to Google Chrome. This is the pasword.
Application.SendKeys (Cells(3, 8).Value)
' Intro
Application.SendKeys ("~")
Call TiempoPasa
Application.SendKeys ("{TAB}")
Application.SendKeys ("~")
Call TiempoPasa
End Sub
El siguiente macro lo utilizo para esperar a que Google Chrome abra la página web
Public Sub Timegoes()
Dim r As Integer
For r = 1 To 10
Cells(2, 4).Value = Time
Cells(3, 4).Value = r
Application.Wait (Now + TimeValue("00:00:01"))
Next r
End Sub
A partir de ahí, lo que necesito es copiar unos número de la celda A2, y copiarlos en Google Chrome y hacer una búsqueda en la web de esos números, y me dará como respuesta un fichero excel con otros números, que descargaré de la web. Después el macro debería ir a la celda A3, y coiar los números y pegarlos en Google Chrome......y así hasta la última celda con datos.