Xin hỏi cách tổng hợp nhiều file xlsm vào 1 file xlsx duy nhất

Liên hệ QC
B

blackcucu

Thành viên mới
Tham gia
18/5/16
Bài viết
25
Được thích
0
Giới tính
Nam
Xin hỏi các anh chị là có thể tổng hợp nhiều file xlsm vào 1 file xlsx duy nhất bằng cách sử VBA excel không ạ?
Nếu có xin cho em xin vài dòng code này. Em có nhiều file A.xlsm, B.xlsm... Trong đó em muốn tổng hợp dữ liệu các sheet2 của các file A.xlsm, B.xlsm vào 1 file excel duy nhất là tonghop.xlsx

Xin cảm ơn.
 
Lần chỉnh sửa cuối:
Em gởi file lên đây. Mọi người có ai xem hộ giúp em. Các file cần lấy data là sheet2 của 001.xlsm, 002.xlsm tổng hợp vào File tong hop. xlsm.
Em xin cảm ơn.
 

File đính kèm

  • 001.xlsm
    37.8 KB · Đọc: 6
  • 002.xlsm
    40.6 KB · Đọc: 7
  • FILE TONG HOP.xlsm
    25.4 KB · Đọc: 7
blackcucu đã viết:
Em gởi file lên đây. Mọi người có ai xem hộ giúp em. Các file cần lấy data là sheet2 của 001.xlsm, 002.xlsm tổng hợp vào File tong hop. xlsm.
Em xin cảm ơn.
Nhấp chuột vào đây để mở rộng...
Bạn làm như sau nhé!
Bước 1: copy dòng tiêu đề vào FILE TONG HOP
Bước 2: copy code
Mã: 
Sub get_data()
    Dim lr1 As Long, lr2 As Long
    Dim rng As Range
    Dim Item As Variant
    Dim wk As Workbook, ws As Worksheet, master As Worksheet
    
    Set master = ThisWorkbook.Sheets(1)
    
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Filters.Add "Microsoft Excel Files", "*.xls*", 1
        If Not .Show = -1 Then
            MsgBox "Ban chua chon File", vbInformation, "----Mr.GPE----"
            Exit Sub
        End If
        For Each Item In .SelectedItems
            Set wk = Workbooks.Open(Item)
            For Each ws In wk.Sheets
                If ws.Name = "Manifest" Then
                    With ws
                        lr1 = .Range("B" & Rows.Count).End(xlUp).Row
                        Set rng = .Range("A3:L" & lr1)
                        With master
                            lr2 = .Range("B" & Rows.Count).End(xlUp).Row + 1
                            .Range("A" & lr2).Resize(lr1 - 2, 12) = rng.Value2
                        End With
                    End With
                End If
            Next ws
            wk.Close
        Next Item
    End With
End Sub
 
vanthinh3101 đã viết:
Bạn làm như sau nhé!
Bước 1: copy dòng tiêu đề vào FILE TONG HOP
Bước 2: copy code
Mã: 
Sub get_data()
    Dim lr1 As Long, lr2 As Long
    Dim rng As Range
    Dim Item As Variant
    Dim wk As Workbook, ws As Worksheet, master As Worksheet
   
    Set master = ThisWorkbook.Sheets(1)
   
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Filters.Add "Microsoft Excel Files", "*.xls*", 1
        If Not .Show = -1 Then
            MsgBox "Ban chua chon File", vbInformation, "----Mr.GPE----"
            Exit Sub
        End If
        For Each Item In .SelectedItems
            Set wk = Workbooks.Open(Item)
            For Each ws In wk.Sheets
                If ws.Name = "Manifest" Then
                    With ws
                        lr1 = .Range("B" & Rows.Count).End(xlUp).Row
                        Set rng = .Range("A3:L" & lr1)
                        With master
                            lr2 = .Range("B" & Rows.Count).End(xlUp).Row + 1
                            .Range("A" & lr2).Resize(lr1 - 2, 12) = rng.Value2
                        End With
                    End With
                End If
            Next ws
            wk.Close
        Next Item
    End With
End Sub
Nhấp chuột vào đây để mở rộng...

Anh cho em hỏi tí ạ:
- Bước 1: Copy dòng tiêu đề này ở đâu ạ?
- Bước 2: Copy hết code anh đưa ra vào module của FILE TONG HOP đúng không ạ?

Em xin cảm ơn.
 
