从 Excel 填写 Internet Explorer 表单

Question

我想在图片左侧的网站“选择选择器”部分填写信息。

网站

有一个元素名称“picker”，但它不起作用。

正在使用 jQuery 自动完成功能完成搜索栏，该自动完成功能提交了一个表单，该表单从自动完成框中导航到已选择的联系人

我试过了

IE.Document.All("picker").Value = "Testing"

IE.Document.GetElementByID("pickerCtrl.currentPicker").Value = "Testing"

IE.Document.GetElementsByClassName("input-group input-group-sm").Item(0).Value = "Testing"

附言。
有没有办法将行复制并粘贴到光标所在的当前位置？

我可以发送键标签 18 次以到达特定的搜索栏，但不知道如何从我的 Excel 工作表中插入整行。

例如。 IE.Document.all("picker").Value = ThisWorkbook.Sheets("Main_1").Range("B" & intRow).Value

我对此完全陌生。

Answer 1

尝试使用下面的示例进行测试可能有助于解决问题。

Sub demo1()

    Dim i As Long
    Dim URL As String
    Dim IE As Object
    Dim HWNDSrc As Long

    Set IE = CreateObject("InternetExplorer.Application")

    IE.Visible = True

    URL = "D:\Backup20190913\tests\367.html"

    IE.Navigate URL

    Do While IE.ReadyState = 4: DoEvents: Loop
    Do Until IE.ReadyState = 4: DoEvents: Loop

    IE.Document.querySelector("[name='picker']").Value = "test value"

    Stop
    Set IE = Nothing

End Sub

HTML

<input class="form-control ng-valid ng-isolate-scope ng-touched ng-dirty" ng-model="pickerCtrl.currentpicker" name="picker" type="text" typeahead="" typeahead-source="pickerCtrl.getpickerStrings()" ng-disabled="pickerCtrl.errorLoadingPickers || pickerCtrl.noPickerstrings" ng-hide="pickerCtrl.disableTypeahead" autocomplete="off">

输出：