我读了很多关于我的问题的答案，但是如果我设法“模仿”我所看到的，我仍然无法做我需要的事情。
问题非常简单:在打开的IE页面上填写输入框。
结果:代码卡在getelementbyid上，显示运行时错误424(需要对象)。
Private Sub AddInfoFromIntranet()
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
Application.SendKeys "{ESC}" ' I need this to ignore a prompt
With ie
.Visible = True
.navigate "{here goes the address of my website}"
Do Until Not .Busy And .readyState = 4
DoEvents
Loop
.document.getelementbyid("Nachnamevalue").Value = "{here goes whar I want to insert}"
End With
Set ie = Nothing
End Sub
Internet Explorer库是自然导入的(否则，“internetexplorer.application”将不起作用。
我很肯定我想填写的字段被称为“Nachnamevalue”，这是根据我今天早晨在互联网上了解到的信息后得出的。
我网页的html代码(仅是有趣的部分)如下所示:
<!DOCTYPE html>
<html>
<head>
<title></title>
<style>
'{here there are info on the style, which i'm gonna ignore}
</style>
</head>
<body bgcolor="#ffffcc"><table width="1000"><tbody><tr><td>
<form name="Suchform" action="index.cfm" method="get" target="bottom_window">
Nachname:
<select name="Nachnamepulldown" class="font09px" onchange="wait_and_search()">
<option value="BEGINS_WITH">beginnt mit
<option value="EQUAL">ist
<option value="CONTAINS">enthält
</option></select>
<input name="Nachnamevalue" onkeyup="wait_and_search()" type="text" size="8">
Abteilung:
<select name="Abteilungpulldown" class="font09px" onchange="wait_and_search()">
<option value="BEGINS_WITH">beginnt mit
<option value="EQUAL">ist
<option value="CONTAINS">enthält
</option></select>
<input name="Abteilungvalue" onkeyup="wait_and_search()" type="text" size="3">
<input name="fuseaction" type="hidden" value="StdSearchResult">
<input type="submit" value="suchen">
<script language="JavaScript" type="text/JavaScript">
document.Suchform.Nachnamevalue.focus();
</script>
</form>
</td></tr></tbody></table></body>
</html>
还有(我不知道是否有帮助)“嵌入式” javascript，每当在“Nachnamevalue”输入框中至少写入2个字符时，它就会显示搜索结果。
我究竟做错了什么？
编辑:
当我尝试逐步执行Sub时，得到以下信息:
Set Doc = ie.document？文件
[对象HTMLDocument]
(在监视列表中，它是一个内部没有任何变量的对象)
最佳答案
GetElementById通过其 id 属性获取元素，但是"Nachnamevalue"是 name 属性的值。
使用名称:
.document.Forms("Suchform").Elements("Nachnamevalue").value = "xxx"
关于vba - 填充Internet Explorer输入框，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/27483919/