Ik heb volgende code die werkt, maar geeft een foutmelding als je te traag reageert
Je vult een userform in en dan kan je klikken op een knop die u de verantwoordelijken zal aangeven via een organogram
De code gaat naar een website en vult daar de naam van de persoon in en klikt op de knop
Vervolgens geeft hij het resultaat weer zie foto
hier zou je dan op "view organization" moeten klikken of de pc het laten doen
ben je hier te laat met klikken dan krijg je een foutmelding
Ben je niet te laat gaat hij naar volgend scherm
dan gaat de code automatisch de namen van de verantwoordelijken in de userform zetten
hier is de code
Is het mogelijk dat de pc automatisch op deze knop klikt 'view profile'
hier is de html code waar hij op moet drukken
andere suggesties mogen ook
Je vult een userform in en dan kan je klikken op een knop die u de verantwoordelijken zal aangeven via een organogram
De code gaat naar een website en vult daar de naam van de persoon in en klikt op de knop
Vervolgens geeft hij het resultaat weer zie foto
hier zou je dan op "view organization" moeten klikken of de pc het laten doen
ben je hier te laat met klikken dan krijg je een foutmelding
Ben je niet te laat gaat hij naar volgend scherm
dan gaat de code automatisch de namen van de verantwoordelijken in de userform zetten
hier is de code
Code:
Sub test()
Dim myrange As Range
Dim IE As Object
Set IE = CreateObject("Internetexplorer.application")
'opent website
IE.navigate "http://intouch.toyota-europe.com/Pages/default.aspx"
IE.Visible = True
While IE.Busy
DoEvents
Wend
Application.Wait (Now + TimeValue("00:00:03"))
' gaat waarde van userform in textbox zetten op de website
fIE.document.all("ctl00_ucPeopleSearch_txtPeopleSearch").Value = speeding1.TextBox1.Value
' Klikt vervolgens op de button om verder te gaan naar een volgende pagina
IE.document.all("ctl00$ucPeopleSearch$btnPeopleSearch").Click
'code stopt 10 seconden omwille van dat er soms meerdere namen kunnen voorkomen
'na 10 seconden gaat hij code verder ontwikkelen
Application.Wait (Now + TimeValue("00:00:10"))
Dim doc As HTMLDocument 'variable for document or data which need to be extracted out of webpage
Set doc = IE.document
Set classColl = doc.getElementsByClassName("managers")
Set imgTgt = classColl(0).getElementsByTagName("img")
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Application.Wait (Now() + TimeValue("00:00:01")) ' For internal page refresh or loading
speeding1.TextBox2.Value = imgTgt(2).getAttribute("alt")
speeding1.TextBox3.Value = imgTgt(1).getAttribute("alt")
speeding1.TextBox4.Value = imgTgt(0).getAttribute("alt")
End SubIs het mogelijk dat de pc automatisch op deze knop klikt 'view profile'
hier is de html code waar hij op moet drukken
HTML:
<A id=SRB_g_718df5d8_c672_4a05_8495_502ef1a5fbc3_1_OrgBrowserLink href="http://home.toyota-europe.com/OrganizationView.aspx?ProfileType=User&accountname=COMMON%5CBHE0138&positionid=00018835">View organisation</A>andere suggesties mogen ook
