Autofill IE form based on Excel data

[Drwats0n]

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.

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

<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>

<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">

<colgroup><col></colgroup><tbody>
</tbody>

Thanks for the guidance..

 

[mrshl9898]

Can you paste the script for that object from the IE browser?

Really unhelpful if there's no URL...

 

[Drwats0n]

Sorry i can't post the URL as its password protected. The below is the web page information i trying to post in my original post.

label for="Domain_Instrument"a tabindex="-1" class="app-link" href="xxx" data-bind="href: { url: 'xxx', observe: [editingItem.instrument], keys: ['edit'] }"Instrument

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"

<colgroup><col></colgroup><tbody>
</tbody>

 

[Drwats0n]

Can you paste the script for that object from the IE browser?

Really unhelpful if there's no URL...

Hi so sorry, can't paste the url here as its password protected. I have posted bit of the script below and i hope it helps
Do let me know what else is helpful and i will paste it here.

Thankss

 

[mrshl9898]

Looks like a pretty standard input, can't see where the issue would lie from the info given. I'd use a near identical:

Sub IEnav()


    Dim IE As Object
     
Set IE = CreateObject("InternetExplorer.Application")


    With IE
        .Visible = True
        .navigate "www.google.com.au"
    While .Busy Or .ReadyState <> 4: DoEvents: Wend


        Set dominst = IE.Document.getElementById("Domain_Instrument")
        dominst.Value = ThisWorkbook.Sheets("sheet1").Range("a1").Value
    
    End With


End Sub

Can you interact with anything else on the page? Looping through items may be an option, or worst case getting somewhere and tab-ing through.

 

[mrshl9898]

Do you have any reference libraries added? I have a file I use for IE which has the following (you may need one or two, it's been a while since I added them or looked into it). A bit of a long shot as I believe you'd have a different error if this was the case.

Microsoft XML
Microsoft HTML Object Library
Microsoft Internet Controls

 

[Drwats0n]

Looks like a pretty standard input, can't see where the issue would lie from the info given. I'd use a near identical:

Sub IEnav()


    Dim IE As Object
     
Set IE = CreateObject("InternetExplorer.Application")


    With IE
        .Visible = True
        .navigate "www.google.com.au"
    While .Busy Or .ReadyState <> 4: DoEvents: Wend


        Set dominst = IE.Document.getElementById("Domain_Instrument")
        dominst.Value = ThisWorkbook.Sheets("sheet1").Range("a1").Value
    
    End With


End Sub

Can you interact with anything else on the page? Looping through items may be an option, or worst case getting somewhere and tab-ing through.

Hi, i tried this but was returned with an error " Run time Error '13': Type mismatch"

 

[Drwats0n]

Do you have any reference libraries added? I have a file I use for IE which has the following (you may need one or two, it's been a while since I added them or looked into it). A bit of a long shot as I believe you'd have a different error if this was the case.

Microsoft XML
Microsoft HTML Object Library
Microsoft Internet Controls

Hi no...i do not have any reference library

 

[mrshl9898]

Fingers crossed. Tools>References. Tick the items (in case you were unaware).

This may also assist.
https://stackoverflow.com/questions...ype-system-comobject-to-interface-type-mshtml

 

[Drwats0n]

i have checked the boxes but still its the same error. Is there anything else i can share of the script so you will have a better idea?