vanthinh3101 đã viết:
Bạn làm như sau nhé!
Bước 1: copy dòng tiêu đề vào FILE TONG HOP
Bước 2: copy code
Mã: 
Sub get_data()
    Dim lr1 As Long, lr2 As Long
    Dim rng As Range
    Dim Item As Variant
    Dim wk As Workbook, ws As Worksheet, master As Worksheet
   
    Set master = ThisWorkbook.Sheets(1)
   
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Filters.Add "Microsoft Excel Files", "*.xls*", 1
        If Not .Show = -1 Then
            MsgBox "Ban chua chon File", vbInformation, "----Mr.GPE----"
            Exit Sub
        End If
        For Each Item In .SelectedItems
            Set wk = Workbooks.Open(Item)
            For Each ws In wk.Sheets
                If ws.Name = "Manifest" Then
                    With ws
                        lr1 = .Range("B" & Rows.Count).End(xlUp).Row
                        Set rng = .Range("A3:L" & lr1)
                        With master
                            lr2 = .Range("B" & Rows.Count).End(xlUp).Row + 1
                            .Range("A" & lr2).Resize(lr1 - 2, 12) = rng.Value2
                        End With
                    End With
                End If
            Next ws
            wk.Close
        Next Item
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Chào anh, code đã chạy anh ạ. Rất cảm ơn những chia sẻ của anh.
 
vanthinh3101 đã viết:
Bạn làm như sau nhé!
Bước 1: copy dòng tiêu đề vào FILE TONG HOP
Bước 2: copy code
Mã: 
Sub get_data()
    Dim lr1 As Long, lr2 As Long
    Dim rng As Range
    Dim Item As Variant
    Dim wk As Workbook, ws As Worksheet, master As Worksheet
  
    Set master = ThisWorkbook.Sheets(1)
  
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Filters.Add "Microsoft Excel Files", "*.xls*", 1
        If Not .Show = -1 Then
            MsgBox "Ban chua chon File", vbInformation, "----Mr.GPE----"
            Exit Sub
        End If
        For Each Item In .SelectedItems
            Set wk = Workbooks.Open(Item)
            For Each ws In wk.Sheets
                If ws.Name = "Manifest" Then
                    With ws
                        lr1 = .Range("B" & Rows.Count).End(xlUp).Row
                        Set rng = .Range("A3:L" & lr1)
                        With master
                            lr2 = .Range("B" & Rows.Count).End(xlUp).Row + 1
                            .Range("A" & lr2).Resize(lr1 - 2, 12) = rng.Value2
                        End With
                    End With
                End If
            Next ws
            wk.Close
        Next Item
    End With
End Sub
Nhấp chuột vào đây để mở rộng...

Anh cho em hỏi thêm tí là nếu là sheet3 hay sheet4 của file cần lấy dữ liệu thì mình chỉ thay đổi thông tin chỗ tên sheet "Manifest" thôi đúng không ạ? Vì khi em thay đổi lấy dữ liệu sheet "Packing List" thì trong FILE TONG HOP lại copy nhiều dòng của 1 sheet này.
Và trong File tổng hợp nếu em muốn paste dữ liệu bắt đầu từ B5 thì thế nào ạ?
Xin cảm ơn anh.


If ws.Name = "Manifest" Then
With ws
lr1 = .Range("B" & Rows.Count).End(xlUp).Row
Set rng = .Range("A3:L" & lr1)
With master
lr2 = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Range("A" & lr2).Resize(lr1 - 2, 12) = rng.Value2
End With
End With
End If
 
Lần chỉnh sửa cuối:
blackcucu đã viết:
Anh cho em hỏi thêm tí là nếu là sheet3 hay sheet4 của file cần lấy dữ liệu thì mình chỉ thay đổi thông tin chỗ tên sheet "Manifest" thôi đúng không ạ?
Và trong File tổng hợp nếu em muốn paste dữ liệu bắt đầu từ B5 thì thế nào ạ?
Xin cảm ơn anh.


If ws.Name = "Manifest" Then
With ws
lr1 = .Range("B" & Rows.Count).End(xlUp).Row
Set rng = .Range("A3:L" & lr1)
With master
lr2 = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Range("A" & lr2).Resize(lr1 - 2, 12) = rng.Value2
End With
End With
End If
Nhấp chuột vào đây để mở rộng...
Đúng như ý bạn hiểu, bạn thay thông tin ws.Name là đc.
Nhưng nếu bạn cần lấy dữ liệu từ 2 sheet trở lên, bạn phải dùng code
Mã: 
If ws.Name="Manifest"  Then
...
elseif ws.Name="..." then
...
end if
Hoặc nếu bạn chỉ loại trừ 1 sheet không lấy dữ liệu, bạn chỉ cần dùng code
Mã: 
If ws.Name<>"..." Then
...
End If
Nếu bạn muốn copy dữ liệu từ ô B5, bạn điền 1 ký tự nào đó vào ô B4 để nhận biết vị trí bắt đầu copy nhé!
Copy xong có thể bỏ đi.
Mình cũng không giỏi món code này lắm đâu.
 
