在打开源文件失败时处理错误的VBA

Sub OpenFile()
    Dim filePath As String
    Dim fileNumber As Integer
    
    On Error GoTo ErrorHandler
    
    filePath = "C:\path\to\file.txt"
    fileNumber = FreeFile
    
    Open filePath For Input As #fileNumber
    
    ' 打开文件成功后的操作
    
    Close #fileNumber
    
    Exit Sub
    
ErrorHandler:
    ' 处理打开文件失败的错误
    MsgBox "打开文件失败：" & Err.Description
    
    ' 清除错误状态
    Err.Clear
    
    ' 可以选择继续执行其他操作或退出子程序
    
End Sub