Copy dữ liệu từ nhiều file (1 người xem)

[HopBVB]

Mình có một yêu cầu nhỏ, mong các bạn giúp cho. Search trên mạng này hoài nhưng chưa làm được đúng ý muốn của mình. Mình gửi kèm theo file đính kèm.
Yêu cầu:
1. File DailyWorks là nơi copy dữ liệu từ DailyWorks, DailyWorks2, DailyWorks3, DailyWorks4.
2. Có bao nhiêu dữ liệu trên các file DailyWorks... thì copy vào hết DailyWorks.
Các bạn giúp mình nhé.

 

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

Mình có một yêu cầu nhỏ, mong các bạn giúp cho. Search trên mạng này hoài nhưng chưa làm được đúng ý muốn của mình. Mình gửi kèm theo file đính kèm.
Yêu cầu:
1. File DailyWorks là nơi copy dữ liệu từ DailyWorks, DailyWorks2, DailyWorks3, DailyWorks4.
2. Có bao nhiêu dữ liệu trên các file DailyWorks... thì copy vào hết DailyWorks.
Các bạn giúp mình nhé.

Bạn dùng code sau thử nhé:

Sub GopSheet()
  On Error Resume Next
  Dim myBook As Workbook, mySheet As Worksheet, i As Long
  With Application
    .DisplayAlerts = False
    .EnableEvents = False
    .ScreenUpdating = False
  End With
  With Application.FileSearch
    .LookIn = ThisWorkbook.Path
    .FileType = msoFileTypeExcelWorkbooks
    If .Execute() > 0 Then
      For i = 1 To .FoundFiles.Count
        If .FoundFiles(i) <> ThisWorkbook.FullName Then
          Set myBook = Workbooks.Open(.FoundFiles(i))
          For Each mySheet In myBook.Worksheets
              With mySheet.UsedRange
                .Value = .Value
              End With
              With ThisWorkbook.Sheets(1)
                 mySheet.Range("A6").CurrentRegion.Copy .Range("C65536").End(xlUp).Offset(1, 0)
                .Range(.Range("A65536").End(xlUp).Offset(1, 0), _
                .Range("C65536").End(xlUp).Offset(0, -2)).Value = myBook.Name
                .Range(.Range("B65536").End(xlUp).Offset(1, 0), _
                .Range("C65536").End(xlUp).Offset(0, -1)).Value = mySheet.Name
              End With
           Next mySheet
          myBook.Close
        End If
      Next i
    End If
  End With
  With Application
    .DisplayAlerts = True
    .EnableEvents = True
    .ScreenUpdating = True
  End With
  
End Sub

 

[HopBVB]

Bạn ơi, code không chạy. Tôi copy về rồi paste vào nhưng không có cahyj tẹo nào.
Bạn làm giúp tôi nhé.

 

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

Bạn ơi, code không chạy. Tôi copy về rồi paste vào nhưng không có cahyj tẹo nào.
Bạn làm giúp tôi nhé.

Bạn download file ở trên về chung folder với những file cần tổng hợp, xong mở file đó lên và chạy code thử nhé.

 

[HopBVB]

Mình làm rồi, không được.

 

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

Mình làm rồi, không được.

Lỗi dòng nào vậy bạn
Bạn xem fim mình gộp ở máy mình nhé.

 

[trungkienchat]

Bạn ơi, code không chạy. Tôi copy về rồi paste vào nhưng không có cahyj tẹo nào.
Bạn làm giúp tôi nhé.

Bạn cho mình hỏi nột chút, Làm thế nào để viết được dòng lệnh code đó (những dạng hàm, hay kiểu dữ liệu tìm kiếm nào thì dùng các câu lệnh?). Copy và paste vào đâu vậy? Mình rất thích tìm hiểu về Excel, tuy nhiên có rất nhiều vấn đề không thể nào tự tìm hiểu được. Rất mong nhận được sự chỉ dẫn của mọi người.

 

[HopBVB]

Bạn cho mình hỏi nột chút, Làm thế nào để viết được dòng lệnh code đó (những dạng hàm, hay kiểu dữ liệu tìm kiếm nào thì dùng các câu lệnh?). Copy và paste vào đâu vậy? Mình rất thích tìm hiểu về Excel, tuy nhiên có rất nhiều vấn đề không thể nào tự tìm hiểu được. Rất mong nhận được sự chỉ dẫn của mọi người.

Viết code thì phải biết VB bạn à.

 

[ndu96081631]

Viết code thì phải biết VB bạn à.

Tôi có biết VB là cái gì đâu, sao vẫn viết code được đấy thôi!
Tóm lại: Muốn làm cái gì (không riêng việc viết code) thì phải.. học! Thế thôi
Địa chỉ học: TẠI ĐÂY, GPE

 

[naran]

Andomfootwaer ơi. Tôi đã xem qua code anh viết, thật là ấn tượng. Tuy nhiên, trong trường hợp nếu ta cộng tổng tất cả các dữ liệu của các DailyWorks1,DailyWorks2...vào DailyWorks trong 2 trường hợp:
Trường hợp 1: các file nằm cùng một thư mục
Trường hợp 2: các file DailyWorks1,DailyWorks2... nằm trong một thư mục ftp trong mạng LAN.
Vậy thì code sẽ viết như thế nào, mong anh chỉ dẫn cho.

 

[rosy84]

Code đó không chạy là do các bác sử dụng Excel 2007 không hỗ trợ hầm LookIn . Vì vậy em nghĩ là phải dùng excel 2003