ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦p¦ó§R°£©Ò¦³³sµ²

¦p¦ó§R°£©Ò¦³³sµ²

¦bEXCEL »¡©ú¤¤§ä¨ì§R°£Àɮפ¤²Ä¤@­Ó³sµ²
¦ý¦p¦ó¥i¥H¤@¦¸§R°£©Ò¦³³sµ²,
¦Ó·íÀɮפ¤¨S¦³³sµ²®É¦Ó¤£·|¥X²{¿ù»~°T®§
   
Sub UseBreakLink()

    Dim astrLinks As Variant

    ' Define variable as an Excel link type.
    astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)

    ' Break the first link in the active workbook.
    ActiveWorkbook.BreakLink _
        Name:=astrLinks(1), _
        Type:=xlLinkTypeExcelLinks

End Sub

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD