excel VBA リンク削除

リンク削除サンプルプログラム

Sub Test()

  Dim vntLink As Variant, i As Long

  vntLink = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)

  If IsArray(vntLink) Then

    For i = 1 To UBound(vntLink)

      ActiveWorkbook.BreakLink Name:=vntLink(i), Type:=xlExcelLinks

    Next i

  End If

End Sub