VBA实现IE网页表单自动化：隐藏字段自动填充问题求助

嘿，我碰到过一模一样的情况！你的问题核心出在事件触发上：手动选择下拉框时，浏览器会自动触发该元素的onchange事件——正是这个事件在后台加载后续隐藏字段的选项，还会把它从隐藏状态转换成可交互的输入/下拉框；但VBA里直接设置selectedIndex只是修改了DOM元素的属性，并不会触发浏览器的默认事件，所以后续的breedTypeAhead字段根本没收到“该初始化了”的信号。

下面是修改后的完整代码，关键就是手动触发前序下拉框的onchange事件：

Sub automaticformfilling_ARGOS()
 Dim ie As Object
 Set ie = CreateObject("internetexplorer.application")
 
 '确保网页完全加载
 With ie
 .Visible = True
 .navigate "https://www.argos-pet-insurance.com/quoteAndBuy.do?e=e1s1&curPage=captureDetails&rakT=1510852044896.1391473424.994101.1731.881880349.846|tsid:9904"
 Do While .Busy
 DoEvents
 Loop
 Do While .readyState <> 4
 DoEvents
 Loop
 End With
 
 '选择品种类型
 Set BreedType = ie.document.getElementById("yourDetailsPolicyHolderBreedTypes0")
 BreedType.selectedIndex = 2
 
 '关键：手动触发onchange事件，告诉网页我们完成了选择
 BreedType.FireEvent "onchange"
 
 '给网页一点时间加载后续内容（可以根据实际加载速度调整等待时间）
 Application.Wait Now + TimeValue("00:00:02")
 
 '现在操作目标字段
 Set BreedName = ie.document.getElementById("breedTypeAhead")
 BreedName.selectedIndex = 1
End Sub

补充小贴士： #

• 如果FireEvent在你的IE版本里不生效（比如较新的IE兼容模式），可以试试用标准的dispatchEvent方法触发事件：

  Dim evt As Object
  Set evt = ie.document.createEvent("HTMLEvents")
  evt.initEvent "change", True, False
  BreedType.dispatchEvent evt
  

• 固定等待时间可能不够灵活，你也可以用循环检查目标字段的状态（比如是否出现了下拉选项，或者元素样式是否从隐藏变为可见），直到它准备好再继续操作，这样更稳定：

  '等待breedTypeAhead变成可交互状态
  Do While ie.document.getElementById("breedTypeAhead").Style.Display = "none"
      DoEvents
  Loop
  

内容的提问来源于stack exchange，提问作者Payal