Lỗi code ghép nhiều file excel

[tuandatbk]

Rất mong sự giúp đỡ của các cao thủ. Hiện tại mình đang sử dụng đoạn code để ghép nhiều file excel Tuy nhiên khi đang chạy sẽ bị lỗi " Run-times eror'1004' That name is already taken. Try a diferent one" khi bấm Debug thi báo lỗi
Dòng 7 Sheet.copy after:=ThisWorkbook.Sheets(1)
Code hiện tại đang dùng
Sub copy()
Path = "C:\Users\Dat\Desktop\PMIS\D\"
Filename = Dir(Path & "*.xls*")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.copy after:=ThisWorkbook.Sheets(1)
Next
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub

 

[anhtuan2939]

That name is already taken

Vấn đề nằm ở đây bạn nhé. Vì bị trùng tên sheet.

 

[tuandatbk]

Vấn đề nằm ở đây bạn nhé. Vì bị trùng tên sheet.

nhiều file cùng tên sheet nhưng lúc trước vẫn copy sang 1 file chung được và các file sau sẽ tự động điền số nếu trùng

 

[huhumalu]

Chạy thử thấy bình thường, không có lỗi hay gì cả (cả Debug lẫn Run);