使用 VBA 提取特定的 HTML onclick 事件

Question

我正在向你们寻求帮助，因为我遇到了很大的问题，我无法解决并在互联网上找到任何帮助。

我有这样的代码：

    <span class="test taLnk hvrIE6" onclick="ta.trackEventOnPage('Hotel_Review'
       ,'URL_HOTEL|text|2||', '74682', 0, false);
                  ; ta.trackEventOnPage('BusinessListings', 'BL_CLICK', 'BL_LINKS');
; ta.util.cookie.setPIDCookie(14447); ta.call('ta.util.link.targetBlank', event, this,
{'aHref':'LqM40VxEncpMVqnEiaqih1TJctV0iMn17ptSCVttRStISCytxGEc0M1kd3vX0pEc1U',
'isAsdf':true, 'detailId': 74682, 'action': 'website', 'newTab': true })">Hotel website</span>

我想从中提取网站链接并将其粘贴到 Excel 单元格中。 不幸的是，我还不是 excel vba 方面的专家，因此将不胜感激。

感谢您的回答！

Answer 1

这是一个粗略的示例，您可以将其放入模块 1，然后从 Excel 公式中调用。

将 formatLink 更改为适当的分类。

Function getURL(ByVal s As String)
Dim posStartLink As Integer
Dim posEndLink As Integer
Dim formatLink As String

formatLink = "http://somethingsomething.something/"

posStartLink = InStr(1, s, "'aHref':'") + 9 'get to the start of link
posEndLink = InStr(posStartLink, s, "'")

getURL = formatLink & Mid(s, posStartLink, posEndLink - posStartLink)
End Function

用法：

    =getURL(A1)

价值：

http://somethingsomething.something/LqM40VxEncpMVqnEiaqih1TJctV0iMn17ptSCVttRStISCytxGEc0M1kd3vX0pEc1U