如果只知道 ng-model，则使用 VBA 填充 IE 表单

Question

网页：

input ng-model="vm.form.model.maxDepth" type="text" 
class="form-control ng-pristine ng-valid ng-not-empty ng-touched" style=""

类型和类在所有字段中都相同。所以我只能使用 Ng-model。 IE表单如何填写？

这些都不起作用：

Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate ("https://page.com")
Set daug = Worksheets("Sheet1").Range("G2")
i = 1
oIE.document.all.Item("vm.form.model.maxDepth")(1).Focus
oIE.document.all("vm.form.model.maxDepth")(1).innerText = daug(i)
oIE.document.all("vm.form.model.maxDepth")(1).Value = daug(i)
oIE.document.all("vm.form.model.maxDepth")(1).innerText = daug(i)
oIE.document.parentWindow.execScript.angular.element(document.getElementByTagName("input")(15)).scope().vm.form.Model.maxDepth = "112233"
oIE.document.qetElementsByClassName("vm.form.model.maxDepth").Value = daug(i)
oIE.document.parentWindow.execScript.angular.element(document.getElementByTagName("input")(15)).scope().vm.form.Model.maxDepth = "112233"

For Each element In oIE.document.getElementsByTagName("input")
If InStr(element.vbTextCompare, "vm.form.model.maxDepth") <> 0 Then

If element.hasAttribute("ng-model") & element.getAttribute("ng-model") = "vm.form.model.maxDepth" Then
Debug.Print (element.innerText)
    element.Value = daug(i)
    Exit For
End If
Next

Answer 1

你尝试过使用

Set oIE = New InternetExplorerMedium