VBA 如果错误重试

VBA是一种编程语言，可以帮助我们在Excel中自动化执行各种任务。在编写VBA代码时，我们经常会遇到错误，这可能是由于用户输入错误、数据不符合预期或其他原因导致的。当发生错误时，我们可以使用错误重试的方法来处理它们，以确保代码能够继续执行。

vba
Sub RetryOnError()
    Dim retryCount As Integer
    retryCount = 3 ' 设置最大重试次数为3次
    
    Dim success As Boolean
    success = False
    
    Do While retryCount > 0 And Not success
        On Error Resume Next ' 忽略错误，继续执行下一行代码
        
        ' 尝试执行某个操作
        ' 这里可以是任何可能会出现错误的代码
        ' 比如打开一个文件、下载数据、连接数据库等
        
        ' 如果没有发生错误，则将success标志设置为True，退出循环
        If Err.Number = 0 Then
            success = True
        Else
            ' 如果发生错误，则减少重试次数，并等待一段时间后再次尝试
            retryCount = retryCount - 1
            Application.Wait (Now + TimeValue("0:00:10")) ' 等待10秒钟
        End If
        
        On Error GoTo 0 ' 恢复错误处理设置
    Loop
    
    If success Then
        MsgBox "操作成功！"
    Else
        MsgBox "重试次数已用尽，操作失败！"
    End If
End Sub

vba
Sub DownloadFileWithRetry()
    Dim url As String
    url = "https://example.com/file.txt" ' 要下载的文件的URL
    
    Dim savePath As String
    savePath = "C:\Downloads\file.txt" ' 文件保存的路径
    
    Dim retryCount As Integer
    retryCount = 3 ' 设置最大重试次数为3次
    
    Dim success As Boolean
    success = False
    
    Do While retryCount > 0 And Not success
        On Error Resume Next ' 忽略错误，继续执行下一行代码
        
        ' 下载文件
        ' 这里使用了一个自定义的DownloadFile函数，用于下载文件
        ' 如果下载成功，则将success标志设置为True，退出循环
        ' 如果下载失败，则减少重试次数，并等待一段时间后再次尝试
        success = DownloadFile(url, savePath)
        If Not success Then
            retryCount = retryCount - 1
            Application.Wait (Now + TimeValue("0:00:10")) ' 等待10秒钟
        End If
        
        On Error GoTo 0 ' 恢复错误处理设置
    Loop
    
    If success Then
        MsgBox "文件下载成功！"
    Else
        MsgBox "重试次数已用尽，文件下载失败！"
    End If
End Sub
Function DownloadFile(url As String, savePath As String) As Boolean
    ' 这里是下载文件的具体实现
    ' 你可以使用各种方法来下载文件，比如使用HTTP请求、FTP连接等
    ' 这里只是一个简单的示例，演示了如何使用URLDownloadToFile函数来下载文件
    
    Dim result As Long
    result = URLDownloadToFile(0, url, savePath, 0, 0)
    
    DownloadFile = (result = 0) ' 返回下载结果
End Function