VBA Excel 文件打开提示取消错误

如何解决VBA Excel文件打开时出现的取消错误

Sub OpenFile()
    Dim wb As Workbook
    On Error Resume Next
    Set wb = Workbooks.Open("C:\path\to\file.xlsx")
    If Err.Number <> 0 Then
        ' 用户取消操作，进行相应处理
        MsgBox "用户取消了文件打开操作！"
        Err.Clear
    Else
        ' 文件成功打开，进行后续操作
        MsgBox "文件已成功打开！"
    End If
    On Error GoTo 0
End Sub

Sub ImportData()
    Dim wb As Workbook
    On Error Resume Next
    Set wb = Workbooks.Open("C:\path\to\file.xlsx")
    If Err.Number <> 0 Then
        ' 用户取消操作，给出提示
        MsgBox "用户取消了文件打开操作！"
        Err.Clear
    Else
        ' 文件成功打开，将数据导入当前工作表
        wb.Sheets(1).UsedRange.Copy Destination:=ActiveSheet.Cells(1, 1)
        MsgBox "数据导入完成！"
        wb.Close SaveChanges:=False
    End If
    On Error GoTo 0
End Sub