在VBA中使用进度表下载文件

Sub DownloadFileWithProgress()
    Dim url As String
    Dim localFile As String
    Dim progressTable As ListObject
    Dim progressRow As ListRow
    Dim startTime As Date
    Dim currentTime As Date
    Dim elapsedTime As Double
    Dim bytesDownloaded As Double
    Dim totalBytes As Double
    Dim downloadSpeed As Double
    
    ' Initialize variables
    url = "https://example.com/file.zip"
    localFile = "C:\file.zip"
    Set progressTable = ActiveSheet.ListObjects("ProgressTable")
    Set progressRow = progressTable.ListRows.Add
    startTime = Now()
    bytesDownloaded = 0
    totalBytes = 0
    downloadSpeed = 0
    
    ' Download the file and update progress table
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", url, False
        .Send
        If .Status = 200 Then
            totalBytes = .getResponseHeader("Content-Length")
            Open localFile For Binary Access Write As #1
            Write #1, .ResponseBody
            Close #1
            bytesDownloaded = FileLen(localFile)
            downloadSpeed = bytesDownloaded / (Now() - startTime) * 60 ' bytes per second
            progressRow.Range(1, 1) = localFile
            progressRow.Range(1, 2) = bytesDownloaded
            progressRow.Range(1, 3) = totalBytes
            progressRow.Range(1, 4) = downloadSpeed
        End If
    End With
    
    ' Update progress table with completion time
    progressRow.Range(1, 5) = Now()
End Sub