删除指定文件夹下的所有文件外部链接
删除指定文件夹下的所有文件外部链接。
改了两天,终于成功了!
Sub BreakLinkANDDelNames()
Dim aLinks As Variant
Dim j, I As Integer
Dim MyName, Dic, Did, T, TT, MyFileName
On Error Resume Next
Application.AskToUpdateLinks = False
Application.DisplayAlerts = False
Application.ScreenUpdat
原创
2020-12-31 17:25:02 ·
502 阅读 ·
0 评论