VBA仅从href属性检索部分链接

时间:2019-05-22 16:31:30

标签: excel vba browser-automation

我需要使用Excel VBA在网页上获得部分链接。 href属性位于“ a”标记中,它是带有参数的cfm链接。 在“查看源代码”中打开页面时,可以看到带有参数的完整链接,但是当我以编程方式访问它时,CFM之后的链接部分不存在。 我需要从href获取EntityID值。

这是html的外观:

<tr class="Odd">
<td colspan="3">March, 2019</td>
<td><a href="/SiteAdmin/ViewStats.cfm?EntityId=980568&amp;EntityType=3&amp;MM=3&amp;YY=2019">View</a></td>
</tr>

以下是应以字符串形式获取链接的代码部分:

Set pHTML = IE.document
   Set aTagList = pHTML.getElementsByTagName("a")
   For Each aTag In aTagList
       aTagHref = aTag.href
       If Left(aTagHref, 51) = "https://cp.homesandland.com/SiteAdmin/ViewStats.cfm" Then
           Debug.Print aTagHref
           Exit For
       End If
   Next

我将处理部分更改为简单的debug.print,以节省空间。

我希望获得所有参数的完整链接,但是实际检索到的是:

https://cp.homesandland.com/SiteAdmin/ViewStats.cfm#

有什么想法为什么会发生以及如何获取href链接的参数?

0 个答案:

没有答案