Sub BreakLinks()
'Updateby20140318
Dim wb As Workbook
Set wb = Application.ActiveWorkbook
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
For Each link In wb.LinkSources(xlExcelLinks)
wb.BreakLink link, xlLinkTypeExcelLinks
Next link
End If
End Sub
HỖ TRỢ |
---|
02516-544-809 1900-636-507 |
Giờ làm việc |
Sáng 07h30 đến 12h00 |
Chiều 13h30 đến 17h00 |