批量断开链接的代码哪里有问题

junxiang

Sub BacthBreakLink() ' 批量断开链接

Dim Filename As Variant
Dim Thisbook As Workbook
Dim aLinks As Variant
Dim i, j
Application.AskToUpdateLinks = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.EnableEvents = False
Filename = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "打开要断开的表格", MultiSelect:=True)
If VarType(Filename) = vbBoolean Then Exit Sub
For i = 1 To UBound(Filename)
Set Thisbook = Workbooks.Open(Filename(i))
aLinks = Thisbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If Not IsEmpty(aLinks) Then
For j = 1 To UBound(aLinks)
Thisbook.BreakLink Name:=aLinks(j), Type:=xlLinkTypeExcelLinks
Next j
End If
Thisbook.Close SaveChanges:=False
Set Thisbook = Nothing
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.AskToUpdateLinks = True
End Sub

大家帮忙看下，这段批量断开链接的代码哪里有问题，为什么每次运行后，链接还是没有被断开

LangQueS

仅供参考：

Sub 取消本表超链接()
Cells.Hyperlinks.Delete
End Sub

junxiang

LangQueS 发表于 2011-11-16 14:21
仅供参考：

Sub 取消本表超链接()

取消的不是超链接，是断开外部链接

情况如下：我有几十个的“*.xls”文件，而每个文件都使用了“引用单元格”来获取外部文件的资源。现在我想把这些文件断开链接，保留数值，但又不想一个一个地点击“编辑/链接/断开链接”这么麻烦。

cg1

Thisbook.Close SaveChanges:=False


不保存？

junxiang

cg1 发表于 2011-11-16 15:57
Thisbook.Close SaveChanges:=False

英明，问题就出在这！
不过要继续追问下，可否批量断开文件夹（包括子文件夹）中得excel链接呢？代码该如何改一下呢？

Baiyssy

写一段vba，断开所有与目前工作簿链接的工作簿


以下是可以断开所有与目前工作簿链接的工作簿的 VBA 代码：

vba
Copy code
Sub BreakLinks()
    Dim wb As Workbook
    For Each wb In Application.Workbooks
        If wb.Name <> ThisWorkbook.Name Then
            wb.BreakLink Name:=ThisWorkbook.FullName, Type:=xlLinkTypeExcelLinks
        End If
    Next wb
End Sub
运行该 VBA 代码后，将断开所有与目前工作簿链接的工作簿。请注意，此代码将断开所有链接，包括那些不想断开链接的工作簿，因此请谨慎使用。如果只想断开特定的链接，可以根据链接名称或类型进行筛选。

运行报错，提示方法BreakLink作用于对象失败


如果在运行 VBA 代码时提示“方法 BreakLink 对象 _Workbook 失败”，可能是因为该方法只适用于 Excel 2010 或更早版本的 Excel。如果您正在使用 Excel 2013 或更新版本的 Excel，应该使用以下代码：

vba
Copy code
Sub BreakLinks()
    Dim link As Variant
    For Each link In ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
        ActiveWorkbook.BreakLink Name:=link, Type:=xlLinkTypeExcelLinks
    Next link
End Sub
此代码将遍历当前工作簿的所有链接，并断开与所有 Excel 链接相关的链接。请注意，此代码将断开所有链接，包括那些不想断开链接的工作簿，因此请谨慎使用。如果只想断开特定的链接，可以根据链接名称或类型进行筛选。

后一段代码亲测有效