Sub Main()
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    Set odom = CreateObject("htmlfile")
    
    url = "https://item.jd.com/12941518.html"
    
    '发送请求获取网页源码添加到dom
    With oHttp
        .Open "GET", url, False
        .send
        odom.body.innerHTML = .responseText
    End With
    
    '遍历每一个dom节点
    For Each Item In odom.all
        If Item.className = "crumb fl clearfix" Then
            For Each itemch In Item.Children
                If itemch.className = "item" Then '获取分类：童书、儿童文学、果麦
                    Debug.Print itemch.innertext
                End If
            Next itemch
        ElseIf Item.className = "sku-name" Then '获取书名：尼尔·盖曼幻想小说三部曲（刘慈欣《三体》。。。
            Debug.Print Item.innertext
            For Each itemch In Item.Children    '获取年龄段：[7-15岁]
                Debug.Print itemch.innertext
            Next itemch
        ElseIf Item.className = "p-author" Then '获取作者：果麦文化 出品；（英）尼尔·盖曼 著
            Debug.Print Item.innertext
        End If
    Next Item
    
End Sub