Bi lỗi khi lấy dữ liệu từ file excel khác (1 người xem)

[cdbao]

Em có đính kèm file tổng hợp, nó sẽ lấy dữ liệu từ file NVB.xls.
Tuy nhiên em không hiểu sao trong NVB chỉ có 4 line có dữ liệu, khi tổng hợp nó lấy vô tới mấy chục line, line nào cũng có N/A, anh chị xem giúp code dùm em xem bị lỗi chỗ nào ạ

EM xin cám ơn

 

[Kiều Mạnh]

Em có đính kèm file tổng hợp, nó sẽ lấy dữ liệu từ file NVB.xls.
Tuy nhiên em không hiểu sao trong NVB chỉ có 4 line có dữ liệu, khi tổng hợp nó lấy vô tới mấy chục line, line nào cũng có N/A, anh chị xem giúp code dùm em xem bị lỗi chỗ nào ạ

EM xin cám ơn

Thử sủa vầy xem sao nè
Dim Arr()''Them cái này

       Arr = Range("A29:F" & endR).Value
       SourceWb.Sheets("Sheet1").Range("A5").Resize(UBound(Arr), UBound(Arr, 2)) = Arr
       ''Bỏ 2 cái dưới
        'SourceWb.Sheets("Sheet1").Range("A" & eRow & ":F" & eRow + endR - 9).Value = Range("A29:F" & endR).Value
        'SourceWb.Sheets("Sheet1").Range("G" & eRow & ":G" & eRow + endR - 9).Value = wbName

mà sao không cho Dim xuống dưới Option Explicit ...cho lên trên cũng được nhưng nhìn nó không giống ai ...và cũng trả ai giống mình cả he

 

[cdbao]

Cám ơn Kieu Manh, chạy ngon lành rồi, nhưng mình đang cần lấy thêm cột tên file nữa, update dùm mình cái code trong Arr với !! Rất cám ơn

 

[Kiều Mạnh]

Cám ơn Kieu Manh, chạy ngon lành rồi, nhưng mình đang cần lấy thêm cột tên file nữa, update dùm mình cái code trong Arr với !! Rất cám ơn

Thì thêm vầy đi ... ko biết có thêm chi nữa ko ta

SourceWb.Sheets("Sheet1").Range("G5").Resize(UBound(Arr)) = wbName

 

[cdbao]

Mình đã check và hoạt động tốt, nhưng vấn đề hình như code của Kieu Manh chỉ 1 lần lấy 1 file, do mình đầu topic không có nói kỹ là file này sẽ tổng hợp nhiều file, hiện giờ nó đang lấy duy nhất 1 file !! file gốc là nó sẽ gom tất cả line A29 của tất cả các file để fill vào file TONGHOP.XLS

 

[Kiều Mạnh]

Mình đã check và hoạt động tốt, nhưng vấn đề hình như code của Kieu Manh chỉ 1 lần lấy 1 file, do mình đầu topic không có nói kỹ là file này sẽ tổng hợp nhiều file, hiện giờ nó đang lấy duy nhất 1 file !! file gốc là nó sẽ gom tất cả line A29 của tất cả các file để fill vào file TONGHOP.XLS

Vấn đề lấy 1 triệu triệu file hay tỷ tỷ file cũng lấy được hết ...úp 1 file hỏi sao thì làm cho vậy thôi chứ ...
phát sinh tự xử đi ...Mạnh kị nhất dắt mũi chạy theo lắm ......................Run

 

[cdbao]

Sorry bạn nhé !! rất cám ơn dù sao cũng đã tháo gút nhiều vấn đề