vanthinh3101 đã viết:
Đúng như ý bạn hiểu, bạn thay thông tin ws.Name là đc.
Nhưng nếu bạn cần lấy dữ liệu từ 2 sheet trở lên, bạn phải dùng code
Mã: 
If ws.Name="Manifest"  Then
...
elseif ws.Name="..." then
...
end if
Hoặc nếu bạn chỉ loại trừ 1 sheet không lấy dữ liệu, bạn chỉ cần dùng code
Mã: 
If ws.Name<>"..." Then
...
End If
Nếu bạn muốn copy dữ liệu từ ô B5, bạn điền 1 ký tự nào đó vào ô B4 để nhận biết vị trí bắt đầu copy nhé!
Copy xong có thể bỏ đi.
Mình cũng không giỏi món code này lắm đâu.
Nhấp chuột vào đây để mở rộng...
Dạ cám ơn anh. Vấn đề ở đây là khi em thay đổi sheet cần lấy dữ liệu ở đây là "Manifest" thành sheet "Packing List" thì trong File Tong Hop nó tự copy thêm 2 dòng nữa sau khi đã get được dữ liệu:
Như hình dưới đây ạ:

S005 TUDUNG PCS 170 21
S005 TUDUNG PCS 170 21
S005 TUDUNG PCS 170 21
S005 TUDUNG PCS 170 21
S007 TUDUNG PCS 150 20
S007 TUDUNG PCS 150 20
S007 TUDUNG PCS 150 20
S007 TUDUNG PCS 150 20
S001 TUDUNG PCS 1234 365
S001 TUDUNG PCS 1234 365
S001 TUDUNG PCS 1234 365
S001 TUDUNG PCS 1234 365

Rất cảm ơn sự chia sẻ của anh.
 
blackcucu đã viết:
Dạ cám ơn anh. Vấn đề ở đây là khi em thay đổi sheet cần lấy dữ liệu ở đây là "Manifest" thành sheet "Packing List" thì trong File Tong Hop nó tự copy thêm 2 dòng nữa sau khi đã get được dữ liệu:
Như hình dưới đây ạ:

S005 TUDUNG PCS 170 21
S005 TUDUNG PCS 170 21
S005 TUDUNG PCS 170 21
S005 TUDUNG PCS 170 21
S007 TUDUNG PCS 150 20
S007 TUDUNG PCS 150 20
S007 TUDUNG PCS 150 20
S007 TUDUNG PCS 150 20
S001 TUDUNG PCS 1234 365
S001 TUDUNG PCS 1234 365
S001 TUDUNG PCS 1234 365
S001 TUDUNG PCS 1234 365

Rất cảm ơn sự chia sẻ của anh.
Nhấp chuột vào đây để mở rộng...
Đây là do trong Sheets("Manifest") bạn để 1 dòng trống giữa dòng tiêu đề với dòng dữ liệu, Sheets("Packing list") thì không như vậy.
Ngoài ra bạn chú ý code: lr1=.Range("B" & Rows.Count).End(xlUp).Row
--> bạn phải chọn cột nào chắc chắn có dữ liệu, ko được để trống.
Bây giờ bạn thử cho thêm 1 dòng trống giữa dòng tiêu đề với dòng dữ liệu trong Sheets("Packing list") xem sao.
Nếu chưa ổn, bạn upload lại file và ghi rõ lại yêu cầu, mình sẽ sửa cho
 
vanthinh3101 đã viết:
Đây là do trong Sheets("Manifest") bạn để 1 dòng trống giữa dòng tiêu đề với dòng dữ liệu, Sheets("Packing list") thì không như vậy.
Ngoài ra bạn chú ý code: lr1=.Range("B" & Rows.Count).End(xlUp).Row
--> bạn phải chọn cột nào chắc chắn có dữ liệu, ko được để trống.
Bây giờ bạn thử cho thêm 1 dòng trống giữa dòng tiêu đề với dòng dữ liệu trong Sheets("Packing list") xem sao.
Nếu chưa ổn, bạn upload lại file và ghi rõ lại yêu cầu, mình sẽ sửa cho
Nhấp chuột vào đây để mở rộng...
Dạ, em gởi lại file nhờ anh edit giúp em. Vẫn bị tình trạng copy thêm file sau khi get dữ liệu từ các sheet S003.xlsm, S004.xlsm. Em cảm ơn ạ.
 

