Excel 自动搜索框架码

我需要从DLA中检索大约500个CAGE代码的属性，并将它们记录在我的电子表格中。我开始尝试为一个项目检索它，然后最终循环它。我不断得到下面的错误，我不知道为什么

请注意，除非您以前已经打开过网站，并且尚未关闭broswer（您需要接受条款和条件），否则该代码不起作用

单元格B2=

子NSCM（）
模糊的物体
设置ie=CreateObject（“INTERNETEXPLORER.APPLICATION”）
'检索框架代码
暗笼如弦
CAGE=范围（“B2”）.值
'导航到Cage代码常规页面
例如，驾驶笼子
可见=真实
趁我忙
多芬特
温德
'跟随链接到详细信息页面
对于ie.document.getElementsByTagName（“a”）中的每个元素
如果InStr（ele.innerText，“Details”）>0，则ele.单击
下一个
忙的时候做_
即readyState 4
多芬特
环
"拉数据",
不算长
暗淡如长
设置HTML=ie.document
Set elements=HTML.getElementsByID（“细节部分”）
计数=0
对于元素中的每个元素
如果element.className=“result”，则
在此处输入代码w=Sheet1.Cells（Rows.count，1）。End（xlUp）。Offset（1，0）。Row
单元格（erow，1）=HTML.getElementsByTagName（“span”）（10）.innerText
中心代码hereells（erow，1）=HTML.getElementsByTagName（“span”）（14）.innerText
计数=计数+1
如果结束
下一个元素
端接头

应该是

Set element = HTML.getElementByID(“detail_topsection”)  'no "s"

---

页面上的元素Id应该是唯一的，因此

getElementByID

返回单个元素（或不返回任何内容），而不是像

getElementsByTagName

这样的元素集合。错误是什么，发生在哪里？感谢帮助。我能够解决这个问题，并且能够开始循环，但是在第二个循环中遇到了导航问题。我不断收到错误“对象iwebbrowser2的方法导航失败”，我不知道为什么。我已编辑到原始帖子以反映当前代码最好不要将您现有的问题更新为全新的问题：这会使现有的答案对其他人毫无用处，而且这不是一个滚动过程：如果您有新问题，请发布新问题。理解，道歉。

Set elements = HTML.getElementsByID(“detail_topsection”)

Set element = HTML.getElementByID(“detail_topsection”)  'no "s"