javascript - 搜索 HREF 链接会拉回不正确的链接

Question

我正在尝试使用 Excel 的 VBA 自动查找和单击某个链接。问题是这个链接每天(或每个人)都会改变。但问题是，HREF 属性的开头始终相同，并且它是该页面上唯一具有此类 HREF 的链接。

我试图不让这变得太复杂，但我想解释一下，以便您理解我的代码以及我这样做的原因:此链接打开一个新页面，但由于管理多个浏览器似乎很困难使用 VBA 的实例 我决定最好只放入代码来导航到同一浏览器中的链接，然后在需要时使用 objIE.back 进行循环。

我搜索了一次，该链接是文档中的第 59 个链接，所以我尝试了如下代码:

If link59 <> "*ao/party/popuppartyinfo?party*" Then
hrefvalue = line59
'Gets rid of the JavascriptPopup unnecessary text
trimedhrefvalue = Right(link59, 49)
hrefurlvalue = "https://myjobswebsitehere.com" & trimedhrefvalue
objIE.navigate hrefurlvalue

代码本身有效，但显然该链接并不总是页面中的第 59 个链接，具体取决于帐户。

所以现在我有以下内容:

Application.StatusBar = "Trying to find link..."
Application.Wait (Now() + TimeValue("00:00:05"))
'objIE.document.parentWindow.execScript "execute('RefreshList');"
Set ieLinks = objIE.document.getElementsByTagName("a")
Do Until Progress = True
For Each Links In ieLinks
If Links.innerText = "/ao/party/popuppartyinfo?partyId" Then
'Links.Click
Application.StatusBar = "Found link! Please wait"
Links.Value = hrefvalue
trimedhrefvalue = Right(Links, 49)
hrefurlvalue = "https://myjobswebsitehere.com" & trimedhrefvalue
Progress = True
Exit For
End If
Next Links
Loop

当此代码运行时，它总是打开一个与我搜索的内容无关的页面。事实上，“/ao/party/popuppartyinfo?partyId”中的任何单词都没有出现在它错误打开的链接中。

我尝试获取的代码的 HTML 如下:

<a href="javascript:fnOpenWindow('/ao/party/popuppartyinfo?partyId=11111&nav=off')">

除了“partyID”部分发生变化之外，每个客户端的整个 href 保持不变。

我的问题是我在这里做错了什么，让这个搜索拉回与我指定的innerText无关的结果？

Answer 1

弄清楚了:链接的内部文本会更改每个页面，因此无论出于何种原因，都会在我的代码中出现奇怪的“打开错误的链接”问题。这是工作代码:

Application.StatusBar = "Trying to find link..."
Application.Wait (Now() + TimeValue("00:00:05"))
'objIE.document.parentWindow.execScript "execute('RefreshList');"
Set ieLinks = objIE.document.getElementsByTagName("a")
Do Until Progress = True
For Each Links In ieLinks
If Links.outerHTML Like "<A href=""javascript:fnOpenWindow('/ao/party/popuppartyinfo?partyId=*" Then
'Links.Click
Application.StatusBar = "Found link! Please wait"
Links.Value = hrefvalue
trimedhrefvalue = Right(Links, 49)
hrefurlvalue = "https://myjobswebsitehere.com" & trimedhrefvalue
objIE.navigate hrefurlvalue
Progress = True
Exit For
End If
Next Links