从Excel填充Internet Explorer表单

Question

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

SITE

有一个元素名称'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"

PS。是否可以仅将行复制并粘贴到光标所在的当前位置？

我可以发送18次sendkeys标签到特定的搜索栏，但不知道如何从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">

输出：