#

Download:

Datei 1: Demo_SubQuery.zip

MS Access, vba: getElementsByTagName

 

 

Wie wertet man in Visual Basic eine Sammlung von HTML Elementen anhand des Tags aus?

Wenn man in vba eine Webseite mit HTML auswertet als  HTMLDocument, dann findet man die meisten HTML Elemente anhand der ID oder anhand des Names.

Sollte die ID nicht vorhanden sein, dann sucht man eine HTML Element anhand des Typs wie Input-Tag.

 

Hierzu muss man die HTML Ergebnisse in eine HTML Sammlung übergeben.

Zur Übergabe wird die Schnittstelle: IHTMLElementCollection benötigt.

Dim arrElements As IHTMLElementCollection

Set arrElements = hdoc.getElementsByTagName("input")

..

 

Anschliessend durchsucht man jedes Element der Collection in einem For Each -Loop

Dim arrElements As IHTMLElementCollection

Set arrElements = hdoc.getElementsByTagName("input")

For Each element In arrElements

    If element.Name Like "command_*.anmelden" Then

        Dim input_Element As HTMLInputElement

        Set input_Element = element

        input_Element.Click

    End If

Next

 

 

In Access Code während des Breakpoints.

Man sieht, dass die Rückgabe der getElementsByTagName zu einer DispHTMLElementCollection führt.

 

Vba Code zum Auswerten einer HTML Input Sammlung

 

'------< Fill Web-Form >------

Dim hdoc As HTMLDocument

Set hdoc = browser.Document

        

    '--< get Input >--

Dim element As HTMLHtmlElement

Set element = hdoc.getElementById("txtBenutzerkennung")

element.innerText = tbxBenutzerkennung.Value

 

Set element = hdoc.getElementById("pwdPin")

element.innerText = tbxPasswort.Value

'--</ get Input >--

Dim arrElements As IHTMLElementCollection

Set arrElements = hdoc.getElementsByTagName("input")

For Each element In arrElements

    If element.Name Like "command_*.anmelden" Then

        Dim input_Element As HTMLInputElement

        Set input_Element = element

        input_Element.Click

    End If

Next

'--</ get Input >--

 

 

Notiz: zum Verwalten von HTML Code in Microsoft Visual Basic for applications muss man die MSHtml Library einbinden

https://microsoft-programmierer.de/Office-365/Access/Controls/MS-Access_colon_-Webseite-mit-HTML-Document-lesen-und-HTML-Elemente-verwalten?2091

Mobile

.

0123movie.net