Вход в веб-сайт с помощью VBA

Question

Я пытаюсь войти в Facebook, используя excel-vba код из моего Excel следующим образом:

Sub CallChrome() 
    Set ie = CreateObject("InternetExplorer.application") 
     ie.Visible = True 
     ie.Navigate ("https://www.fb.com") 
     Do 
      If ie.ReadyState = 4 Then 
       ie.Visible = False 
       Exit Do 
      Else 
       DoEvents 
      End If 
     Loop 
     ie.Document.Forms(0).all("Username").Value = "username" 
     ie.Document.Forms(0).all("Password").Value = "password" 
     ie.Document.Forms(0).submit 

    End Sub 

Однако, это показывает ошибку «ошибка Требуется объект 424», на ie.Document.Forms(0) .. .... Хотя страница входа в систему отображается, я не могу передать свои учетные данные.

Answer 1

Это сработало. Я заменил это:

ie.Document.Forms(0).all("Username").Value = "username" 
    ie.Document.Forms(0).all("Password").Value = "password" 

с этим:

ie.Document.all.Item("email").Value = "username" 
    ie.Document.all.Item("pass").Value = "password"