麻烦大佬帮忙修改一下VBA代码

乄蜗牛

Sub 取消外部链接()
    Dim wb As Workbook
    Dim link As Variant
   
    ' 禁用弹出窗口
    Application.DisplayAlerts = False
   
    ' 循环遍历当前文件夹下的所有Excel文件
    Dim Path As String
    Path = ThisWorkbook.Path & "\"
   
    Dim fileName As String
    fileName = Dir(Path & "*.xlsx")
   
    Do While fileName <> ""
        ' 打开每个文件
        Set wb = Workbooks.Open(Path & fileName, False, False)
        
        ' 断开外部链接
        For Each link In wb.LinkSources(xlExcelLinks)
            wb.BreakLink Name:=link, Type:=xlLinkTypeExcelLinks
        Next link
        
        ' 保存并关闭文件，不显示保存提示
        wb.Close SaveChanges:=True, fileName:=wb.FullName
        
        ' 继续下一个文件
        fileName = Dir
    Loop
   
    ' 启用弹出窗口
    Application.DisplayAlerts = True
End Sub

这段代码功能为：取消当前文件夹下Excel文件的外部链接。

现在遇到一个问题：当前文件夹下某个Excel文件内没有外部链接时，出现以下错误：



请各位大佬帮忙修改一下以上VBA代码，实现以下功能：取消当前文件夹下Excel文件的外部链接，若某个Excel文件没有外部链接时，也能正常运行。

psxk3535028-1

On Error Resume Next

没有文件，不知具体情况，图片也看不到，试试添加 On Error Resume Next 忽略错误行不行