常用功能加载宏——断开外部链接

xyj

发布于 2020-07-28 14:11:01

3.6K00

代码可运行

文章被收录于专栏：VBA 学习VBA 学习

运行总次数：0

代码可运行

使用Excel处理数据，经常会在单元格中使用公式引用多个工作簿之间的数据，工作簿以及被引用数据的工作簿关闭后，再打开工作簿的时候，会出现如下提示：

如果点击更新，但是被引用的工作簿文件名称修改了，或者存放路径修改了，将无法正常更新：

作为使用者肯定不希望有这种提示，于是很多人应该会想到干脆把公式数值粘贴掉，避免出现这个提示。

于是找到那些使用公式的单元格，不停的复制-选择性粘贴-数值……

如果公式太多，而且不在同一个区域的话，操作起来就会比较麻烦，其实Excel里已经做好了这种功能：

点击图中的断开链接，即可达到目的，不过这种链接必须一个一个的去点，如果公式引用了太多外部数据，这样也是不大方便的，Excel菜单能达到的功能，VBA基本也都可以做到，对于经常会碰到这种情况需要做这个操作的，创建自定义加载宏按钮来使用还是比较方便的：

首先在customUI.xml中增加代码：

      <button id="rbbtnBreakLink" label="断开外部链接" size="large" onAction="rbbtnBreakLink" imageMso="SourceControlShareObjects"/>

回调函数：

Sub rbbtnBreakLink(control As IRibbonControl)
    Call MRange.BreakLink
End Sub

函数实现：

Sub BreakLink()                '断开外部链接
    Dim arr, i As Integer
   
    arr = ActiveWorkbook.LinkSources(xlExcelLinks) '返回工作簿中链接的数组
    '如果工作簿中无链接，则返回 Empty。
    If VBA.IsEmpty(arr) Then
        Exit Sub
    End If
    
    For i = 1 To UBound(arr)
        ActiveWorkbook.BreakLink Name:=VBA.CStr(arr(i)), Type:=xlExcelLinks
    Next
End Sub

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2020-06-27，如有侵权请联系 cloudcommunity@tencent.com 删除

xml