使用变量而不是提供整个路径时，Breaklink不起作用

Question

我使用以下代码来破解我的链接： ActiveWorkbook.BreakLink Name:="C:\Users\admin\desktop\tool\breaklink tool.xls", Type:=xlLinkTypeExcelLinks

但问题是工具每次都不会驻留在同一条路径上。所以我用下面的代码： toolpath = Thisworkbook.Path + "\breaklink tool.xls" ActiveWorkbook.BreakLink Name:=toolpath, Type:=xlLinkTypeExcelLinks 但这不起作用。抛出以下错误：

如果我点击调试并按f5继续，链接就会刹车。这完全是烦人的。我不知道我哪里做错了。谁能帮帮我呢？

Answer 1

试试这个：

Sub BreakLinks()
    Dim arrLinks
    Dim i                As Long
    arrLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(arrLinks) Then
        For i = LBound(arrLinks) To UBound(arrLinks)
            If InStr(1, arrLinks(i), "\breaklink tool.xls", vbTextCompare) > 0 Then _
                        ActiveWorkbook.BreakLink arrLinks(i), xlLinkTypeExcelLinks
        Next i
    End If
End Sub