searchHREF链接正在拉回不正确的链接
我正在尝试使用Excel的VBA来自动查找和点击某个链接。 问题是这个链接每天（或每个人）都会改变。 不过，HREF属性的开头始终是相同的，它是该页面上具有这种HREF的唯一链接。
我不想让这个过于复杂，但是我想解释一下，所以你理解我的代码，为什么我做了我所做的：这个链接打开了一个新的页面，但是由于使用VBApipe理多个浏览器实例我决定把代码放在同一个浏览器中，然后使用objIE.back来循环，如果需要的话，会更好。
我search了一次，链接是文档中的第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
当这个代码运行时，它总是打开一个页面，与我search的内容无关。 事实上，“/ ao / party / popuppartyinfo？partyId”中的任何一个字都不会显示在链接中，而是显示错误。
我试图获得的代码的HTML如下所示：
<a href="javascript:fnOpenWindow('/ao/party/popuppartyinfo?partyId=11111&nav=off')">
除了改变的“partyID”部分之外，整个href对于每个客户端都是一样的。
我的问题是我在做什么错在这里得到这个search拉回结果与我指定的innerText没有任何关系？
想通了：链接的内文是每页都改变的东西，不pipe出于什么原因，把奇怪的“打开错误的链接”打嗝在我的代码中。 这是工作代码：
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