将值粘贴到网站search栏VBA中
我正在自动化一个工作stream程，我导航到一个特定的网站（ http://www.boxofficemojo.com/ ）并粘贴一个值到网站的search栏。 我无法与VBA中的网站search栏进行交互。
search栏有以下的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值粘贴到search栏中，然后提交。
objIE.Document.getElementByName("q").Value = Sheets("2016").Range("c3").Value
有任何想法吗？
经过testing，这对我有用：
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
objIE.Document.getElementByName（“q”）。Value = Sheets（“2016”）。Range（“c3”）。Value
我相信你想要使用“getElementsByName（）”，它返回一组元素。 假设第一个元素：
objIE.Document.getElementsByName("q")[0].Value = Sheets("2016").Range("c3").Value