Saltar al contenido

Acceder a varias cuentas de la web desde excel

publicado

Hola, cree un código, que la intención es acceder a varias cuentas de la web sin necesidad de abrir la pagina y escribirlas manualmente el usuario y contraseña, pero al ejecutarlo genera un error al tratar de encontrar los campos para asignar los datos de la cuenta y acceder a ella.

Sub AccesoWebT()
Dim acce As Object
Set acce = CreateObject("Shell.Application")
acce.ShellExecute "chrome.exe", "https://cfdiau.sat.gob.mx/nidp/app/login?id=SATUPCFDiCon&sid=0&option=credential&sid=0"

While acce.Busy
DoEvents
Wend

On Error Resume Next
acce.Document.all.Item("Ecom_User_ID").Value = Range("B1").Value
acce.Document.all.Item("Ecom_Password").Value = Range("B2").Value
acce.Visible = True
acce.Navigate ("javascript:login()")
Set IE = Nothing
End Sub
Sub AccesoWebCORREO()
Dim acce As Object
Set acce = CreateObject("Shell.Application")
acce.ShellExecute "chrome.exe", "https://mail.google.com"

While acce.Busy
DoEvents
Wend

On Error Resume Next
acce.Document.all.Item("Email").Value = Range("B10").Value
acce.Document.all.Item("Passwd").Value = Range("B11").Value
acce.Visible = True
acce.Navigate ("javascript:login()")
Set IE = Nothing
End Sub[/CODE]

Cuentas.xls

Featured Replies

No hay posts para mostrar

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.