ตัดการเชื่อมโยงด้วย VBA

[yangkodza]

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

รบกวนชี้แนะครับ ทำ VBA ให้ ลบลิ้งภายนอกออกทั้งหมด กรณีที่มีลิ้งภายนอกเข้ามา ตัวโปรแกรมจะทำงานได้ตามปกติ
แต่ถ้าไม่มีลิ้งภายนอกเข้ามา ตัวโปรแกรมจะติดบัคครับเวลาปิดโปรแกรม ผมไปเขียนสั่งไว้ว่าเมื่อจะปิดโปรแกรมให้ทำการลบลิ้งภายนอกออกทั้งหมด เวลาที่เราเปิดโปรแกรมใหม่จะได้เปิดได้เร็วขึ้นครับ บรรทัดที่ติดคือ ที่ผม 'error ไว้ครับบ

ปล อยากส่งไฟล์ให้ทดสอบ แต่เขียนมาโครไว้เต็มไปหมดเลย เลยไม่รู้ว่าจะตัดอะไรยังงัยออกบ้างเลยไม่ได้แนบไฟล์ครับ

[puriwutpokin]

ลอง เอาคำสั่งนี้ไว้ใต้ตัวแปรที่ประกาศดูครับ

Code: Select all

On Error Resume Next

[yangkodza]

ลอง เอาคำสั่งนี้ไว้ใต้ตัวแปรที่ประกาศดูครับ

Code: Select all

On Error Resume Next

ขอบคุณมากครับ
งานผมเร็วขึ้นมากเลยครับ
ปกติเหมือนเป็นบัคเลยติดลิ้งภายนอกงานเปิดช้ามาก ตอนนี้แก้ได้แล้วครับ