Copy dữ liệu từ nhiều file vào 1 file

[hunggtg]

Chào các bạn

Mình có đoạn code sau dùng để copy dữ liệu từ nhiều file để đưa vào 1 sheet. Nhưng vấn đề là nó chỉ lấy dữ liệu (mở) được 256 file thôi, trong khi đó mình có số lượng nhiều hơn thế. Nhờ các bạn giúp giùm xem có cách nào tăng số lượng lên không nhé

Sub Lay_chao_gia()
With Application
  .ScreenUpdating = False
  .DisplayAlerts = False
End With
  FileList = FileNameList(ThisWorkbook.Path & "\Data")
  dongmoi = 2
  For Each Fle In FileList
    wbName = Fle
    Workbooks.Open Filename:=wbName
    Set TgtWb = ActiveWorkbook
    TgtWb.Activate
    For Each sh In Worksheets
      shName = sh.Name
        With Sheets(shName)
          endR = .Range("A26").End(xlDown).Row
          sodong = endR - 26
          nguoilam = Range("H10").Value
          nguoigoi = Range("C16").Value
          Arr = .Range("A27").Resize(sodong, 9).Value
        End With
      TgtWb.Close (True)
    Next
    With Sheets("Tong hop bao gia")
      On Error Resume Next
      .Range("A" & dongmoi).Resize(sodong, 9) = Arr
       eRow = .[B65000].End(xlUp).Row
      .Range("J" & dongmoi & ":J" & eRow).Value = nguoilam
      .Range("K" & dongmoi & ":K" & eRow).Value = nguoigoi
      dongmoi = dongmoi + sodong
      Erase Arr
    End With
  Next
With Application
  .ScreenUpdating = True
  .DisplayAlerts = True
End With
End Sub

Cám ơn các bạn nhiều

 

[Hai Lúa Miền Tây]

1 Sheet ở Excel 2003 có tối đa 65536 dòng, vậy xin hỏi bạn 256 files của bạn có tổng cộng bao nhiêu dòng vậy bạn ?

 

[hunggtg]

Chào bạn

Số dòng trong 1 file của mình chỉ khoảng 100 dòng thôi, nên cho dù có lên đến 256 file thì tổng số dòng cũng chỉ là 25,600 thôi.