ªð¦^¦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 : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD