使用Excel VBA在单个页面上刮掉多个标签

我正在尝试使用Excel VBA自动化一个网站，以从单页上的多个标签获取数据。 但它只是给第一个选项卡上的信息，我没有从第二个选项卡得到任何对象。

我正在使用下面的代码：

Sub BrowseToSite() Dim IE As New SHDocVw.InternetExplorer Dim HTMLdoc As New MSHTML.HTMLDocument Dim HTMLInput, link As MSHTML.IHTMLElement Dim HTMLButtons, links, FButtons, Export As MSHTML.IHTMLElementCollection Dim HTMLButton As MSHTML.IHTMLElement IE.Visible = True IE.Navigate "URL" Do While IE.ReadyState <> READYSTATE_COMPLETE Loop Set HTMLdoc = IE.Document Set HTMLButtons = HTMLdoc.getElementsByTagName("a") For Each HTMLButton In HTMLButtons Debug.Print HTMLButton.tagName, HTMLButton.innerText Next End Sub 

每当我点击Incident Queue ，它就会每次打开一个新的标签，我想从第二个标签点击Company链接。 我没有太多的细节，因为有一个安全的网站，所以即使分享的url将无法正常工作。 我想要做的是从下一个选项卡填充元素。 大多数是链接。

这是网页的图像：

Incident Queue之前的网页HTML内容点击https://uploadfiles.io/wdx0h ，点击https://uploadfiles.io/l85uv 。