Lỗi khi sử dụng ListObject

[nhk147]

Chào các anh/chị,

Em có đoạn code quét qua các table (dạng listobject) để clear filter có sẵn và sort lại một table dữ liệu, thực hiện trên nhiều máy thì chạy bình thường rồi nhưng vào máy chính lại bị báo lỗi là Object variable or With Block variable not set. Code hiện tại của em như sau

For Each lo In sh.ListObjects
    lo.DataBodyRange.Value2 = lo.DataBodyRange.Value2
    With lo.Sort
       .SortFields.Clear
       .SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending
       .Header = xlYes
       .Apply
    End With
Next lo

Khi thực hiện thao tác tương tự trên máy bị lỗi bằng tay và dùng chức năng record macro lại thì nhận được đoạn mã sau

Sub Macro3()
'
.EnableCancelKey("Tuyen_luyen").Type. Index := 1, Item := "Ðà N?ng"
.EnableCancelKey("Tuyen_luyen").Type. Index := 1
Name.DisplayRightToLeft("A1 TVVm").EnableCancelKey("Tuyen_luyen")...DupeUnique
Name.DisplayRightToLeft("A1 TVVm").EnableCancelKey("Tuyen_luyen")... _
ActiveSheet  := Range("Tuyen_luyen[[#All],[T?ng d?i lý]]"), Type := _
xlSortOnValues, SortOn := xlAscending,  := xlSortNormal
With Name.DisplayRightToLeft("A1 TVVm").EnableCancelKey("Tuyen_luyen").
. = xlYes
. = FALSE
. = xlTopToBottom
. = xlPinYin
.
End With
End Sub

Trong đó: "A1 TVVm" là tên Sheet, "Tuyen_luyen" là tên Table

Em tìm hiểu trên mạng thì không có tài liệu nói về các câu lệnh như [Name.DisplayRightToLeft(Tên sheet); .EnableCancelKey(Tên bảng)] nên không hiểu để sửa lỗi

File demo dữ liệu

Bạn cần đăng nhập để thấy link

Nhờ các anh/chị hỗ trợ giải thích và hướng dẫn sửa lỗi giúp em ạ

 

[Binana]

Nhờ các anh/chị hỗ trợ giải thích và hướng dẫn sửa lỗi giúp em ạ

Không có file đính kèm nên chẳng biết mặt mũi dữ liệu ra làm sao để mà tham khảo và sửa chữa cho bạn. Phiền bạn có thể kéo links về đây xem có thể giúp gì cho bạn được không nào?

 

[nhk147]

Không có file đính kèm nên chẳng biết mặt mũi dữ liệu ra làm sao để mà tham khảo và sửa chữa cho bạn. Phiền bạn có thể kéo links về đây xem có thể giúp gì cho bạn được không nào?

Mình gửi thêm file dữ liệu demo, nhờ các bạn cùng xem xét hỗ trọ
Như file hiện tại mình có thể chạy trên các máy rồi, tuy nhiên đúng 1 bạn bị gặp lỗi kia

Bạn cần đăng nhập để thấy link

Bạn cần đăng nhập để thấy link

Bạn cần đăng nhập để thấy link

 

[Binana]

đúng 1 bạn bị gặp lỗi kia

Mình chạy thấy OK mà. Có bị lỗi gì đâu nhỉ