Автоматизация нажатия «Кнопки» на веб-страницах - PullRequest
Новая
       34

Автоматизация нажатия «Кнопки» на веб-страницах

0 голосов
/ 16 ноября 2018

Может кто-нибудь помочь, пожалуйста, я не могу заставить работать ниже 

Sub Automate_IE_Load_Page()
'This will load a webpage in IE
    Dim i As Long
    Dim URL As String
    Dim IE As InternetExplorer
    Dim objElement As Object
    Dim objCollection As Object

    'Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    URL = "https://Whatever"   'Not putting the URL up here
    IE.Navigate URL
    Do Until IE.ReadyState = 4: DoEvents: Loop


    IE.Document.getElementbyid("menuoptionCell_Excel2007+").Click '(Fails here)
    'Set Button = IE.Document.getElementbyid("menuoptionCell_Excel2007+")
    'Button.Click

End Sub

я тоже пробовал 

   IE.Document.getElementsbyClass("contextMenuOptionTextCell")(0).Click

Он говорит, что мне нужен объект. Я пробовал разные методы, но ни один из них не работает. Я скажу, что я использую слово «кнопка» свободно, поскольку это на самом деле не кнопка, но не уверен, как она называется. Ниже приведены идентификаторы, используемые на веб-странице, и я не совсем уверен, на что мне нужно нажать, но ни одна из них не работает 

<td class="contextMenuOptionTextCell">
    <span class="contextMenuOptionText">Excel 2007+</span></td>

<td id="menuoptionCell_Excel2007+" style="vertical-align: top; width: 16px;"></td>

спасибо

Mike

...