1

我正在做一个网络自动化项目。我来到了一个网络下拉框，我必须在其中选择一个值。我有一个查询选择器可以很好地完成这项工作，但现在我希望该查询选择器在下拉框中找到这些值，这些值取自 excel 表的单元格值。

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

以上是工作正常的查询。但现在我想从单元格 "A1" 替换 "536" 。我试图用 ([value='thisWorkbool.sheets.("sheet1").Range(A1).value']") 替换 ("[value='536']") 但它显示错误。

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

如何将 exel 表的单元格值“A1”中的值放入上述代码中。

4

1 回答 1

0

像这样的东西应该工作：

Dim v
v = thisWorkbook.sheets("sheet1").Range("A1").value
With .document.querySelector("[value='" & v & "']")
    .Selected = True
    .dispatchEvent evt
End With
于 2019-05-04T03:34:24.687 回答