Read our blogs, tips and tutorials
Try our exercises or test your skills
Watch our tutorial videos or shorts
Take a self-paced course
Read our recent newsletters
License our courseware
Book expert consultancy
Buy our publications
Get help in using our site
542 attributed reviews in the last 3 years
Refreshingly small course sizes
Outstandingly good courseware
Whizzy online classrooms
Wise Owl trainers only (no freelancers)
Almost no cancellations
We have genuine integrity
We invoice after training
Review 30+ years of Wise Owl
View our top 100 clients
Search our website
We also send out useful tips in a monthly email newsletter ...
Hi Andrew,
Thank you for sharing these tutorials – they are really great.
I am trying to use the search button on https://www.boerse-frankfurt.de/en to find a specific stock by using code similar to the tutorial.
I can get the text into the search box, but the functionality on the site, when you type in manually, is that a comboBox is made with the link to the matching stock.
The problems seems to be that the search button will not bring you to the link without the comboBox. Is there a way to fix this with a code?
You help will be really appreciated.
Best regards, Kim
Sub BrowseToSiteToGetXML()
Dim IE As New SHDocVw.InternetExplorer
Dim XetraHTMLDoc As MSHTML.HTMLDocument
Dim HTMLButtons As MSHTML.IHTMLElementCollection
Dim HTMLInput As MSHTML.IHTMLElement
IE.Visible = True
IE.navigate "https://www.boerse-frankfurt.de/en"
Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy 'Wait until site is ready
Loop
Set XetraHTMLDoc = IE.Document
Set HTMLInput = XetraHTMLDoc.getElementById("mat-input-0")
HTMLInput.Click
HTMLInput.Value = "IQQH"
Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy 'Wait until site is ready
Loop
Set HTMLButtons = XetraHTMLDoc.getElementsByTagName("button")
HTMLButtons(0).Click
End Sub
Kingsmoor House
Railway Street
GLOSSOP
SK13 2AA
Landmark Offices
99 Bishopsgate
LONDON
EC2M 3XD
Holiday Inn
25 Aytoun Street
MANCHESTER
M1 3AE
© Wise Owl Business Solutions Ltd 2024. All Rights Reserved.