有没有办法使用VBA从excel中的网页下载多个pdf文件

Question

我在 excel 中创建一个函数，它应该将多个 PDF 文件保存到一个文件夹中，但 PDF 文件必须从超链接下载。

是否可以选择多个附加了超链接的 shell，并创建一个可以识别选择并从网页下载 PDF 的功能？

到目前为止，我所做的是一个子例程，它在我的桌面上创建一个文件夹。我很难下载文件夹中的 PDF 文件。

将 fdObj 调暗为对象

Application.ScreenUpdating = False

Set fdObj = CreateObject("Scripting.FileSystemObject")

If fdObj.FolderExists("C:\Users\" & Environ("UserName") & "\Desktop\Temp folder") 

然后

    MsgBox "Found it.", vbInformation, "Excel"

Else

    fdObj.CreateFolder ("C:\Users\" & Environ("UserName") & "\Desktop\Temp folder")

    MsgBox "It has been created.", vbInformation, "Excel"

End If

Application.ScreenUpdating = True

Answer 1

先阅读here和here

多线程 For 循环

Sub RunForVBA(workbookName As String, seqFrom As Long, seqTo As Long)
    For i = seqFrom To seqTo
        x = seqFrom / seqTo
    Next i
End Sub

Sub RunForVBAMultiThread()
    Dim parallelClass As Parallel 

    Set parallelClass = New Parallel 

    parallelClass.SetThreads 4 

    Call parallelClass.ParallelFor("RunForVBA", 1, 1000) 
End Sub

异步运行 Excel 宏

Sub RunAsyncVBA(workbookName As String, seqFrom As Long, seqTo As Long)
    For i = seqFrom To seqTo
        x = seqFrom / seqTo
    Next i
End Sub

Sub RunForVBAAndWait()
    Dim parallelClass As Parallel

    Set parallelClass  = New Parallel

    Call parallelClass.ParallelAsyncInvoke("RunAsyncVBA", ActiveWorkbook.Name, 1, 1000) 
    'Do other operations here
    '....

    parallelClass.AsyncThreadJoin 
End Sub