Tổng hợp dữ liệu từ nhiều file excel vào 1 file không cần mở file

ffcb1900 · 23/8/13

Mình lúc nào cũng sẽ có 5 file dữ liệu (mỗi file khoảng 2000-5000 dòng dữ liệu), download trực tiếp hàng ngày từ server với định dạng định sẵn dưới định dạng .xls (số cột và vị trí cột định sẵn theo mẫu đính kèm là các file CA1, CA2, CA3, CA4, CA5).

Mình cần tổng hợp lại 5 file vào 1 file duy nhất (như mẫu đính kèm) trong đó du liệu của các file CA1, CA2, CA3, CA4, CA5 sẽ nối tiếp nhau ghep vào 1 sheet theo đúng cột tương ứng. Để tổng hợp đc mà k cần mở cả 5 file lên là tốt nhất (như kiểu paste link và có linh external data vậy).

Mong mọi người giúp đỡ với

Lê Duy Thương · 24/10/15

huongnv.1230 đã viết:
Chào Thầy và các anh chi !
Em muốn tổng hợp du lieu từ tất cả các sheet trong nhiều file vào một sheet tổng hợp. vậy code này phải sửa như thế nào?
nhờ Thầy và các anh chi giúp.

Xinh chân thành cảm ơn !!

code này nhìn quen quen --=0

vui lòng xem file
chú ý tên sheet trong file nguồn sủa thành sheet1,2,3...thì mới chạy

doveandrose · 24/10/15

huongnv.1230 đã viết:
Mọi người ơi giúp em với

gửi bài viết tháng 8 rồi tháng 10 quay lại , rồi sau hôm nay thì tháng mấy bạn quay lại ?
muốn sửa code thì xóa hết code đang có trong file rồi ghi code này vào mà chạy

Mã:

Public Sub hello()
Dim cn As Object, cat As Object, filename, sheetname As String, tbl As Object, vFile
On Error Resume Next
Set cn = CreateObject("ADODB.Connection")
Set cat = CreateObject("ADOX.Catalog")
vFile = Application.GetOpenFilename("Excel File, *.xl*", , , , True)
If TypeName(vFile) = "Variant()" Then
    For Each filename In vFile
        cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & filename & _
                ";mode=read;Extended Properties=""Excel 12.0;HDR=no"";"
        Set cat.ActiveConnection = cn
        For Each tbl In cat.tables
            If Right(tbl.Name, 1) = "$" Or Right(tbl.Name, 2) = "$'" Then
                sheetname = " [" & Replace(tbl.Name, "'", "") & "A13:EM13]"
                'error when range [A13:EM13] empty
                Sheet1.Range("B100000").End(xlUp).Offset(1) _
                .CopyFromRecordset cn.Execute("select * from " & sheetname)
            End If
        Next
        cn.Close
    Next
End If
End Sub

chuotpt3 · 12/9/16

Em xin kính chào cả nhà,
Em đã đọc hết 7 trang của Thread này – nhưng thực sự chưa thấy có nội dung nào như nội dung em cần thực hiện sau đây để áp dụng – nên em đành mạo muội viết post này và các thông tin attach, xin kính nhờ cả nhà giúp em với:
– Em có 1 file tổng hợp – tên gọi AToZ_Summary.xls → Lưu ở 1 Folder riêng
– Và các file chi tiết (cụ thể em attach ở đây là 8 file) → các file này lưu CHUNG ở 1 Folder riêng (không giống folder của File Summary nêu trên)

Em cần tổng hợp số liệu từ 1 sheet của các File Chi tiết này vào File Summary như em ghi nhận Yêu cầu trong File Summary. Xin nói rõ là các File chi tiết sẽ có nhiều Sheet, không chỉ Sheet cần lấy thông tin (Sheet cần thông tin này có mã hiệu ABC) – nhưng em chỉ quan tâm cái Sheet cần lấy thông tin này mà thôi – các Sheet còn lại thì không sử dụng vào file Summary.

Em zip toàn bộ các File này vào chung 1 folder để cả nhà dễ hình dung.

Vậy em kính nhờ cả nhà giúp em với ạ – nội dung em thỉnh nhờ cả nhà là em đã ghi nhận trong Sheet "AToZ_Summary" của File AToZ_Summary.xls rồi ạ

Em rất cảm ơn cả nhà đã đọc tin và em mong tin cả nhà lắm ạ
Em chuotpt3

chuotpt3 · 13/9/16

Em Kính mong cả nhà giúp em với ạ ......

