Sub HTML_Element_Printer()
On Error GoTo Err_Clear
sURL = "https://ernie.erau.edu/"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.navigate sURL
oBrowser.Visible = True
Do
' Wait till the Browser is loaded
Loop Until oBrowser.readyState = READYSTATE_COMPLETE
Set HTMLDoc = oBrowser.document
HTMLDoc.all.loginID.Value = "User123"
HTMLDoc.all.Password.Value = "Pass123"
For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
Debug.Print oHTML_Element.Name
Next
' oBrowser.Refresh ' Refresh If Needed
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
End Sub
Я пытаюсь использовать vba для навигации по нескольким веб-сайтам и входа на него соответственно, поэтому сейчас я использую свой школьный портал в качестве пробной версии.Кажется, код успешно работает при переходе на сайт, но я не могу ввести желаемого пользователя и пароль.Впервые я использую vba для веб-навигации и аутентификации пользователей, я надеялся найти здесь помощь и совет.Благодаря.