Question

我正致力于自动化工作流程，我可以导航到特定网站（http://www.boxofficemojo.com/）并将值粘贴到网站的搜索栏中。我无法与VBA中的网站搜索栏进行互动。

搜索栏包含以下HTML代码：

<form name="searchbox" action="/search/q.php" method="POST">
    <input name="q" style="width: 90px; font-weight: bold;" type="text"><br>
    <input type="submit" value="Search...">
</form>

我现在拥有的代码命令似乎不起作用。我想将单元格c3中的excel值粘贴到搜索栏中，然后提交。

objIE.Document.getElementByName("q").Value = Sheets("2016").Range("c3").Value

有什么想法吗？

Answer 1

objIE.Document.getElementByName（“q”）。Value = Sheets（“2016”）。Range（“c3”）。Value

我相信你想使用“getElementsByName（）”来返回一个元素集合。假设第一个元素：

Maybe a

Answer 2

经过测试，这对我有用：

Sub Test()

    Dim IE As New InternetExplorer, Doc As HTMLDocument
    Dim oSearch As HTMLDivElement

    With IE
        .Visible = True
        .navigate "http://www.boxofficemojo.com/"
        Do While .Busy Or .readyState <> 4: DoEvents: Loop
        Set Doc = IE.Document
    End With

    Set oSearch = Doc.getElementsByClassName("nl_link")(3)
    Set oSearch = oSearch.getElementsByTagName("input")(0)
    oSearch.Value = "test"

    Doc.forms(0).submit

End Sub

将值粘贴到网站搜索栏VBA中

2 个答案: