Excel批量断开链接

情况如下：我有几十个的“*.xls”文件，而每个文件都使用了“引用单元格”来获取外部文件的资源。现在我想把这些文件断开链接，保留数值，但又不想一个一个地点击“编辑/链接/断开链接”这么麻烦。
请问：有没有批量断开链接的软件，或者宏代码呢？急盼！
注意：我所说的是“引用单元格”的链接，并非超链接！

Sub 保留数值()
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
[a1].select
End Sub

可以的，Q我40194204，发个样本看看，这个用宏做很简单了。

简单的方法：
Sub deletHyperlink()
Cells.Hyperlinks.Delete
End Sub

Microsoft 提供编程示例仅, 供图示不附带任何明示或暗示。 这包括, 但不仅限于, 适销性或用于特定目的适用性的暗示保证。 本文假定您已熟悉与正在演示编程语言以及工具来调试过程来创建和使用。 Microsoft 支持工程师可以帮助解释功能的特定过程, 但它们将会修改这些示例以提供添加功能或构建过程以满足特定要求。 以下步骤说明如何使用应用程序级事件处理程序来防止 Excel 自动创建超链接。

注意 此过程不阻止使用 HYPERLINK 工作表函数来创建超链接。 1. 保存并关闭所有打开工作簿， 然后创建新工作簿。
2. 启动 VisualBasic 编辑器 （按 ALT+F 11）。
3. 按 CTRL + R 键切换到 ProjectExplorer@@ 窗口。
4. 双击 ThisWorkbook 图标。
5. 模块表中键入以下代码：
Dim WithEvents app As Application
Private Sub app_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Target.Hyperlinks.Delete
End Sub

Private Sub Workbook_Open()
Set app = Application
End Sub

6. 按 ALT+F 11， 切换到 Excel。