VBA学习(51)：实现断开多个工作簿的所有链接源

在财务报表审计中，往往需要我们编制实质性工作底稿。这些底稿或多或少链接了其他工作簿。

实质性工作底稿（部分）

当我们发送底稿给质控部复核时，可能需要断开这些工作簿的所有链接源。这主要出于以下两种考虑。一是独立性，减少对其他工作簿的依赖，提高工作簿的打开和保存速度；二是安全性，避免链接的工作簿路径对他人可见。

VBA实现代码如下

Sub 断开多个工作簿的所有xlsx链接源()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With Application.FileDialog(msoFileDialogFolderPicker)
         .Title = "请选择工作簿所在的文件夹路径"
        If .Show Then
            Dim pathSelected As String, fn As String
            pathSelected = .SelectedItems(1)
            fn = Dir(pathSelected & "\*.xlsx")
            
            Dim wb As Workbook, arrLinks As Variant
            Do While fn <> ""
                Set wb = Workbooks.Open(pathSelected & "\" & fn, False)
                
                arrLinks = wb.LinkSources(xlExcelLinks)
                If Not IsEmpty(arrLinks) Then
                    For i = 1 To UBound(arrLinks)
                        wb.BreakLink Name:=arrLinks(i), Type:=xlExcelLinks
                    Next
                End If
                
                wb.Save
                wb.Close
                fn = Dir
            Loop
        End If
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

VBA实现思路：首先，弹出文件对话框，选择工作簿所在的文件夹路径；然后，遍历并逐个打开该文件夹下的工作簿（代码中第9行限制工作簿为xlsx文件，读者根据实际情况设置）；最后，判断该工作簿是否存在Excel链接源，如果存在，则断开所有链接源，并保存关闭。

 

技术交流，软件开发，欢迎微信沟通：