Question

I have the following code in an HTML web page, and I am trying to use the html object library via vba engine to pull the value from within this tag:

<input name="txtAdd_Line1" disabled="disabled" size="30" maxLength="50" value="123 N 1ST ST"/>

I figure I have to use .getelementsbytagname or .getelementsbyname, but I am not sure how to grab the value. Does anyone have any ideas?

Answer 1

Here’s an example with comments, subtitute in your actual address:

Sub Example()
    'Declare needed variables
    Dim ie, elements
    Dim x As Long
    'Create IE Applction
    Set ie = CreateObject("InternetExplorer.Application")
    'Navigate to the website
    ie.navigate "C:\test.html" 'Substitute your actual address
    'Wait for website to finish loading
    Do While ie.ReadyState <> 4
    Loop

    'Find the elements
    Set elements = ie.document.getelementsbyName("txtAdd_Line1")
    'Display the value of each returned element
    For x = 0 To elements.Length - 1
        MsgBox elements(x).Value
    Next
    'Quit IE
    ie.Quit
End Sub

Based on your comment most likely just looking at the document wasn’t retrieving the actual layer of the tree you wanted, try this:

Set HTMLDoc = ie.document.frames("MainFrame").document 
With HTMLDoc 
    'This returns an (object) which contains an array of all matching elements
    a = .getElementsByName("txtAdd_Line1")
end with
For x = 0 to a.length
    msgbox a(x).value
next