主题：【求助】如何获取今日头条中的所有页面的网页代码，然后读取文章标题、阅读数、评论数、发布时间到对应的表格中保存

Dim web As new System.Windows.Forms.WebBrowser
web.Navigate("http://toutiao.com/m6051259851/")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim pg = web.Document.GetElementById("pagebar")
For Each a As object In pg.GetElementsByTagName("a")
    msgbox(a.innerText & " " & a.GetAttribute("href"))
Next