Please advise the codes I used

[LadyTiara]

Hi

I got the below vba code from this site. The code will automatically open the site in IE(will be using different url) and will import files as well. When I ran this code,it did not work due to incorrect elementsTagName and maybe InputType as well. What should be the correct codes? I am not sure. The second part is the html codes.

Please help check the codes.

Sub File_Test() 
Dim HTMLDoc As MSHTML.HTMLDocument 
Dim HTMLButtons As MSHTML.IHTMLElementCollection Dim HTMLButton As MSHTML.IHTMLElement 
Dim btnInput As MSHTML.IHTMLInputElement 
Dim ie As Object 
Dim pointer As Integer 
Set ie = CreateObject("internetexplorer.application") ie.Visible = True ie.navigate "http://www.htmlquick.com/reference/tags/input-file.html" 

Do While ie.readyState <> READYSTATE_COMPLETE Loop 

Set HTMLDoc = ie.document 
Set HTMLButtons = HTMLDoc.getElementsByTagName("Upload Files") 
For Each HTMLButton In HTMLButtons 

For Each btnInput In HTMLButtons 

If btnInput.Type = "button" Then HTMLButton.Click btnInput.Value = "C:\temp\test.txt" pointer = 1 Exit For 

End If 
Next btnInput If pointer = 1 Then Exit For Next

End sub

]

    <button title="Upload Files" class="button button--white xc-action-nav__button ng-binding ng-scope" type="button" loading-key="0" ng-click="setLoading('group1', '0'); " ng-disabled="isLoading('group1', null)"><span class="spinner-transition" ng-class="{'spinner spinner--is-loading': isLoading('group1', '0')}"></span> Upload Files</button>

Thank you!

 

[DanteAmor]

I did tests with the following and it doesn't send me an error, it reaches the part where it opens a window to select a file.

Sub File_Test()
  Dim HTMLDoc As MSHTML.HTMLDocument
  Dim HTMLButtons As MSHTML.IHTMLElementCollection
  Dim HTMLButton As MSHTML.IHTMLElement
  Dim btnInput As MSHTML.IHTMLInputElement
  Dim ie As Object
  Dim pointer As Integer
  '
  Set ie = CreateObject("internetexplorer.application")
  ie.Visible = True
  ie.navigate "http://www.htmlquick.com/reference/tags/input-file.html"
  Do While ie.readyState <> READYSTATE_COMPLETE
  Loop
  Set HTMLDoc = ie.document
  Set HTMLButtons = HTMLDoc.getElementsByName("[COLOR=#0000ff]uploadedfile[/COLOR]")
  For Each HTMLButton In HTMLButtons
    For Each btnInput In HTMLButtons
      If btnInput.Type = "[COLOR=#0000ff]file[/COLOR]" Then
        HTMLButton.Click
        btnInput.Value = "C:\temp\test.txt"
        pointer = 1
        Exit For      
      End If
    Next btnInput
    If pointer = 1 Then Exit For
  Next
End Sub