Lỗi khi mở File: Err#: 1004 - "That name is not valid"

[vnlp13]

Mỗi khi mở File hay tắt file hiển thị thông báo này, bực quá,bác nào biết chỉ júp e với.

 

[cadafi]

Mỗi khi mở File hay tắt file hiển thị thông báo này, bực quá,bác nào biết chỉ júp e với.

File của bạn có hàng tá Name rác (vào Insert/Name/Define sẽ thấy). Xóa hết các Name rác này là xong thôi.

 

[Po_Pikachu]

File này có quá nhiều rác không tốt. Bạn dùng code sau để xóa các name rác không cần thiết đi là hết bệnh liền!

Sub XoaNames() Dim N  For Each N In ActiveWorkbook.Names If N.RefersTo Like "*[#]REF*" Or N.RefersTo Like "*:\*" Then N.Delete End If Next End Sub

 

[vnlp13]

Cám ơn các bác nhé!
Nhưng khi chạy đoạn code trên thì báo lỗi sau thì sửa như thế nào a?
"That name is not valid" loi 1004.
Bác xem lại giúp với chứ xoá thủ công thì chắc chết

 

[hoangdanh282vn]

Cám ơn các bác nhé!
Nhưng khi chạy đoạn code trên thì báo lỗi sau thì sửa như thế nào a?
"That name is not valid" loi 1004.
Bác xem lại giúp với chứ xoá thủ công thì chắc chết

Mình chạy thấy không có lỗi gì cả, bạn xem file

 

[vnlp13]

Dòng báo lỗi là: N.delete. Không biết mình có thiếu thư viện nào không?
Bạn chỉ giúp với.

 

[Po_Pikachu]

Bạn gửi thử file bị lỗi đó lên xem được không! Mình thử nhiều máy rồi nhưng vẫn không thấy có hiện tượng như bạn nói. Thân.

 

[Mr Okebab]

Cám ơn các bác nhé!
Nhưng khi chạy đoạn code trên thì báo lỗi sau thì sửa như thế nào a?
"That name is not valid" loi 1004.
Bác xem lại giúp với chứ xoá thủ công thì chắc chết

1. File của bạn có hơn 1000 name rác. Hãy xóa chúng

2. Lỗi xảy ra khi tên của các name không đúng quy chuẩn (dấu, ký tự), vì vậy nên là :

Sub XoaNames()
    On Error Resume Next
    Dim N As Name
    For Each N In ActiveWorkbook.Names
        If N.RefersTo Like "*[#]REF*" Or N.RefersTo Like "*:\*" Then
            N.Delete
        End If
    Next
End Sub

Đây là Code để xóa các Name lỗi và name Link

Danh sách các name ở trong File nhé.

Thân!