Xin giúp về code VBA tổng hợp dữ liệu bổ nhiệm giáo viên (1 người xem)

[congatrong82]

Minh có 10 file cần tổng hợp qua File Tong Hop Bo nhiem Tieu Hoc 2015
Mình nhờ ACE diễn đàn viết dùm code tổng hợp file. Xin chân thành cảm ơn ACE diễn đàn rất nhiều.
Do hết quota nên mình gởi link dưới.
Link: https://drive.google.com/file/d/0B6c...ew?usp=sharing

 

[seikoqn]

Minh có 10 file cần tổng hợp qua File Tong Hop Bo nhiem Tieu Hoc 2015
Mình nhờ ACE diễn đàn viết dùm code tổng hợp file. Xin chân thành cảm ơn ACE diễn đàn rất nhiều.
Do hết quota nên mình gởi link dưới.
Link: https://drive.google.com/file/d/0B6c...ew?usp=sharing

Cả 10 File đều giống nhau mà bạn? Nếu vậy bạn chỉ cần copy pase từ 1 File bất kỳ sang File TH là xong!

 

[doveandrose]

xem hướng dẫn ở đây
http://www.giaiphapexcel.com/forum/...viết-code-tổng-hợp-dữ-liệu-bổ-nhiệm-giáo-viên

 

[congatrong82]

Do co nhiều file, khoan 80file, neu coppy thi qua lau ban ak. Nên mình nhờ viết code thoi

 

[congatrong82]

Cả 10 File đều giống nhau mà bạn? Nếu vậy bạn chỉ cần copy pase từ 1 File bất kỳ sang File TH là xong!

Ý của mình thì khác. Hiện tại mình có khoản 86 trường. Bởi vậy mới nhờ viết code vba bạn à.

 

[chuot0106]

Minh có 10 file cần tổng hợp qua File Tong Hop Bo nhiem Tieu Hoc 2015
Mình nhờ ACE diễn đàn viết dùm code tổng hợp file. Xin chân thành cảm ơn ACE diễn đàn rất nhiều.
Do hết quota nên mình gởi link dưới.
Link: https://drive.google.com/file/d/0B6c...ew?usp=sharing

Đặt File này và các File cấn tổng hợp vào cùng 1 thư mục giống lúc bạn đưa nên! Chạy code và xem kết quả!

 

[namkpac]

Đặt File này và các File cấn tổng hợp vào cùng 1 thư mục giống lúc bạn đưa nên! Chạy code và xem kết quả!

Public Sub TongHop()
Dim CoN As Object, Data As Object, I As Byte, mR As Long
Set CoN = CreateObject("adodb.connection")
'Provider=Microsoft.ACE.OLEDB.12.0 '(office 64Bit)
'microsoft.jet.oledb.4.0 '(office 32Bit)
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = ThisWorkbook.Path
.Filters.Clear
.Filters.Add "Chon File", "*.xls*"
.AllowMultiSelect = True
.Show
For I = 1 To .SelectedItems.Count
CoN.Open ("provider=Microsoft.ACE.OLEDB.12.0;data source=" & _
.SelectedItems(I) & ";mode=Read;extended properties=""Excel 12.0;hdr=no"";")

Set Data = CoN.Execute("select * from [Sheet1 (2)$A10:T] where f1 is not null")
mR = WorksheetFunction.Max(Sheet1.[A65000].End(xlUp).Row + 1, 11)
'If Not Data.EOF Then Worksheets("Tonghop").Range("A" & mR).CopyFromRecordset Data
Data.Close
CoN.Close
Next I

Worksheets("Tonghop").Range("A" & mR).Consolidate Sources:=Data, Function:=xlSum
End With
End Sub

Em muốn dùng consoildate mà duyệt qua từng mảng thế này nó báo lỗi consolidated method of range class failed là sao anh (chị) nhỉ?. giả sử số liệu trong file chỉ là định dạng số. thì dùng consolidate sum là để cộng dồn số thì nó không duyệt qua từng mảng để cộng dồn. anh (chị) chỉ giúp em với.