VBA - 按照超链接后如何下载网页答案

【问题标题】：VBA - How to download webpage after following the hyperlinkVBA - 按照超链接后如何下载网页
【发布时间】：2017-04-12 08:19:32
【问题描述】：

我目前正在运行以下代码，它会打开我在列中的所有链接。但是，在打开链接之后，因为它打开了这么多标签（如预期和预期的那样），我希望它能够将网页的内容下载到 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

【问题讨论】：

请自己做一些研究。 SO 不是代码编写服务。如果您向我们展示您尝试过的代码以及失败的地方，我们愿意帮助您或为您指明正确的方向。
@Luuklag，一直在进行研究并尝试自己运行代码，但尝试多次失败。我认为我采取了错误的方法，所以我将其剥离回上面。
这应该让你开始（如果这个问题不是这个问题的欺骗）：stackoverflow.com/questions/33900668/…
Saving webpage as PDF to certain directory的可能重复

标签： vba excel

【解决方案1】：

好的，这将从网页中导入所有内容并将其放置在单元格 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

【讨论】：