Tình nghĩa giang hồ
Thanh sơn bất cải, lục thủy trường lưu
- Tham gia
- 29/9/20
- Bài viết
- 330
- Được thích
- 429
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
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
