СОВЕТУЙТЕ: доступ к объектам PHP в Internet Explorer из Excel VBA

Я пытаюсь автоматизировать процесс загрузки в наше хранилище данных. Из 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 = "username@bimbo.com" '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

0

Решение

пытаться objIE.document.getElementById("ENL8").Click

0

Другие решения

Других решений пока нет …

По вопросам рекламы ammmcru@yandex.ru
Adblock
detector