按名称获取元素并设置其值

Question

Sub FlashReportAutomation()
 
  Dim web As Object
  Dim doc As HTMLDocument
    
  Set web = CreateObject("internetexplorer.application")
  
  web.Visible = True
  web.navigate "http://google.com"
  
  Do While web.Busy
  Application.Wait DateAdd("s", 2, Now)
  Loop
  
  
Set doc = web.Document

web.Document.getElementsByName("q").Value = "Robert"

End Sub

如果未提及元素 ID，我将无法正常工作。 有什么帮助吗？

Answer 1

我同意 Tim Williams 提出的关于传递名为“Q”的元素的索引号的建议。

我注意到的另一件事是，在下面的行中，您设置了文档 object。

Set doc = web.Document

在将值分配给元素时，您再次使用文档。 它会产生一个错误。

web.Document.getElementsByName("q").Value = "Robert"

您的代码应如下所示。

Set doc = web.document

doc.getElementsByName("q")(0).Value = "Robert"

您可以像这样尝试，如果您有任何问题，请告诉我们。