We are having a customized website that is in Angular form and i am trying autofill it using Excel VBA for bulk creation. My problem is that i am able to auto fill all the fields of the form but they are not getting recognized and the create button stays greyed out. Only if i click using mouse and edit using keyboard it gets recognized and the create button gets highlighted.
Please help me here in getting the inputs recognized.
The script/query i have used is below:
Sub FillInternetForm()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "https://{angularwebsiteform}.com/wizard"
IE.Visible = True
While IE.Busy
DoEvents
Wend
IE.document.getElementById("mat-input-1").Value = ThisWorkbook.Sheets("Sheet1").Range("b1").Value
IE.document.getElementById("mat-input-2").Value = ThisWorkbook.Sheets("sheet1").Range("b2").Value
IE.document.getElementById("mat-input-3").Value = ThisWorkbook.Sheets("sheet1").Range("b3").Value
IE.document.getElementById("mat-input-4").Value = ThisWorkbook.Sheets("sheet1").Range("b4").Value
IE.document.getElementById("mat-input-5").Value = ThisWorkbook.Sheets("sheet1").Range("b5").Value
IE.document.getElementById("mat-input-6").Value = ThisWorkbook.Sheets("sheet1").Range("b6").Value
IE.document.getElementById("mat-input-7").Value = ThisWorkbook.Sheets("sheet1").Range("b7").Value
IE.document.getElementById("mat-input-8").Value = ThisWorkbook.Sheets("sheet1").Range("b8").Value
IE.document.getElementById("mat-input-9").Value = ThisWorkbook.Sheets("sheet1").Range("b9").Value
IE.document.getElementById("mat-input-10").Value = ThisWorkbook.Sheets("sheet1").Range("b10").Value
IE.document.getElementById("mat-input-11").Value = ThisWorkbook.Sheets("sheet1").Range("b11").Value
IE.document.getElementById("create").Click
End Sub
Please help me here in getting the inputs recognized.
The script/query i have used is below:
Sub FillInternetForm()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "https://{angularwebsiteform}.com/wizard"
IE.Visible = True
While IE.Busy
DoEvents
Wend
IE.document.getElementById("mat-input-1").Value = ThisWorkbook.Sheets("Sheet1").Range("b1").Value
IE.document.getElementById("mat-input-2").Value = ThisWorkbook.Sheets("sheet1").Range("b2").Value
IE.document.getElementById("mat-input-3").Value = ThisWorkbook.Sheets("sheet1").Range("b3").Value
IE.document.getElementById("mat-input-4").Value = ThisWorkbook.Sheets("sheet1").Range("b4").Value
IE.document.getElementById("mat-input-5").Value = ThisWorkbook.Sheets("sheet1").Range("b5").Value
IE.document.getElementById("mat-input-6").Value = ThisWorkbook.Sheets("sheet1").Range("b6").Value
IE.document.getElementById("mat-input-7").Value = ThisWorkbook.Sheets("sheet1").Range("b7").Value
IE.document.getElementById("mat-input-8").Value = ThisWorkbook.Sheets("sheet1").Range("b8").Value
IE.document.getElementById("mat-input-9").Value = ThisWorkbook.Sheets("sheet1").Range("b9").Value
IE.document.getElementById("mat-input-10").Value = ThisWorkbook.Sheets("sheet1").Range("b10").Value
IE.document.getElementById("mat-input-11").Value = ThisWorkbook.Sheets("sheet1").Range("b11").Value
IE.document.getElementById("create").Click
End Sub