Acceder a varias cuentas de la web desde excel

[Alberth Roman]

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