在VBA中从网站下载所有带有前缀的文件

Sub DownloadFilesWithPrefix()
    Dim url As String
    Dim prefix As String
    Dim folderPath As String
    Dim xmlhttp As Object
    Dim htmlDoc As Object
    Dim fileLinks As Object
    Dim fileLink As Object
    Dim fso As Object
    
    ' 设置要下载的网页URL
    url = "https://example.com"
    
    ' 设置文件链接的前缀
    prefix = "file_"
    
    ' 设置保存文件的文件夹路径
    folderPath = "C:\Downloads"
    
    ' 创建HTTP请求对象
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送HTTP请求，获取网页内容
    xmlhttp.Open "GET", url, False
    xmlhttp.send
    
    ' 创建HTMLDocument对象，解析网页内容
    Set htmlDoc = CreateObject("HTMLFile")
    htmlDoc.body.innerHTML = xmlhttp.responseText
    
    ' 定位包含文件链接的元素
    Set fileLinks = htmlDoc.getElementsByTagName("a")
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 遍历文件链接元素
    For Each fileLink In fileLinks
        ' 提取文件链接
        If InStr(fileLink.href, prefix) = 1 Then
            ' 下载文件
            URLDownloadToFile 0, fileLink.href, folderPath & "\" & fso.GetFileName(fileLink.href), 0, 0
        End If
    Next fileLink
    
    ' 释放对象
    Set xmlhttp = Nothing
    Set htmlDoc = Nothing
    Set fileLinks = Nothing
    Set fileLink = Nothing
    Set fso = Nothing
    
    MsgBox "文件下载完成！"
End Sub