Cách Xử Lý Lỗi Missing References Trong VBA Excel Bằng Code (1 người xem)

[Kiều Mạnh]

Mình có Viết một File *.dll trên VB6 kết nối với Excel khi Add một File *.dll vào thông Qua Tools\References\Browse\*.dll xong thì sử dụng tốt ....nhưng khi mình thay đổi tên Folder *.dll thì nó báo lỗi Missing trong References vì đường dẫn nó tham chiếu tới không tồn lại vì vậy lỗi Missing References .... vấn đề đó mình đã giải quyết tốt bằng code sau......

Nhưng mình vẫn chưa yên tâm thử tải một File trên GPE có lỗi Missing thử test code xem thì thấy code đó không xử lý được mà còn báo lỗi ....trong khi đó cũng code đó mà lỗi Missing References do mình tạo ra thì xử lý tốt chạy tới lui cũng không lỗi code ....
Vậy Mình úp File + code lên nhờ các Bạn kiểm tra và xử lý dùm
Code trong file chạy xử lý lỗi Missing đó không được.... vậy có cách nào xử lý lỗi đó = code
Xin Cảm Ơn Các Bạn

Function IsMissingRefe() As Boolean
    Dim IsMis
    With ActiveWorkbook.VBProject.References
        For Each IsMis In ActiveWorkbook.VBProject.References
            If IsMis.IsBroken Then IsMissingRefe = True    ''Kiem tra loi chay Tot
            'If IsMis.IsBroken Then .Remove (IsMis)          ''Xoa Missing Chay Tot
        Next
    End With
End Function
''
Sub Main_Check()
    If IsMissingRefe Then MsgBox "References Missing Err"
End Sub