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

Sub ExtractHREFLinks()
    Dim sourceCode As String
    Dim hrefPattern As String
    Dim hrefMatches As Object
    Dim hrefMatch As Object
    
    ' 获取源代码
    ' 这里使用XMLHTTP对象发送HTTP请求并获取响应
    Dim xmlhttp As Object
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
    xmlhttp.Open "GET", "http://example.com", False
    xmlhttp.send
    sourceCode = xmlhttp.responseText
    
    ' 解析源代码并提取href链接
    hrefPattern = "<a\s+[^>]*href\s*=\s*""([^""]*)"""
    Set hrefMatches = GetRegExpMatches(sourceCode, hrefPattern)
    
    ' 处理提取的链接
    For Each hrefMatch In hrefMatches
        Dim hrefLink As String
        hrefLink = hrefMatch.SubMatches(0)
        
        ' 在这里可以对链接进行进一步处理
        
        ' 输出链接
        Debug.Print hrefLink
    Next hrefMatch
End Sub

Function GetRegExpMatches(inputString As String, pattern As String) As Object
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    
    With regex
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
        .pattern = pattern
    End With
    
    Set GetRegExpMatches = regex.Execute(inputString)
End Function