VBA извлекает только частичную ссылку из атрибута href - PullRequest
0 голосов
/ 22 мая 2019

Мне нужно получить часть ссылки на веб-странице, используя Excel VBA.Атрибут href находится в теге "a" и является ссылкой cfm с параметрами.Я вижу полную ссылку с параметрами при открытии страницы в «Просмотр источника», но при программном доступе к ней часть ссылки после CFM не существует.Мне нужно получить значение EntityID из href.

Вот как выглядит 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?

...