Hỗ trợ gộp nhiều file excel vào 1 file (file có nhiều sheets,chỉ gộp 1 sheet chỉ định)

[Tình nghĩa giang hồ]

Chào anh chị em có trường hợp này nhờ anh chị hỗ trợ giúp.
Vấn đề của em là em cần tổng hợp nhiều file Excel vào 1 file tổng.
Mỗi file excel của em thì có nhiều sheet, nhưng em chỉ muốn gộp sheet: TONG HOP THEO HĐ
Sheet: TONG HOP THEO HĐ thì lấy dữ liệu bắt đầu từ dòng 6 cho đến hết.

Em có đọc nhiều cách gộp file bằng VBA nhưng đa số thì mỗi file có 1 sheet. Còn trường hợp này của em là mỗi file có nhiều sheet, và cần gộp sheet: TONG HOP THEO HĐ vào file tổng.
Do đây là dữ liệu nhạy cảm nên em không gửi file lên được, em làm bằng file giả định.
(À em quên, tất cả các file đều nằm trong một thư mục nhé anh chị, mà các file đó mỗi lần mở lên hay gặp lỗi update như hình)
Nhờ anh chị hỗ trợ giúp em trường hợp này.
Em cảm ơn anh chị


Code tham khảo gộp nhiều file mỗi file chỉ có 1 sheet
Sub gop_file_excel()
Dim FilesToOpen
Dim wb As Workbook
Dim x As Long, lr As Long

Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename( _
FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx", MultiSelect:=True, _
Title:="Chon file excel de tron")

If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "khong co file nao duoc chon ca"
Exit Sub
End If

x = 1
While x <= UBound(FilesToOpen)
Set wb = Workbooks.Open(Filename:=FilesToOpen(x))

If x = 1 Then
wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(1).Range("A1")
Else
lr = ThisWorkbook.Sheets(1).UsedRange.Rows.Count
wb.Sheets(1).UsedRange.Offset(1).Copy ThisWorkbook.Sheets(1).Range("A" & lr + 1)
End If
wb.Close False
x = x + 1
Wend
Application.ScreenUpdating = True
End Sub

 

[LamNA]

Nhờ anh chị thêm giúp đoạn code để udpate tất cả các sheet chứ không riêng sheet Tổng Hợp. Có nghĩa là Trong file tổng hợp sẽ update tất các các sheet khác nữa có trong các file khác. (Tổng hợp nhiều sheet của file)

Bài đã được tự động gộp: 11/1/24

Nhờ anh chị thêm giúp đoạn code để udpate tất cả các sheet chứ không riêng sheet Tổng Hợp. Có nghĩa là Trong file tổng hợp sẽ update tất các các sheet khác nữa có trong các file khác. (Tổng hợp nhiều sheet của file)

Góp ý bạn dữ liệu cho thiếu thì ai mà hỗ trợ được đâu
ví dụ tổng hợp các sheet mà trong file vidu5 chỉ có dữ liệu của tổng hợp công nợ

Bài đã được tự động gộp: 11/1/24

Nhờ anh chị thêm giúp đoạn code để udpate tất cả các sheet chứ không riêng sheet Tổng Hợp. Có nghĩa là Trong file tổng hợp sẽ update tất các các sheet khác nữa có trong các file khác. (Tổng hợp nhiều sheet của file)

Bài đã được tự động gộp: 11/1/24

Nhờ anh chị thêm giúp đoạn code để udpate tất cả các sheet chứ không riêng sheet Tổng Hợp. Có nghĩa là Trong file tổng hợp sẽ update tất các các sheet khác nữa có trong các file khác. (Tổng hợp nhiều sheet của file)

Góp ý bạn dữ liệu cho thiếu thì ai mà hỗ trợ được đâu
ví dụ tổng hợp các sheet mà trong file vidu5 chỉ có dữ liệu của tổng hợp công nợ