Excel 使用VBA从源代码中提取href链接

下面是我浏览网站后得到的源代码

<item><a href="/search/Listing/45678489?source=results" id="mk:0:mk" class="details">

我只想在excel中复制link/search/Listing/45678489？source=结果，并想知道如何单击它

---

class=“details”对于我想要复制的所有href链接都是一样的，同时我会继续增加mk:1:mk、ms:2:mk等等，如果字符串总是像你发布的那样，并且你想在

之后获得字符串
/search/Listing/45678489？source=results
那么，在每个页面上，您都可以在列表中收集当前的链接集，但是查看上面的示例，您需要在写入Excel之前将协议/域连接到url。我不会尝试点击那些写出来的链接（可能是超链接），因为这是低效的，会产生很多IE实例，你需要记住手动关闭

在任何给定页面上，获取链接列表，并在每种情况下生成完整的url

Dim nodes As Object, i As Long

Set nodes = ie.document.querySelectorAll(".details[id^='mk:']")

With ActiveSheet
    For i = 0 To nodes.Length -1
        .Cells(i+1,1) = "protocol + domain...." & nodes.item(i).href
    Next
End With

然后，不要单击，而是将这些URL读入一个数组，循环该数组，如果可能的话发布，或者。
那么您想要一个链接还是多个？不同链接的id增量还是相同链接的id增量？何时增加？@QHarr，多个链接，每个产品列表的id增加。基本上，我正在尝试浏览一个网站，然后想从浏览过的页面（你可以说是分类页面）上的每个产品列表中获取详细信息。你能分享链接吗？你在使用IE吗？@QHarr，是的，使用IE将无法共享链接
Dim nodes As Object, i As Long

Set nodes = ie.document.querySelectorAll(".details[id^='mk:']")

With ActiveSheet
    For i = 0 To nodes.Length -1
        .Cells(i+1,1) = "protocol + domain...." & nodes.item(i).href
    Next
End With