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

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>

我现在似乎无法正常工作的代码命令在下面。我想将Excel值从单元C3粘贴到搜索栏中，然后提交。

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

有什么想法？

Answer 1

objie.document.getElementByName（" q"）。value = sheets（" 2016"）。range（" c3"）。value

我相信您想使用返回元素集合的" getElementsByname（）"。假设第一个元素：

objIE.Document.getElementsByName("q")[0].Value = Sheets("2016").Range("c3").Value

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