Я новичок ie в VBA. Я использовал приведенный ниже сценарий и успешно вхожу в систему (я копирую идентификатор и пароль из ячеек таблицы Excel B1 и B2).
Мне нужно
- select / щелкните соответствующую вкладку (в главном меню - html ниже), а затем
- скопируйте значения из таблицы Excel.
Я борюсь с 1. шаг, который заключается в выборе / щелчке по вкладке. Может кто-нибудь помочь мне, как перейти к следующему шагу?
Sub ExcelWebsiteLogin()
Dim ie As Object
Dim frm, As Object
Dim element As Variant
Dim ID, Pass, URL As String
Set LoginDAta = ThisWorkbook.Sheets("Sheet1")
ID = LoginDAta.Cells(1, "B").Value
Pass = LoginDAta.Cells(2, "B").Value
Set ie = New InternetExplorerMedium
URL = "http://xxxxxxx/toolname/login.do"
ie.navigate URL
While ie.readyState <> 4: DoEvents: Wend
Set frm = ie.document.getElementsByName("loginForm").Item(0)
If frm Is Nothing Then
MsgBox "Login form not found."
ie.Quit
Set ie = Nothing
Else
ie.Visible = True
For Each element In frm.elements
On Error Resume Next
'Input values into the form fields in the browser
Select Case element.Name
Case "userName": element.Value = ID 'username
Case "password": element.Value = Pass 'password
End Select
Next
frm.submit 'submit the form
End If
main menu HTML
<div class="page-menu">
<ul>
<li><a href="#1" class="page-1 selected">round</a></li>
<li><a href="#2" class="page-2">round rating</a></li>
<li><a href="#5" class="page-5">business partners</a></li>
<li><a href="#4" class="page-4">reports</a></li>
<li><a href="#3" class="page-3">setup</a></li>
</ul>
</div>