尝试使用Excel VBA获取Youtube Trending视频名称和链接

Sub GetYoutubeTrendingVideos()
    Dim url As String
    Dim http As Object
    Dim html As Object
    Dim videoList As Object
    Dim video As Object
    Dim row As Integer
    
    ' 设置要获取的Youtube Trending页面的URL
    url = "https://www.youtube.com/feed/trending"
    
    ' 创建HTTP请求对象
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送GET请求
    http.Open "GET", url, False
    http.send
    
    ' 创建HTML解析对象
    Set html = CreateObject("HTMLFile")
    
    ' 将返回的HTML内容加载到HTML解析对象中
    html.body.innerHTML = http.responseText
    
    ' 获取视频列表
    Set videoList = html.getElementsByClassName("yt-lockup-video")
    
    ' 遍历视频列表并输出名称和链接
    row = 1
    For Each video In videoList
        ' 获取视频名称
        Cells(row, 1).Value = video.getElementsByClassName("yt-lockup-title")(0).getElementsByTagName("a")(0).innerText
        
        ' 获取视频链接
        Cells(row, 2).Value = "https://www.youtube.com" & video.getElementsByClassName("yt-lockup-title")(0).getElementsByTagName("a")(0).getAttribute("href")
        
        row = row + 1
    Next video
    
    ' 清理对象
    Set http = Nothing
    Set html = Nothing
    Set videoList = Nothing
    Set video = Nothing
    
    MsgBox "获取Youtube Trending视频名称和链接完成！"
End Sub