Как извлечь выгоду из книги Excel, чтобы найти что-то в веб-форме Dropbox

Question

Я работаю над проектом веб-автоматизации.Я подошел к раскрывающемуся веб-окну, где я должен выбрать значение.У меня есть селектор запросов, который отлично работает при выполнении этой работы, но теперь я хочу, чтобы этот селектор запросов находил в выпадающем списке те значения, которые взяты из значения ячейки таблицы Excel.

    With .document.querySelector("[value='536']")
        .Selected = True
        .dispatchEvent evt
    End With

Выше приведензапрос, который работает нормально.Но теперь я хочу заменить «536» из ячейки «А1».Я попытался заменить ("[value = '536']") на ([value = 'thisWorkbool.sheets. ("Sheet1"). Range (A1) .value'] "), но он показывает ошибку.

Option Explicit

Public Sub FillForm()
    Dim ie As Object, tool As Workbook

    Set tool = ActiveWorkbook
    Set ie = CreateObject("InternetExplorer.application")

    With ie
        .Visible = True
        .navigate "https://******.com/"

        While .Busy Or .readyState < 4: DoEvents: Wend

        With .document
            .getElementById("txtUserName").Value = "09100107801-01"
            .getElementById("txtPassword").Value = "Abc@1234"
            .getElementById("btnSubmit").Click
        End With

        While .Busy Or .readyState < 4: DoEvents: Wend

        .navigate "https://***************"

        While .Busy Or .readyState < 4: DoEvents: Wend

        Dim evt As Object
        Set evt = .document.createEvent("HTMLEvents")
        evt.initEvent "change", True, False

        With .document.querySelector("[value='536']")
            .Selected = True
            .dispatchEvent evt
        End With

end sub

Как поместить значение из значения ячейки "A1" листа exel в вышеприведенный код.

Answer 1

Примерно так должно работать:

Dim v
v = thisWorkbook.sheets("sheet1").Range("A1").value
With .document.querySelector("[value='" & v & "']")
    .Selected = True
    .dispatchEvent evt
End With