tổng hợp dữ liệu từ nhiều file excel khác nhau vào một file gốc (1 người xem)

[luckyluke2828]

Kính chào tất cả các anh
Em có một vấn đề, thấy khá giống với nhiều bạn đã hỏi, nhưng không áp dụng vào trường hợp của mình được nên em hỏi lại, mong được giúp đỡ:
- hàng ngày em nhận được vài chục báo cáo (tên báo cáo dạng như là "BC1_An giang", "BC2_Vinh Long", "BC3_Dong Thap" ...), có form mẫu giống nhau và tên sheet giống nhau.
- Em cần tổng hợp (nói chung là copy, paste) thông tin ở các ô A10, C2, D5 và C8 của từng báo cáo vào file tổng hợp ( tên là "Tong_hop")
- File "Tong_hop" có dạng:
+ cột A: chứa toàn bộ thông tin của các ô A10 trong từng báo cáo, theo thứ tự A2 chứa thông tin của BC1. A3 của BC2, A4 của BC3 ...
+ cột B: chứa toàn bộ thông tin của các ô C2 trong từng báo cáo, thứ tự giống trên.
+ cột C: chứa toàn bộ thông tin của các ô D5 trong từng báo cáo
+ cột E: chứa toàn bộ thông tin của các ô C8 trong từng báo cáo.

Điều em cần chỉ "đơn giản vậy thôi". Mong nhận được sự giúp để của mọi người.

 

[Lê Duy Thương]

kính chào tất cả các anh
em có một vấn đề, thấy khá giống với nhiều bạn đã hỏi, nhưng không áp dụng vào trường hợp của mình được nên em hỏi lại, mong được giúp đỡ:
- hàng ngày em nhận được vài chục báo cáo (tên báo cáo dạng như là "bc1_an giang", "bc2_vinh long", "bc3_dong thap" ...), có form mẫu giống nhau và tên sheet giống nhau.
- em cần tổng hợp (nói chung là copy, paste) thông tin ở các ô a10, c2, d5 và c8 của từng báo cáo vào file tổng hợp ( tên là "tong_hop")
- file "tong_hop" có dạng:
+ cột a: Chứa toàn bộ thông tin của các ô a10 trong từng báo cáo, theo thứ tự a2 chứa thông tin của bc1. A3 của bc2, a4 của bc3 ...
+ cột b: Chứa toàn bộ thông tin của các ô c2 trong từng báo cáo, thứ tự giống trên.
+ cột c: Chứa toàn bộ thông tin của các ô d5 trong từng báo cáo
+ cột e: Chứa toàn bộ thông tin của các ô c8 trong từng báo cáo.

điều em cần chỉ "đơn giản vậy thôi". Mong nhận được sự giúp để của mọi người.

điều em cần đơn giản vậy thôi nhưng xử lý thực tế thật không đơn giản . Nếu có file thật thì tôi đảm bảo chỉ cần trễ nhất không đến 1 giờ đã có người giúp bạn

 

[luckyluke2828]

File minh họa thì Ok, mình tạo ra để các bạn tiện theo dõi
Như ý trên, nói chung là làm sao từ những file như BC1, BC2, BC3, .... sẽ tạo được file Tong_hop theo mẫu mà không tốn nhiều thời gian.

 

[Lê Duy Thương]

File minh họa thì Ok, mình tạo ra để các bạn tiện theo dõi
Như ý trên, nói chung là làm sao từ những file như BC1, BC2, BC3, .... sẽ tạo được file Tong_hop theo mẫu mà không tốn nhiều thời gian.

Bạn đang đánh đố phải không.?
Hỏng lẽ các tỉnh miền tây gửi báo cáo như thế này sao ?
Bác bate ơi vào mà xem tỉnh An giang báo cáo kìa

 

[quanluu]

File minh họa thì Ok, mình tạo ra để các bạn tiện theo dõi
Như ý trên, nói chung là làm sao từ những file như BC1, BC2, BC3, .... sẽ tạo được file Tong_hop theo mẫu mà không tốn nhiều thời gian.

Bạn cho tất cả các file vào cùng 1 folder, mở file tổng hợp, rùi paste code
Note: file tổng hợp có tên: Tong_hop.xlsx, hoặc bạn đổi tên trông code theo file TH thực tế

Sub tong_hop()
Application.ScreenUpdating = False
Dim k As Integer
Dim dArr(), WB As Workbook, FileItem As Object, folder As String
With CreateObject("Scripting.FileSystemObject")
    folder = .GetParentFolderName(ThisWorkbook.FullName)
    ReDim dArr(1 To .GetFolder(folder).Files.Count, 1 To 4)
    For Each FileItem In .GetFolder(folder).Files
        If FileItem.Name <> "Tong_hop.xlsx" And Left(FileItem.Name, 1) <> "~" Then
            k = k + 1
            Set WB = Workbooks.Open(FileItem.Path)
            With WB.Sheets(1)
                dArr(k, 1) = .Range("A10").Value
                dArr(k, 2) = .Range("C2").Value
                dArr(k, 3) = .Range("D5").Value
                dArr(k, 4) = .Range("C8").Value
            End With
            WB.Close False
        End If
    Next
End With
Range("A2").Resize(k, 4) = dArr
Application.ScreenUpdating = True
End Sub

 

[doveandrose]

Bạn đang đánh đố phải không.?
Hỏng lẽ các tỉnh miền tây gửi báo cáo như thế này sao ?
Bác bate ơi vào mà xem tỉnh An giang báo cáo kìa

đặc điểm mỗi nơi mỗi khác mà . Nơi nào cũng báo cáo giống anh Lê Duy Thương thì còn gì hay nữa , chán chết

 

[luckyluke2828]

cảm ơn bạn nhiều lắm

 

[Lê Duy Thương]

đặc điểm mỗi nơi mỗi khác mà . Nơi nào cũng báo cáo giống anh Lê Duy Thương thì còn gì hay nữa , chán chết

Hỏng lẽ lại báo cáo mã sản phẩm và ngày mua chung một cột hả anh chim hồng ?

 

[doveandrose]

Hỏng lẽ lại báo cáo mã sản phẩm và ngày mua chung một cột hả anh chim hồng ?

cái đó nó giống 1 tờ giấy in hơn là 1 bảng mà .

 

[luckyluke2828]

đấy chỉ là file ví dụ, làm cho nhanh thôi, các bác không cần nghiêm trọng lên như thế.