khongnhienttt
Thành viên hoạt động
- Tham gia
- 15/7/15
- Bài viết
- 137
- Được thích
- 33
Mình Có viết 1 sub để tổng hợp dữ liệu từ nhiều file vào 1 file, từ trình soạn code mình bấm F5 hoặc từ bảng tính Excel mình bấm ALT+F8 chọn sub để chạy thì code hoạt động theo ý mình, tuy nhiên khi mình gán
để khi bấm Ctrl + Shift + T để chạy sub TongHop thì code chỉ chạy đến đoạn mở file excel đầu tiên là nó thoát ra
drive.google.com
Mã:
Application.OnKey "^+{T}", "TongHop"
Mã:
Sub TongHop()
Dim fo As Variant, a As Byte, sh As Worksheet, lr1 As Long, lr2 As Long, ten As String, lc As Long, book1 As Workbook, book2 As Workbook
fo = Application.GetOpenFilename("Excel files (*.xl*), *.xl*", , , , True)
If Not IsArray(fo) Then Exit Sub
Set book2 = ThisWorkbook
For Each sh In Worksheets
sh.Range("A2").Resize(65000, 40).ClearContents
Next sh
For a = LBound(fo) To UBound(fo)
Set book1 = Workbooks.Open(fo(a))
With book1
For Each sh In .Worksheets
lc = sh.Range("XDF1").End(1).Column
lr = sh.Range("A65000").End(3).Row
ten = sh.Name
arr = sh.Range(sh.Cells(2, 1), sh.Cells(lr, lc)).Value
With book2.Worksheets(ten)
lr = .Range("A65000").End(3).Row + 1
.Range("A" & lr).Resize(UBound(arr), UBound(arr, 2)).Value = arr
End With
Next sh
.Close
End With
Next a
End SubHT003-Tổng Hợp Nhiều File Vào 1 File.rar
drive.google.com
