如果vba找不到文件，如何跳到列表中的下一个

Sub FindFile()
    Dim filePaths() As String
    Dim i As Integer
    
    ' 假设文件路径存储在一个数组中
    filePaths = Array("C:\file1.txt", "C:\file2.txt", "C:\file3.txt")
    
    On Error Resume Next ' 启用错误处理
    
    For i = LBound(filePaths) To UBound(filePaths)
        ' 尝试打开文件
        Open filePaths(i) For Input As #1
        
        ' 检查文件是否存在
        If Err.Number <> 0 Then
            ' 文件不存在，跳到下一个文件
            Err.Clear
        Else
            ' 文件存在，进行处理
            ' ...
            
            ' 关闭文件
            Close #1
        End If
    Next i
    
    On Error GoTo 0 ' 恢复默认的错误处理
End Sub