Обновление данных на веб-портале на основе листа - PullRequest
0 голосов
/ 03 апреля 2020

Что я пытаюсь сделать: обновить метаданные записи на основе данных веб-портала в таблице Excel

До сих пор мне удавалось войти на страницу:

 Dim i As SHDocVw.InternetExplorer
    set i - New internetexplorer
    i.Visible = True
    i.Navigate ("URL")
    Do While i.ReadyState <> READY_COMPLETE Loop
    Dim idoc As MSHTML.HTML.Document
    Set idoc = i.Document
    idoc.all.login.Value = "ID"
    idoc.all.pass.Value = "password"
    idoc.getelementbyid("login_button").Click

Когда я пытаюсь getelementbyID или пометить для следующего выпадающего меню, idoc.doc.getelementbyid("order").Click, это не работает .. Я новичок в этом, любые рекомендации будут действительно полезны. Я НЕ ищу бесплатные коды ... просто укажите мне правильное направление, и я буду исследовать

Обновление Так что я устранил проблему с входом в систему, используя ссылку SSO сейчас, обновленный код и это часть работ:

Dim i As SHDocVw.InternetExplorer 
set i - New internetexplorer 
i.Visible = True 
i.Navigate ("URL") 
Do While i.ReadyState <> READY_COMPLETE 
Loop 
Dim doc As MSHTML.HTML.Document 
Set doc = i.Document 
Dim ele As Mshtml.ihtmlelement 
Dim eles As mshtml.ihtmlelementcollection 
Doc.getelementsbytagname("input").item("order").value = _
            worksheet("sheet1").range("a1").value 

.. НЕ работает: когда я вызываю кнопку поиска по имени тега и .click

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...