как перемещаться по веб-инструменту с помощью VBA? - PullRequest
0 голосов
/ 03 августа 2020

Я новичок ie в VBA. Я использовал приведенный ниже сценарий и успешно вхожу в систему (я копирую идентификатор и пароль из ячеек таблицы Excel B1 и B2).

Мне нужно

  1. select / щелкните соответствующую вкладку (в главном меню - html ниже), а затем
  2. скопируйте значения из таблицы 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>
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...