Lập 1 file excel tổng hợp dữ liệu từ các file excel khác (1 người xem)

[881516]

Hi các anh chị.
Em có bài tập như sau ạ.
Có 2 file điểm thi của học sinh A và B và 1 file tổng hợp điểm học sinh của lớp 5A (Ví dụ thôi ạ)
Làm thế nào để nhập dữ liệu tự động từ file học sinh vào file tổng hợp đc ạ. Giả sử lớp có 50 học sinh thì ko thể nhập tay từng học sinh đc.
Em cảm ơn.

 

[881516]

E up file đính kèm, mọi người xem giúp em ạ

 

[HieuCD]

Hi các anh chị.
Em có bài tập như sau ạ.
Có 2 file điểm thi của học sinh A và B và 1 file tổng hợp điểm học sinh của lớp 5A (Ví dụ thôi ạ)
Làm thế nào để nhập dữ liệu tự động từ file học sinh vào file tổng hợp đc ạ. Giả sử lớp có 50 học sinh thì ko thể nhập tay từng học sinh đc.
Em cảm ơn.

Có nhầm gì không? Hay lại có cải cách mới từ bộ giáo dục? Thông thường từ bảng điểm của lớp xuất ra bảng điểm của từng học sinh, giờ làm ngược lại, chắc phải họp nhiều lần mới nghĩ ra cách giải quyết

 

[881516]

Có nhầm gì không? Hay lại có cải cách mới từ bộ giáo dục? Thông thường từ bảng điểm của lớp xuất ra bảng điểm của từng học sinh, giờ làm ngược lại, chắc phải họp nhiều lần mới nghĩ ra cách giải quyết

Cái này em lấy ví dụ thôi ạ, vì lấy thực tế file từ công việc của em thì dài và phức tạp lắm nên em ko up lên đây. Làm đc bài này em sẽ làm đc việc của em

 

[881516]

Ví dụ như việc khi bán hàng cho mỗi khách hàng, mình cần thống kê lại tên khách hàng, tên hàng hóa, số lượng và thành tiền đó ạ, cần tổng hợp 1 file từ các file bán hàng.
Cái này thực tế mà, mong đc mọi người giúp đỡ

 

[bucminhwa]

File dùng VBA để import tất cả các tập tin cùng thư mục, bạn tham khảo nhé!
====
Ô M1, mình dùng để chứa đường dẫn thư mục.

Sub test()
Dim FolderPath As String
Dim FileName As String
Dim wb As Excel.Workbook
Dim lastRow As Integer
  
FolderPath = Range("M1").Value & "\"
FileName = Dir(FolderPath & "*.xlsx")

Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FolderExists(FolderPath) Then
  
    Do While FileName <> ""
  
        On Error Resume Next
        Set wb = Workbooks.Open(FolderPath & FileName)
        If Err.Number <> 0 Then
            MsgBox ("Unable to open file " & FileName)
        End If
        On Error GoTo 0
        lastRow = Workbooks("bangdiem.xlsm").Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Row
        Workbooks(FileName).Worksheets(1).Range(Cells(5, 2), Cells(10, 2)).Copy
        Workbooks("bangdiem.xlsm").Worksheets(1).Cells(lastRow + 1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
  
        Workbooks(FileName).Close
        FileName = Dir
    Loop

Else
    MsgBox folder & "Specified Folder Not Found", vbInformation, "Not Found!"
End If

End Sub

 

[HieuCD]

Ví dụ như việc khi bán hàng cho mỗi khách hàng, mình cần thống kê lại tên khách hàng, tên hàng hóa, số lượng và thành tiền đó ạ, cần tổng hợp 1 file từ các file bán hàng.
Cái này thực tế mà, mong đc mọi người giúp đỡ

Ví dụ nầy càng căng hơn, mỗi lần bán bạn lập 1 file, 1 năm có thể bán 1000 lần bạn lập 1000 file, chỉ riêng việc đặt tên file như thế nào cũng rối rồi
Gọn hơn, mỗi khách hàng 1 file, bán khách hàng nào thì mở file đó nhập liệu, tìm đúng file để mở cũng không dể cho người nhập liệu, cách tổng hợp lại hoàn toàn khác với ví dụ trước, quan trọng là việc quản trị dữ liệu như sao lưu dự phòng hàng loạt file sẽ khó khăn
Muốn thuận lợi trong nhập liệu, xử lý và quản trị dữ liệu thì tất cả lần bán hàng nhập vào 1 fife duy nhất, nếu cần báo cáo gì xuất đúng báo cáo đó