Em xin chân thành cảm ơn cả nhà!!
Em
Chuotpt3

chuotpt3 · 15/9/16

Dạ, em xin lỗi vì không check lại dữ liệu
Em xin cảm ơn anh/thầy hpkhuong lắm lắm – để em chạy thử xem ạ ......
}}}}}

chuotpt3 · 15/9/16

Em xin kính chào Thầy hpkhuong,
Code này chạy thì đúng ạ, không có sai và đúng như em ghi nhận yêu cầu bên trên. Em cảm ơn Thầy lắm.

Nhưng xin Thầy cho em hỏi chút và kính nhờ Thầy ạ:
– Hiện tại các File lẻ AAA, BBB, ...... cần lấy số liệu này là em giả lập số để thông tin rõ ràng hơn chút – và các file này không chỉ có Sheet mà Thầy đã giúp lấy số liệu ấy, mà còn có các Sheet khác nữa – vậy khi chạy code này để lấy số liệu từ Sheet như Sheet em giả lập ấy, thì em ghi nhận TÊN GỌI Sheet này nhận dạng là Mã ABC thì code này chạy có đúng nữa không ạ?
– Và em cũng mong Thầy giúp em thiết kế 1 Button để chạy khi tổng hợp số liệu mà không phải vào ADO code chạy như hiện tại được không Thầy ơi?

Em Mong tin Thầy lắm ạ
Em
chuotpt3

NguyenThienHa · 3/10/16

Xin chào các anh chị trên diễn đàn
Ở bài #3 Thầy ndu có tạo một hàm và sub Main để tổng hợp nhiều file excel vào 1 file nhưng thí dụ có 1 file excel trống (không có số liệu hoặc chỉ có tiêu đề) thì kết quả khi chạy sẽ lấy số liệu file trước đó gán vào file trống này (ví dụ file CA1 có 4 dòng số liệu file CA6 trống nếu lấy CA1 trước CA6 thì kết quả sẽ là 8 dòng CA1)
Xin hỏi các anh chị trên diễn đàn cùng thầy ndu mình sửa code như thế nào để kết quả ra đúng
Cám ơn các anh chị rất nhiều

letrangtkt · 7/10/16

Mọi người cho em hỏi, phần RangeAddress = "B3:TM500000" của em là từ B đến TM, nhưng khi chạy macro thì chỉ lấy từ B đến IU, vì sao lại như vậy ạ.

Em cảm ơn!

thanh12345678 · 22/10/16

Kính gửi diễn đàn giaiphapexcel.com em đã xem từ đầu đến cuối 7 trang về:Tổng hợp dữ liệu từ nhiều file excel vào 1 file không cần mở file"

nhưng em chưa tìm ra cách giải quyết vấn đề của mình rất mong diễn đàn chỉ giúp:
Vấn đề của em như sau:
- Em có 1 folder: QLCV
- Trong folder QLCV: hàng năm em tạo ra các folder theo năm như folder: 2004, 2005, 2006...
- Trong folder QLCV: em có file excel TongHopDiDen.xls dùng để tổng hợp dữ liệu từ các sheet DataDen của các file 2004.xls, 2005.xls, 2006.xls... tương ứng trong các folder: 2004,2005,2006... vào 1 sheet THDataDen.
Rất mong các Thầy trên diễn đàn giúp đỡ em. Em cám ơn rất nhiều.
Vì file gốc của em rất lớn không thể gửi lên được. Em xin gửi file mẫu giống file gốc mong mọi các thầy giúp đỡ.

[h=1]http://www.mediafire.com/file/k0out1xx5xdnz16/QLVB.rar[/h]

thanh12345678 · 25/10/16

Giúp em với cả nhà ơi.

thanh12345678 · 27/10/16

Cám ơn hpkhuong rất nhiều mình đã thử và chạy rất tốt. Nhưng khi test trên excel 2003 thì bị báo lỗi ở dòng này: Set rs = cn.Execute("select * from [Den$A:R] where f1 is not null"). Rất mong hpkhuong giúp mình lần nữa

quanluu · 27/10/16

thanh12345678 đã viết:
Cám ơn hpkhuong rất nhiều mình đã thử và chạy rất tốt. Nhưng khi test trên excel 2003 thì bị báo lỗi ở dòng này: Set rs = cn.Execute("select * from [Den$A:R] where f1 is not null"). Rất mong hpkhuong giúp mình lần nữa

