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

Sub DownloadFilesWithPrefix(url As String, prefix As String)
    Dim http As Object
    Dim stream As Object
    Dim html As String
    Dim doc As Object
    Dim links As Object
    Dim link As Object
    Dim fileName As String
    Dim filePath As String

    ' 创建HTTP对象
    Set http = CreateObject("MSXML2.XMLHTTP")
    ' 发送GET请求获取网页内容
    http.Open "GET", url, False
    http.send

    ' 获取网页HTML内容
    html = http.responseText

    ' 使用HTML解析器解析网页内容（这里使用了MSHTML）
    Set doc = CreateObject("htmlfile")
    doc.write html

    ' 获取所有链接
    Set links = doc.getElementsByTagName("a")

    ' 遍历所有链接
    For Each link In links
        fileName = link.getAttribute("href")
        ' 检查文件名是否以指定前缀开头
        If Left(fileName, Len(prefix)) = prefix Then
            ' 创建流对象
            Set stream = CreateObject("ADODB.Stream")
            stream.Type = 1 ' adTypeBinary
            stream.Open

            ' 下载文件
            http.Open "GET", url & fileName, False
            http.send
            stream.Write http.responseBody

            ' 保存文件到本地
            filePath = "C:\Downloads\" & fileName ' 修改为你的下载路径
            stream.SaveToFile filePath, 2 ' adSaveCreateOverwrite

            ' 关闭流对象
            stream.Close
            Set stream = Nothing
        End If
    Next link

    ' 清理对象
    Set http = Nothing
    Set doc = Nothing
    Set links = Nothing
End Sub