getElementsByName in VBA

[Stevinho]

I have a problem with entering data from Excel into a web browser using the code below. He reports error number 438 to me and I don't know how to solve it.
The error appeared here:

iframeDoc.getElementsByName("matbr").Value = Range("a2").Value

This is my full code:

 Sub provera_menice()
    
    Dim wb As Workbook
    Set wb = ThisWorkbook
    
    'Dim rgMB As Range
    'Set rgMB = Application.InputBox("Izabrati MB klijenta koji se deblokira.", Type:=8)
    
    'Dim r As Long
    'Dim k As Long
    'r = rgMB.Row
    'k = rgMB.Column
    
        Dim objIE As InternetExplorer 'special object variable representing the IE browser
        Dim aEle As HTMLLinkElement 'special object variable for an <a> (link) element
     
        'initiating a new instance of Internet Explorer and asigning it to objIE
        Set objIE = New InternetExplorer
     
        'make IE browser visible (False would allow IE to run in the background)
        objIE.Visible = True
     
        'navigate IE to this web page (a pretty neat search engine really)
        objIE.navigate "https://nbs.rs/sr_RS/drugi-nivo-navigacije/servisi/duznici-pn/"
            
        'wait here a few seconds while the browser is busy
        Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
     
        Dim ieDoc As MSHTML.HTMLDocument
        Set ieDoc = objIE.document
        
        Dim iframeDoc As MSHTML.HTMLDocument
        Set iframeDoc = ieDoc.frames(0).document
        
        'in the search box put some cell value
        'MB: <input class="form-control" name="matbr" type="text" tabindex="4" size="13" maxlength="8" value="">
        iframeDoc.getElementsByName("matbr").Value = Range("a2").Value
        
        'search: <input class="btn" type="submit" name="send" id="send" value="????????" tabindex="8">
        iframeDoc.getElementById("send").Click
        
    End Sub

I searched for a solution on the net, but I can't fix the error.

I try to set loop, but nothing entry.

    Set x = iframeDoc.getElementsByName("matbr")
    For i = 0 To x.Length
        If x(i) = "matbr" Then
            'in the search box put some cell value
            'MB: <input class="form-control" name="matbr" type="text" tabindex="4" size="13" maxlength="8" value="">
            iframeDoc.getElementsByName("matbr").Value = Range("a2").Value
            'search: <input class="btn" type="submit" name="send" id="send" value="????????" tabindex="8">
            iframeDoc.getElementById("send").Click
        End If
        i = i + 1
    Next

 

[Stevinho]

I found a solution!
Here is the correct code:

 Sub provera_menice()
    
    Dim wb As Workbook
    Set wb = ThisWorkbook
    
    'Dim rgMB As Range
    'Set rgMB = Application.InputBox("Izabrati MB klijenta koji se deblokira.", Type:=8)
    
    'Dim r As Long
    'Dim k As Long
    'r = rgMB.Row
    'k = rgMB.Column
    
        Dim objIE As InternetExplorer 'special object variable representing the IE browser
        Dim aEle As HTMLLinkElement 'special object variable for an <a> (link) element
     
        'initiating a new instance of Internet Explorer and asigning it to objIE
        Set objIE = New InternetExplorer
     
        'make IE browser visible (False would allow IE to run in the background)
        objIE.Visible = True
     
        'navigate IE to this web page (a pretty neat search engine really)
        objIE.navigate "https://nbs.rs/sr_RS/drugi-nivo-navigacije/servisi/duznici-pn/"
            
        'wait here a few seconds while the browser is busy
        Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
     
        Dim ieDoc As MSHTML.HTMLDocument
        Set ieDoc = objIE.document
        
        Dim iframeDoc As MSHTML.HTMLDocument
        Set iframeDoc = ieDoc.frames(0).document

        iframeDoc.getElementsByName("matbr")(1).Value = Range("a2").Value
        iframeDoc.getElementById("send").Click

        Range("b4").Value = iframeDoc.getElementsByClassName("table_text cell")(5).textContent
     
    End Sub

 

[bobsan42]

Try like this:

        Dim frm As Variant
        Set frm = iframeDoc.getElementsByName("matbr")
        frm.Item(1).Value = Range("a2").Value

 

[Stevinho]

@bobsan42 Thank you for your response, but I haven't tried your suggestion, because I found the solution I pin up above.

 

[bobsan42]

Well it's basically the same thing.
You go a level deeper using the item's index.
But it's a good feeling to solve things yourself ?.