Hi Guys, i googled and managed to find this simple code. However, i encountered error message " Run-time error '438' : Object doesnt support this property or method". I have tried both Byname and ByID but was returned with the same error code.
Below is my vba code. i have masked the web link to xxx.
And below infor from the web page
Thanks for the guidance..
Below is my vba code. i have masked the web link to xxx.
Sub FillInternetForm()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "xxx"
IE.Visible = True
While IE.Busy
DoEvents
Wend
IE.Document.getElementByName("Domain.Instrument").Value = ThisWorkbook.Sheets("sheet1").Range("a1")
End Sub
And below infor from the web page
[TABLE="width: 1790"]
<colgroup><col></colgroup><tbody>[TR]
[TD]<label for="Domain_Instrument"><a tabindex="-1" class="app-link" href="xxx" data-bind="href: { url: 'xxx', observe: [editingItem.instrument], keys: ['edit'] }">Instrument</a></label>[/TD]
[/TR]
[TR]
[TD]<input name="Domain.Instrument" id="Domain_Instrument" type="text" value="" autocomplete="off" data-bind="filterValue: editingItem.instrument, fieldMeta: editingItem.instrument, filter: 'xxx', optionsText: '__key__', restrictToList: 'The field Instrument has an invalid selection.'" data-lookup-display-name="Instrument" data-prefix="editingItem">[/TD]
[/TR]
</tbody>[/TABLE]
Thanks for the guidance..