23/10/2019
Gộp dữ liệu nhiều file Excel thành nhiều sheet trong 1 File Excel
Macro như sau:
Sub GopFileExcel()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx", MultiSelect:=True, Title:="Files to Merge")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "Chua chon file"
GoTo ExitHandler
End If
x = 1
While x