Nhờ xem giúp lỗi copy dữ liệu bằng ADO

[MinhKhai]

Chào các anh chị
Em có dùng ADO để copy dữ liệu từ sheet này sang sheet khác như trong file.
Trong file, 1 sheet (Exported1) thì copy được, còn sheet kia (Exported_BS) thì không copy được đầy đủ. dù cấu trúc của 2 sheet là giống nhau.
Nhờ các anh chị bác xem giúp nguyên nhân và cho cách xử lý ạ
Cảm ơn anh chị

 

[Kiều Mạnh]

Chào các anh chị
Em có dùng ADO để copy dữ liệu từ sheet này sang sheet khác như trong file.
Trong file, 1 sheet (Exported1) thì copy được, còn sheet kia (Exported_BS) thì không copy được đầy đủ. dù cấu trúc của 2 sheet là giống nhau.
Nhờ các anh chị bác xem giúp nguyên nhân và cho cách xử lý ạ
Cảm ơn anh chị

SQL của Sheet Exported_BS chi tiết như sau

SELECT [Ngày tạo], [Người tạo], [Giao cho], [Tên nhiệm vụ], [Nội dung], [Người theo dõi], [Giai đoạn], [Trạng thái], [Nhãn], [Lý do thất bại], [Thời gian hoàn thành], [Cập nhật gần nhất], [Nội dung cuộc họp], [Cách thức yêu cầu], [Phòng họp], [Ban/Khách hàng yêu cầu], [Phân loại cuộc họp], [Điểm cầu kết nối], [Ngày họp theo lịch], [Thời gian họp theo lịch], [Thời gian CB sẵn sàng], [Ảnh Thiết bị sẵn sàng], [Thời gian thiết bị kết nối], [Ảnh Kết nối], [Hình thức kết nối], [Điểm cầu kết nối thực tế], [Thời gian cuộc họp bắt đầu thực tế], [Thời gian cuộc họp kết thúc thực tế], [Điểm cầu (bổ sung)], [Số người đầu gần], [Số người đầu xa], [Đường truyền], [Hình ảnh], [Âm thanh], [Tình trạng thiết bị], [Hình ảnh dọn dẹp] FROM [Exported_BS$]

Rút gọn như sau

select * from [Exported_BS$]

Tôi thử 2 cấu trúc SQL trên hoạt động tốt ... bạn hãy thử xem sao xong tính tiếp

 

[ongke0711]

Em có dùng ADO để copy dữ liệu từ sheet này sang sheet khác như trong file.
Trong file, 1 sheet (Exported1) thì copy được, còn sheet kia (Exported_BS) thì không copy được đầy đủ. dù cấu trúc của 2 sheet là giống nhau.
Nhờ các anh chị bác xem giúp nguyên nhân và cho cách xử lý ạ

Bạn sửa chuỗi kết nối lại như bên dưới nhé.

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 xml;HDR=YES;IMEX=1;"";"

Sửa code Sort lại (lấy từ stackoverflow):

With Sheet6.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Columns("S"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        .SortFields.Add Key:=Columns("T"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Sheet6.Range("A1:AJ51") 'WholeRange
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With

Cái vụ hiện số "0", bạn tự sửa, tôi không biết nhé.