File đính kèm

  • Packinglist.xlsm
    23.1 KB · Đọc: 2
  • S003.xlsm
    46.5 KB · Đọc: 3
  • S004.xlsm
    46.5 KB · Đọc: 2
blackcucu đã viết:
Dạ, em gởi lại file nhờ anh edit giúp em. Vẫn bị tình trạng copy thêm file sau khi get dữ liệu từ các sheet S003.xlsm, S004.xlsm. Em cảm ơn ạ.
Nhấp chuột vào đây để mở rộng...
Bạn nhớ copy dòng tiêu đề trước vào file Packing list.
Sửa code đoạn copy từ
Mã: 
.Range("A" & lr2).Resize(lr1 - 2, 12) = rng.Value2
thành
Mã: 
.Range("A" & lr2).Resize(lr1 - 5, 12) = rng.Value2
 
vanthinh3101 đã viết:
Bạn nhớ copy dòng tiêu đề trước vào file Packing list.
Sửa code đoạn copy từ
Mã: 
.Range("A" & lr2).Resize(lr1 - 2, 12) = rng.Value2
thành
Mã: 
.Range("A" & lr2).Resize(lr1 - 5, 12) = rng.Value2
Nhấp chuột vào đây để mở rộng...

OK rồi anh ạ. Code chạy tốt.
Anh có thể giải thích sơ qua về đoạn code dưới cho em học hỏi không ạ ( các dòng bôi màu)?

If ws.Name = "Manifest" Then
With ws
lr1 = .Range("B" & Rows.Count).End(xlUp).Row
Set rng = .Range("A3:L" & lr1)
With master
lr2 = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Range("A" & lr2).Resize(lr1 - 2, 12) = rng.Value2
End With
End With
End If
 
blackcucu đã viết:
OK rồi anh ạ. Code chạy tốt.
Anh có thể giải thích sơ qua về đoạn code dưới cho em học hỏi không ạ ( các dòng bôi màu)?

If ws.Name = "Manifest" Then
With ws
lr1 = .Range("B" & Rows.Count).End(xlUp).Row
Set rng = .Range("A3:L" & lr1)
With master
lr2 = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Range("A" & lr2).Resize(lr1 - 2, 12) = rng.Value2
End With
End With
End If
Nhấp chuột vào đây để mở rộng...
mình giải thích nhé!
lr1 = .Range("B" & Rows.Count).End(xlUp).Row --> xác định dòng cuối cùng có dữ liệu trong sheets "Manifest"
Set rng = .Range("A3:L" & lr1) --> đặt tên cho vùng dữ liệu cần copy
lr2 = .Range("B" & Rows.Count).End(xlUp).Row + 1 --> xác định dòng đầu tiên để paste dữ liệu
.Range("A" & lr2).Resize(lr1 - 2, 12) = rng.Value2 --> paste dữ liệu
Mình cũng không biết giải thích thế nào cho rõ hơn nữa.
Bạn chịu khó tìm hiểu kiến thức trên GPE nhé, bổ ích lắm
 
vanthinh3101 đã viết:
mình giải thích nhé!
lr1 = .Range("B" & Rows.Count).End(xlUp).Row --> xác định dòng cuối cùng có dữ liệu trong sheets "Manifest"
Set rng = .Range("A3:L" & lr1) --> đặt tên cho vùng dữ liệu cần copy
lr2 = .Range("B" & Rows.Count).End(xlUp).Row + 1 --> xác định dòng đầu tiên để paste dữ liệu
.Range("A" & lr2).Resize(lr1 - 2, 12) = rng.Value2 --> paste dữ liệu
Mình cũng không biết giải thích thế nào cho rõ hơn nữa.
Bạn chịu khó tìm hiểu kiến thức trên GPE nhé, bổ ích lắm
Nhấp chuột vào đây để mở rộng...

Cám ơn anh nhiều ạ. Biết đến GPE đầu óc em được khai sáng nhiều thứ lắm. 1 lần nữa xin cám ơn những code anh đã chia sẻ.:)
 
