使用 VBA 从 Internet Explorer 窗口自动保存 PDF 文件

Question

我正在使用以下代码从 Internet Explorer 窗口自动保存 PDF 文档。 它工作正常，但我希望它发生在具有多个 URL 的多个 PDF 文件中。 当我通过从 A 列中获取 URL 并使用 B 列中的文件名保存文件时，在 A 列中提供 URL 和在 B 列中提供文件格式为.pdf目标路径时。

Option Explicit 

Private Declare Function URLDownloadToFile Lib "urlmon" _ 
Alias "URLDownloadToFileA" ( _ 
ByVal pCaller As Long, _ 
ByVal szURL As String, _ 
ByVal szFileName As String, _ 
ByVal dwReserved As Long, _ 
ByVal lpfnCB As Long _ 
) As Long 

Sub z() 

    Dim strSource As String 
    Dim strDest As String 
    strSource = "http://www.cran.r-project.org/doc/manuals/R-intro.pdf" 
    strDest = "c:\temp\blah.pdf" 
    URLDownloadToFile 0, strSource, strDest, 0, 0 

End Sub

Answer 1

正如@shA.t 所说，您需要做的就是将这些行包装在For Each循环中。

解决方案：假设您的 URL 位于 A1 到 A3 中，而目的地位于 B1 到 B3。 您的Sub z()应如下所示：

For Each source in Sheets("Sheet name").Range("A1:A3")
    URLDownloadToFile 0, source.Value, source.Offset(0,1).Value, 0, 0 
Next source

说明： For Each循环遍历范围 A1 到 A3 中的所有单元格元素。 在循环的每一轮中， source成为那个单元格。 无需将源代码硬编码到您的代码中，您只需引用source.Value ，即循环中当前单元格的内容。 对于目的地，您可以使用.Offset方法，该方法通过相邻单元格与调用它的单元格的相对距离来引用相邻单元格。 在这种情况下，我们希望从 A1 到 B1（依此类推），即向下零行，向右一列（ Offset(0,1) ）。