有没有办法使用 VBA 访问网站列中的第一个元素？

Question

这是网站页面中的列的屏幕截图。

它位于网站页面中：

如您所见，所有行都有一个“完成”按钮，您可以按下该按钮，然后是多行。这些行指的是出口。所以专栏不是静态的，而是不断变化的。

但是，每次我运行宏时，我都想访问该列的第一行。

这是上面屏幕截图中第一个“已完成”按钮的 HTML 代码的示例代码：

我有很多具有相同的类名。以下图中突出显示的行为例：

我真的不知道如何编写 VBA 代码来始终访问本专栏中的第一个“已完成”字节。

PS：在 HTML 代码中，在标签“a”中，onclick="....." 是不断变化的。所以我不能使用它作为参数来访问所需的字段并单击所需的按钮。

如果有人能帮我弄清楚如何做到这一点，我会很高兴的。

谢谢你:)

Answer 1

如果要点击第一列的“完成”按钮，可以使用下面的代码：

Set doc = objIE.Document
doc.getElementsByTagName("tr")(0).getElementsByTagName("td")(0).getElementsByTagName("a")(0).Click

代码获取第一个<tr>，然后获取第一个<td>，然后在其中获取<a>。

Answer 2

<tr> 标签是行，<td> 标签是这些行内的单元格。您没有提供足够的代码来显示整个表格，但一般来说，要访问表格的第一行，您需要引用集合对象并使用所需的索引号。

.getElementsByTagName("tr")(0)

这将引用表格的第一行。与获取表的第一行中的第一列 相同：

.getElementsByTagName("tr")(0).getElementsByTagName("td")(0)

一旦您找到了特定的单元格，现在您想要点击该链接。您可以使用与上述相同的方法。

.getElementsByTagName("tr")(0).getElementsByTagName("td")(0).getElementsByTagName("a")(0).Click

最后一点，表格的第一行可能是标题，因此您实际上可能想要第二行 (1)。

---

感谢您更新更多 HTML 代码。我打算稍微换个档次，用querySelector()抢主桌。

doc.querySelector("#divPage > table.advancedSearch_table > tbody"). _
            getElementsByTagName("tr")(3).getElementsByTagName("td")(3).Children(0).Click

看看这是否适合你。