vanthinh3101 đã viết:
mình giải thích nhé!
lr1 = .Range("B" & Rows.Count).End(xlUp).Row --> xác định dòng cuối cùng có dữ liệu trong sheets "Manifest"
Set rng = .Range("A3:L" & lr1) --> đặt tên cho vùng dữ liệu cần copy
lr2 = .Range("B" & Rows.Count).End(xlUp).Row + 1 --> xác định dòng đầu tiên để paste dữ liệu
.Range("A" & lr2).Resize(lr1 - 2, 12) = rng.Value2 --> paste dữ liệu
Mình cũng không biết giải thích thế nào cho rõ hơn nữa.
Bạn chịu khó tìm hiểu kiến thức trên GPE nhé, bổ ích lắm
Nhấp chuột vào đây để mở rộng...

Hi anh Thịnh,
Cho em hỏi thêm là code này:
.Range("A" & lr2).Resize(lr1 - 2, 12) = rng.Value2 --> paste dữ liệu

Resize(lr1 - 2, 12) có ý nghĩa gì vậy anh? Lúc thì mình code Resize(lr1 - 5, 12), lúc thì mình code Resize(lr1 - 2, 12). Mong anh giải thích thêm cho em hiểu tí.
Thanks anh nhiều.
 
blackcucu đã viết:
Hi anh Thịnh,
Cho em hỏi thêm là code này:
.Range("A" & lr2).Resize(lr1 - 2, 12) = rng.Value2 --> paste dữ liệu

Resize(lr1 - 2, 12) có ý nghĩa gì vậy anh? Lúc thì mình code Resize(lr1 - 5, 12), lúc thì mình code Resize(lr1 - 2, 12). Mong anh giải thích thêm cho em hiểu tí.
Thanks anh nhiều.
Nhấp chuột vào đây để mở rộng...
Cái này nói paste dữ liệu thì không hoàn toàn chính xác.
Nếu chính xác nhất thì gọi là gán giá trị rng cho 1 vùng dữ liệu ở sheets khác (vùng).
Để gán được chính xác thì cần rng và vùng phải có kích thước bằng nhau -> .Range("A" & lr2).Resize(lr1 - 2, 12) nghĩa là chọn ô cuối cùng có dữ liệu trong cột A, sau đó điều chỉnh số dòng, số cột cho tương ứng với rng.
còn tại sao lúc -2; lúc -5 là do dữ liệu đầu vào của bạn.
+ Khi dữ liệu ở sheets cần tổng hợp bắt đầu từ dòng thứ 3 --> chọn -2
+ Khi dữ liệu ở sheets cần tổng hợp bắt đầu từ dòng thứ 6 --> chọn -5
Bạn đối chiếu lại file các file để suy luận nhé!
 
vanthinh3101 đã viết:
Cái này nói paste dữ liệu thì không hoàn toàn chính xác.
Nếu chính xác nhất thì gọi là gán giá trị rng cho 1 vùng dữ liệu ở sheets khác (vùng).
Để gán được chính xác thì cần rng và vùng phải có kích thước bằng nhau -> .Range("A" & lr2).Resize(lr1 - 2, 12) nghĩa là chọn ô cuối cùng có dữ liệu trong cột A, sau đó điều chỉnh số dòng, số cột cho tương ứng với rng.
còn tại sao lúc -2; lúc -5 là do dữ liệu đầu vào của bạn.
+ Khi dữ liệu ở sheets cần tổng hợp bắt đầu từ dòng thứ 3 --> chọn -2
+ Khi dữ liệu ở sheets cần tổng hợp bắt đầu từ dòng thứ 6 --> chọn -5
Bạn đối chiếu lại file các file để suy luận nhé!
Nhấp chuột vào đây để mở rộng...

Dạ cám ơn anh nhiều vì đã chia sẻ thông tin ạ
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

S
Nhờ giúp đỡ code in toàn bộ danh sách có điều kiện
Trả lời
0
Đọc
9
S.Ha
S
A
Đếm dữ liệu với điều kiện
Trả lời
11
Đọc
88
DeTong
D
A
Excel thiếu dữ liệu
Trả lời
2
Đọc
50
Hoàng Tuấn 868
H
Maika8008
  • Question
Add-In .xlam trộn dữ liệu Excel vào Word
    • Thích
    • Yêu thích
    • Cảm ơn
2
Trả lời
29
Đọc
2K
vu_tuan_manh_linh
vu_tuan_manh_linh
T
V/v tối ưu xử lý đoạn code
Trả lời
4
Đọc
152
huhumalu
H
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom