Есть ли способ загрузить несколько файлов PDF с веб-страниц в Excel, используя VBA

Question

Я создаю функцию в Excel, которая должна сохранять несколько файлов PDF в папке, но файлы PDF необходимо загружать по гиперссылкам.

Можно ли выбрать несколько оболочек, к которым прикреплены гиперссылки, и создать функцию, которая распознает выбор и загрузит PDF-файлы с веб-страниц?

То, что я до сих пор делал, это подпрограмма, которая создает папку на моем рабочем столе. Я борюсь с загрузкой файлов PDF в папку.

Dim fdObj As Object

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

Сначала прочитайте здесь и здесь

Многопоточность для цикла

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