Problem with IE automation - getElementsByTagName

[Ken Crawford]

Greetings to all, :hi:

I am using vb code to import IE data to userform (textboxes), then when I fill some texboxes I want them to be sent to IE forms.

But I have a problem with the export to IE.

Here is a part of HTML code of the website :


<TR>
<TD nowrap="true" valign="top" width="190px" class="ms-formlabel"><H3 class="ms-standardheader">
<nobr>Customer Name</nobr>
</H3></TD>
<TD valign="top" class="ms-formbody" width="400px">
<!-- FieldName="Customer"
FieldInternalName="Customer_x0020_Name"
FieldType="SPFieldText"
-->
<span dir="none">
<input name="ctl00$m$g_1d93900d_bbd3_47c9_a907_6b574d8362ca$ctl00$ctl04$ctl03$ctl00$ctl0 0$ctl04$ctl00$ctl00$TextField" type="text" value="Microsoft" maxlength="100" id="ctl00_m_g_1d93900d_bbd3_47c9_a907_6b574d8362ca_ctl00_ctl04_ctl03_ctl00_ctl0 0_ctl04_ctl00_ctl00_TextField" title="Customer Name" class="ms-long" /><br>
</span>

</TD>
</TR>

<TR>
<TD nowrap="true" valign="top" width="190px" class="ms-formlabel"><H3 class="ms-standardheader">
<nobr>Description<span class="ms-formvalidation"> *</span></nobr>
</H3></TD>
<TD valign="top" class="ms-formbody" width="400px">
<!-- FieldName="Description"
FieldInternalName="Comment"
FieldType="SPFieldNote"
-->
<span dir="none">
<span dir="ltr">
<textarea name="ctl00$m$g_1d93900d_bbd3_47c9_a907_6b574d8362ca$ctl00$ctl04$ctl08$ctl00$ctl0 0$ctl04$ctl00$ctl00$TextField" rows="6" cols="20" id="ctl00_m_g_1d93900d_bbd3_47c9_a907_6b574d8362ca_ctl00_ctl04_ctl08_ctl00_ctl0 0_ctl04_ctl00_ctl00_TextField" title="Description" class="ms-long" dir="none">EXAMPLE DESCRIPTION</textarea>
<input name="ctl00$m$g_1d93900d_bbd3_47c9_a907_6b574d8362ca$ctl00$ctl04$ctl08$ctl00$ctl0 0$ctl04$ctl00$ctl00$TextField_spSave" type="HIDDEN" id="ctl00_m_g_1d93900d_bbd3_47c9_a907_6b574d8362ca_ctl00_ctl04_ctl08_ctl00_ctl0 0_ctl04_ctl00_ctl00_TextField_spSave" />
</span>
</span>


</TD>
</TR>


And here is vb code I created :



Dim objIE As Object
Dim inputCollection As Object
Dim inputElement As Object


Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

objIE.Navigate "address"


Do While objIE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop


Set inputCollection = objIE.Document.getElementsByTagName("input")
For Each inputElement In inputCollection
If inputElement.getAttribute("title") = "Customer Name" Then
objIE.Document.getElementById("ctl00$m$g_1d93900d_bbd3_47c9_a907_6b574d8362ca$ctl00$ctl04$ctl03$ctl00$ctl0 0$ctl04$ctl00$ctl00$TextField").Value = TextBox4.Value
Exit For
End If
Next inputElement


Set inputCollection = objIE.Document.getElementsByTagName("textarea")
For Each inputElement In inputCollection
If inputElement.getAttribute("title") = "Description" Then
objIE.Document.getElementById("ctl00$m$g_1d93900d_bbd3_47c9_a907_6b574d8362ca$ctl00$ctl04$ctl03$ctl00$ctl0 0$ctl04$ctl00$ctl00$TextField").Value = TextBox5.Value
Exit For
End If
Next inputElement

The problem is I have no idea how to make the script correctly allocate textbox values to the forms in IE, they have the same id's in the source code so there may be a conflict here.
I defined getElementsByTagName for each of them separately but it still is not working:(

Please help. Thanks in advance!

[jrajul]

Instead of getElementsByTagName, you can use querySelectorAll. This requires you to know jQuery. There are many tutorials on the web about jQuery, which gives you more flexibility to specify multiple attributes about the elements and their ancestor elements.