ªð¦^¦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

  1. Sub UseBreakLink()

  2.     Dim astrLinks As Variant

  3.     ' Define variable as an Excel link type.
  4.     astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
  5.    if not isempty(astrLinks) then
  6.     ' Break the first link in the active workbook.
  7.     ActiveWorkbook.BreakLink _
  8.         Name:=astrLinks(1), _
  9.         Type:=xlLinkTypeExcelLinks
  10.    end if
  11. End Sub
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 1# enoch
  1. Sub UseBreakLink()

  2.     Dim astrLinks As Variant

  3.     ' Define variable as an Excel link type.
  4.     astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
  5. Do Until IsEmpty(astrLinks)
  6.     ' Break the first link in the active workbook.
  7.     ActiveWorkbook.BreakLink _
  8.         Name:=astrLinks(1), _
  9.         Type:=xlLinkTypeExcelLinks
  10. astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
  11. Loop
  12. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD