Tổng Hợp Dữ Liệu (1 người xem)

[letinnghia]

chào cả nhà GPE! Mình đang gặp khó khan trong excel mong các bạn giúp dùm.mình có rất nhiều file excel cùng nằm trong một thư mục(Folder), mỗi file excel có nhiều sheet nhưng có định dạng đều going nhau. mỗi tháng sau khi cập nhật dữ lieu xong mình phải copy sheet có tên "TK" từ D5:H5 trở xuống của từng file ra một file excel tạm sau đó dung PivoTable để tong hợp dữ liệu. Nhờ các bạn GPE xem có cách nào lấy dữ liệu từ D5:H5 sheet "TK" của mỗi file ra file tạm nhanh nhất không.Dữ liệu mỗi file excel của Sheet "TK" từng tháng có thay đổi.

 

[letinnghia]

có cao thủ nào ra tay giúp mình vần đề này đi. cảm ơn nhiều

 

[be_09]

có cao thủ nào ra tay giúp mình vần đề này đi. cảm ơn nhiều

Về gộp File, gộp sheet bạn tham khảo code trong File này nhé.

https://app.box.com/s/5s4gswnwwetojab7gbqy

 

[ChanhTQ@]

Cũng có khi nhiều file chưa thật là hợp lí

Bạn có thể mô tả file để có thể có những khuyến cáo hợp lí hơn.

Còn giữ nguyên nhiều file thì mình chào thua luôn!

Chúc vui!

 

[baquang1984]

chào cả nhà GPE! Mình đang gặp khó khan trong excel mong các bạn giúp dùm.

Bạn có thể tham khảo Code của thầy ndu96081631
Dùng ADO sẽ không cần mở file:
Bạn xem file đính kèm
- Lưu ý: là khi bố trí các Sheets trong File thì đưa Sheets TK lên đầu nhé VD theo thứ tự Sheet1, Sheet2, Sheet3 .... thì bạn sắp xếp Sheets"TK", 1, 2, 3 .... Để chương trình nhận được Sheets"TK"
Thanks

 

[letinnghia]

Bạn có thể tham khảo Code của thầy ndu96081631
Dùng ADO sẽ không cần mở file:
Bạn xem file đính kèm
- Lưu ý: là khi bố trí các Sheets trong File thì đưa Sheets TK lên đầu nhé VD theo thứ tự Sheet1, Sheet2, Sheet3 .... thì bạn sắp xếp Sheets"TK", 1, 2, 3 .... Để chương trình nhận được Sheets"TK"
Thanks

Cảm ơn Bạn Bởi nhiều. file của bạn gửi cho mình không có code gì hết thì phải sử dung thế nào. File của thầy ndu96081631 là gộp nhiều sheet vào một file. Còn của mình là gộp mỗi sheet của một file thành một sheet mới của file mới, bạn xem lại dùm mình nhé.

 

[baquang1984]

Cảm ơn Bạn Bởi nhiều. file của bạn gửi cho mình không có code gì hết thì phải sử dung thế nào. File của thầy ndu96081631 là gộp nhiều sheet vào một file. Còn của mình là gộp mỗi sheet của một file thành một sheet mới của file mới, bạn xem lại dùm mình nhé.

Mình gửi file đính kèm có Code trong đó mà bạn chỉ cần mở file và bẩm tổ hợp phím Alt + F11 thì sẽ hiện ra bảng hiển thị của các Mudun viết code trong đó.
- Là Code đã viết theo đúng ý của bạn, khi mà bạn muốn tổng hợp từ mỗi sheets của nhiều File Excel bạn chỉ cần chọn tất cả các File mà bạn muốn tổng hợp và nhấn ok là được chương trình sẽ tổng hợp cho bạn
Thanks

 

[letinnghia]

Mình gửi file đính kèm có Code trong đó mà bạn chỉ cần mở file và bẩm tổ hợp phím Alt + F11 thì sẽ hiện ra bảng hiển thị của các Mudun viết code trong đó.
- Là Code đã viết theo đúng ý của bạn, khi mà bạn muốn tổng hợp từ mỗi sheets của nhiều File Excel bạn chỉ cần chọn tất cả các File mà bạn muốn tổng hợp và nhấn ok là được chương trình sẽ tổng hợp cho bạn
Thanks

Cảm ơn bạn nhé, mình đã làm dược rồi. Tuy nhiên nhờ bạn xem lại dùm mình ở chổ lấy dữ lieu của sheet "TK" từ dòng D5:H5 trở xuống mà, bạn kiểm tra dùm mình nhé.

 

[letinnghia]

Cảm ơn bạn nhé, mình đã làm dược rồi. Tuy nhiên nhờ bạn xem lại dùm mình ở chổ lấy dữ lieu của sheet "TK" từ dòng D5:H5 trở xuống mà, bạn kiểm tra dùm mình nhé.

Bạn nghiêng cứu tiếp dùm mình chỗ này nhé

 

[baquang1984]

Bạn nghiêng cứu tiếp dùm mình chỗ này nhé

Mình cũng mới tập tành với VBA nên kinh nghiệm chưa có nhiều nên chưa thể xử lý tiếp vụ này giúp bạn được chắc là phải nhờ đến các cao thủ của diễn đàn thôi, bạn chờ nhé chắc sẽ có người giúp bạn
Thanks!

 

[letinnghia]

Có cao thủ nào giúp dùm mình vấn đề này đi GPE ơi.

 

[be_09]

Có cao thủ nào giúp dùm mình vấn đề này đi GPE ơi.

Tôi có ý kiến nhưng không thấy cám ơn nên đành ngó qua thôi, có ai rảnh thì sẽ giúp nhé.

 

[Quang_Hải]

chào cả nhà GPE! Mình đang gặp khó khan trong excel mong các bạn giúp dùm.mình có rất nhiều file excel cùng nằm trong một thư mục(Folder), mỗi file excel có nhiều sheet nhưng có định dạng đều going nhau. mỗi tháng sau khi cập nhật dữ lieu xong mình phải copy sheet có tên "TK" từ D5:H5 trở xuống của từng file ra một file excel tạm sau đó dung PivoTable để tong hợp dữ liệu. Nhờ các bạn GPE xem có cách nào lấy dữ liệu từ D5:H5 sheet "TK" của mỗi file ra file tạm nhanh nhất không.Dữ liệu mỗi file excel của Sheet "TK" từng tháng có thay đổi.

Copy code này vào file tạm của bạn. Tạo 1 sheet có tên là TONG rồi chạy thử code

Sub TONG_HOP()
Application.ScreenUpdating = False
Dim ObjFSO As Object, ObjFile As Object
Dim Sarr(), I As Long, tam(), Sh As Worksheet
Set Sh = Sheets("TONG")
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
    With ObjFSO
      With .Getfolder(ThisWorkbook.Path)
         For Each ObjFile In .Files
            If ObjFSO.GetExtensionName(ObjFile.Name) Like "xls*" Then
               If Left(ObjFile.Name, 1) <> "~" Then
                  If ObjFile.Name <> ThisWorkbook.Name Then
                     ReDim Preserve Sarr(I)
                     Sarr(I) = ObjFile.Name
                     I = I + 1
                  End If
               End If
            End If
         Next
      End With
    End With
    For I = 0 To UBound(Sarr)
        Workbooks.Open (ThisWorkbook.Path & "\" & Sarr(I))
        With ActiveWorkbook
            With .Sheets("TK")
                tam = .Range(.[D5], .[H65536].End(3)).Value
                Sh.[A65536].End(3).Offset(1).Resize(UBound(tam), 5) = tam
            End With
            .Close False
        End With
    Next
Application.ScreenUpdating = True
End Sub

 

[letinnghia]

Tôi có ý kiến nhưng không thấy cám ơn nên đành ngó qua thôi, có ai rảnh thì sẽ giúp nhé.

Đây là một sự thiếu sót vô tình. Thành thật sorry bạn. Cảm ơn bạn đã nhắc nhở.

 

[siwtom]

Đây là một sự thiếu sót vô tình. Thành thật sorry bạn. Cảm ơn bạn đã nhắc nhở.

Xin lỗi mà phải dùng tới tiếng Anh mới lột tả hết được sự chân thành?
Chả nhẽ tiếng Việt nghèo nàn thế sao? Chả nhẽ người Việt cám ơn nhau, xin lỗi nhau phải dùng tới tiếng Anh?

 

[VetMini]

Xin lỗi mà phải dùng tới tiếng Anh mới lột tả hết được sự chân thành?
Chả nhẽ tiếng Việt nghèo nàn thế sao? Chả nhẽ người Việt cám ơn nhau, xin lỗi nhau phải dùng tới tiếng Anh?

Sự thật ngược với câu 1 của bạn. Vì vậy cho nên câu 2 là đúng. Tiếng Việt rất khó dùng những lời lơi là, nói cám ơn mà không hẳn là mang ơn (tôi nói khó chứ không phải là không thể).
Khi học tiếng Anh, người ta học những tiếng đầu môi chót lưỡi này (hello, dear, bro, thanks, sorry, ...). Khi nói chuyện xã giao với nhau, chúng rất dễ vọt ra. Có khi chính người dùng cũng không nhận ra.