bạn sủa những chố sau xem
Microsoft.ACE.OLEDB.12.0

thành Microsoft.JET.OLEDB.4.0

và Excel 12.0 thành Excel 8.0

toanhue24 · 29/10/16

hpkhuong đã viết:

Bạn chạy thử đoạn sau:

Mã:

Public Sub GPE_ADO()
Dim FOb As Object, Item As Object, Pth As String
Dim cn As Object, rs As Object, Ws As Worksheet
Set Ws = ThisWorkbook.Sheets("THDataDen")
Set cn = CreateObject("ADODB.Connection")
Pth = ThisWorkbook.Path
Application.ScreenUpdating = False
Ws.Range("A2").Resize(5000, 18).ClearContents
Set FOb = CreateObject("Scripting.FileSystemObject").GetFolder(Pth)
For Each Item In FOb.SubFolders
    cn.Open ("provider=Microsoft.ACE.OLEDB.12.0;data source=" & _
        Pth & "\" & Item.Name & "\" & Item.Name & ".xlsx" & ";mode=Read;extended properties=""Excel 12.0;hdr=no"";")
            Set rs = cn.Execute("select * from [Den$A:R] where f1 is not null")
            If Not rs.EOF Then Ws.Range("A65000").End(3)(2).CopyFromRecordset rs
            rs.Close
            cn.Close
Next Item
Set cn = Nothing
Set FOb = Nothing
Set Item = Nothing
MsgBox "Da Tong Hop Xong!"
Application.ScreenUpdating = True
End Sub

anh,
em muốn lấy dữ lieu từ các file khác nhưng dữ lieu nằm rãi rác như A13, C56, D78,...
thì mình sửa code sao anh?
em cảm ơn anh trước nhiều nhiều!

thanh12345678 · 29/10/16

quanluu1989 đã viết:
bạn sủa những chố sau xem
Microsoft.ACE.OLEDB.12.0

thành Microsoft.JET.OLEDB.4.0

và Excel 12.0 thành Excel 8.0

Mình cám ơn bạn đã quan tâm và giúp đỡ. Nhưng mình đã sữa rồi nhưng vần báo lỗi như thế, không biết phải làm sao nữa. Rất mong được giúp đỡ.

thanh12345678 · 29/10/16

hpkhuong đã viết:
Rất có thể file con bên trong là 2003
Nên bạn sửa cụm sau trong code trên.

Mã:

& ".xlsx" &

Thành

Mã:

& ".xls" &

Mình đã sửa .xlsx thành .xls rồi nhưng vẫn báo lỗi y như thế

thanh12345678 · 29/10/16

thanh12345678 đã viết:
Mình đã sửa .xlsx thành .xls rồi nhưng vẫn báo lỗi y như thế

Mình đã khắc phục được rồi. Cám ơn các Thầy rất nhiều đã giúp đỡ mình.

toanhue24 · 3/11/16

thanh12345678 đã viết:
Mình đã khắc phục được rồi. Cám ơn các Thầy rất nhiều đã giúp đỡ mình.

anh,
em muốn lấy dữ lieu từ các file khác nhưng dữ lieu nằm rãi rác như A13, C56, D78,...
thì mình sửa code sao anh?
em cảm ơn anh trước nhiều nhiều!

HieuCD · 21/11/16

toanhue24 đã viết:
anh,
em muốn lấy dữ lieu từ các file khác nhưng dữ lieu nằm rãi rác như A13, C56, D78,...
thì mình sửa code sao anh?
em cảm ơn anh trước nhiều nhiều!

bạn bấm ngôi sao chạy code

toanhue24 · 21/11/16

HieuCD đã viết:
bạn bấm ngôi sao chạy code

em cảm ơn anh nhé! Chúc anh nhiều sức khỏe nhé!

toanhue24 · 29/11/16

HieuCD đã viết:
bạn bấm ngôi sao chạy code

anh ơi,
Nếu không quá phiền, anh cho em xin email của anh với được ko anh? em đang có thắc mắc này em hỏi anh nhưng em gởi tin nhắn, thì báo hộp thư của anh đầy rồi.
em em cảm ơn anh trước nhé!

Tổng hợp dữ liệu từ nhiều file excel vào 1 file không cần mở file

Thành viên chính thức

File đính kèm

Cạo lấy gì gội (Dịch quá không gội được)

File đính kèm

hello

Thành viên hoạt động

File đính kèm

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên gắn bó

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

Chuyên gia GPE

File đính kèm

Thành viên mới

Thành viên mới