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