#

MS Access, vba: getElementsByTagName

 

Folgender vba Code enthält eine vba Function, mit welcher man ein HTML Element in einer HTML Webseite anhand des Names und des HTML Element-Types (Tag) finden kann.

 

Der Aufruf wird einfach durchgeführt wie bei getElementbyTag, nur dass man auch gleich einen Namen mitgeben kann.

'-< get send-button >-

Dim input_Element As HTMLInputElement

Set input_Element = getElementByTag_and_Name("input", "command_*.anmelden")

If Not input_Element Is Nothing Then

    input_Element.Click

End If

'-</ get

 

 

Vba Code der Function:

Diese function gibt eine HTML Element zurück, welches einem HTML Tag-Name entspricht und einen HTML Element.Namen zutrifft.

Der Name kann mit einer Wildcard Zeichen wie * angegeben sein  

Private Function getElementByTag_and_Name(ByVal sTagname As String, ByVal sName As String) As HTMLHtmlElement

    '------------< getElementByTag_and_Name() >------------

    Dim browser As webBrowser

    Set browser = ctlBrowser.Object

    Dim hdoc As HTMLDocument

    Set hdoc = browser.Document

    Dim element As HTMLHtmlElement

 

    Dim return_Element As HTMLHtmlElement

    Set return_Element = Nothing

   

    '--< get Input >--

    Dim arrElements As IHTMLElementCollection

    Set arrElements = hdoc.getElementsByTagName(sTagname)

    For Each element In arrElements

        If element.Name Like sName Then

            Set return_Element = element

            Exit For

        End If

    Next

    '--</ get Input >--

   

    Set getElementByTag_and_Name = return_Element

    '------------</ getElementByTag_and_Name() >------------

End Function

 

 

In vba unter Access: die function muss nur im Code eingebettet werden. Dadurch reicht anschliessend ein einfacher Aufruf um eine HTML Element auf der Webseite zu finden.

 

 

Note: To manage HTML code in Microsoft Visual Basic for applications, you must include the MSHtml Library

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

Mobile

.

0123movie.net