Our training courses
AI - Articial Intelligence Azure C# Excel Microsoft 365 MySQL Power Apps Power Automate Power BI and DAX Python Report Builder SQL SQL Server VBA Macros

Other training resources
Tips and tricks Guides and tutorials Blogs Exercises YouTube tutorials YouTube shorts Test your skills Consultancy Courseware Self-paced courses Newsletters Publications

Our training venues
London Manchester Across the UK At your site Online

Why we are different
Hundreds of published reviews Small class sizes Outstanding courseware Online classroom (Almost) no cancellations Wise Owl trainers only Genuine integrity Invoices after training 30+ years of Wise Owl Our top 100 clients

Details for kibra

kibra has participated in the following threads:

Added by kibra on 20 Mar 2021 at 16:42

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

Head office

Kingsmoor House

Railway Street

GLOSSOP

SK13 2AA

London

Landmark Offices

99 Bishopsgate

LONDON

EC2M 3XD

Manchester

Holiday Inn

25 Aytoun Street

MANCHESTER

M1 3AE

© Wise Owl Business Solutions Ltd 2024. All Rights Reserved.

End of small page here
Please be aware that our website uses cookies!
I'm OK with this Tell me more ...