VBA-如何在点击超链接后下载网页

我目前正在运行以下代码，它打开了我在一个专栏中的所有链接。但是，在打开链接后，因为它打开了很多选项卡（正如预期和预期的那样），我希望它将网页内容下载到pdf中，并将其存储在我机器上的文件夹中

Sub Test()

    Dim Sh As Worksheet
    Dim Rng As Range
    Dim Cell As Range
    Set Sh = Worksheets("Sheet1")

    With Sh
        Set Rng = .Range("L3:L" & .Cells(.Rows.Count, "L").End(xlUp).Row)        
    End With

    For Each Cell In Rng
        ThisWorkbook.FollowHyperlink Cell.Text
    Next Cell

End Sub

---

好的，这将导入网页中的所有内容，并将其放置在单元格A1中。您可以轻松地将单元格的内容转储为PDF（另存为PDF），如果这是您的意图的话

Sub Test()
    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .Navigate "http://finance.yahoo.com" ' should work for any URL
        Do Until .ReadyState = 4: DoEvents: Loop

            Range("A1").Value = .document.body.innertext

            .Quit
        End With

End Sub

---

请自己做些调查。因此，它不是一个代码编写服务。如果您向我们展示您尝试过的代码以及失败的地方，我们愿意帮助您或为您指出正确的方向。@Luuklag本人一直在进行研究并尝试运行代码，但多次尝试都失败了。由于我认为我采取了错误的方法，所以我将它重新剥离到上面。这应该让你开始（如果这个问题不是这个问题的翻版）：可能重复的