Question

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

是否可以选择多个带有超链接的外壳，并创建一个可以识别选择内容并从网页下载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

有没有一种方法可以使用VBA在excel中从网页下载多个pdf文件

1 个答案: