Я пытаюсь автоматизировать процесс загрузки в наше хранилище данных. Из Excel VBA я инициирую сеанс IE в наше хранилище данных> войдите в систему с моими учетными данными> затем перейдите на страницу для загрузки, но именно здесь у меня возникают проблемы.
URL не меняется при навигации по этому сайту, я считаю, что он написан на PHP. Поэтому мне нужно нажать на конкретное изображение — но я не знаю как.
В коде ниже я добавил свои комментарии и сообщение об ошибке, полученное при отладке. Я также добавил изображение веб-сайта, кнопку, которую я пытаюсь нажать, и осмотр элемента. Пожалуйста, помогите и спасибо всем заранее! <3 к переполнению стека!
Подпись, Дуг Фреш
Private Sub CommandButton2_Click()
Dim objIE As InternetExplorer
Dim aEle As HTMLLinkElement
Dim ele As Object
Dim y As Integer
Dim result As String
Set objIE = New InternetExplorer
objIE.Visible = True
objIE.navigate "http://kpionline.bitam.com/english/memberlogin.php"Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
objIE.document.getElementById("user_name").Value = "[email protected]" 'not real
objIE.document.getElementById("user_pwd").Value = "Bimbo2017" 'not real
objIE.document.getElementById("Login").Click
Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
objIE.navigate "https://kpionline7.bitam.com/artus/genvi_test/LoadStage.php?txtRepositorio=fbm_bmd_0030&txtUser=xxxxxxx&txtPassword=xxxxx"Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
'**************************************************************************
'How do I click this icon???
objIE.document.getElementById("ENL8").getElementsByTagName("img")(0).Click
Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
'Please see image for php/js website code
'ERROR: Run-time error '424': Object required
'**************************************************************************
objIE.Quit
End Sub
пытаться objIE.document.getElementById("ENL8").Click
Других решений пока нет …