ตัดการเชื่อมโยงด้วย VBA
Posted: Mon Apr 12, 2021 12:03 pm
Code: Select all
Sub BreakExternalLinks()
Dim ExternalLinks As Variant
Dim wb As Workbook
Dim x As Long
Set wb = ActiveWorkbook
ExternalLinks = wb.LinkSources(Type:=xlLinkTypeExcelLinks)
For x = 1 To UBound(ExternalLinks) 'error
wb.BreakLink Name:=ExternalLinks(x), Type:=xlLinkTypeExcelLinks
Next x
End Subแต่ถ้าไม่มีลิ้งภายนอกเข้ามา ตัวโปรแกรมจะติดบัคครับเวลาปิดโปรแกรม ผมไปเขียนสั่งไว้ว่าเมื่อจะปิดโปรแกรมให้ทำการลบลิ้งภายนอกออกทั้งหมด เวลาที่เราเปิดโปรแกรมใหม่จะได้เปิดได้เร็วขึ้นครับ บรรทัดที่ติดคือ ที่ผม 'error ไว้ครับบ
ปล อยากส่งไฟล์ให้ทดสอบ แต่เขียนมาโครไว้เต็มไปหมดเลย เลยไม่รู้ว่าจะตัดอะไรยังงัยออกบ้างเลยไม่ได้แนบไฟล์ครับ
