VBA copy sheet từ file đang đóng

[888x888x888]

Sub CopySheetFromClosedWB()
Application.ScreenUpdating = False

Set closedBook = Workbooks.Open("D:\1.xlsx")
closedBook.Sheets("Sheet1").Copy Before:=ThisWorkbook.Sheets(1)
closedBook.Close SaveChanges:=False

Application.ScreenUpdating = True
End Sub

Mình tham khảo được code này dùng để copy 1 Sheet từ 1 file đang đóng, nhưng có vấn đề là các file của mình tên khác nhau, đường dẫn trong máy cũng khác nhau, mình muốn khi mình chạy nó sẽ hỏi file mình muốn copy nằm ở đâu như kiểu bảng bên dưới này, sau đó mình sẽ chọn đến file mình muốn copy. Các bạn giúp mình với ạ

 

[BuiQuangThuan]

Mình tham khảo được code này dùng để copy 1 Sheet từ 1 file đang đóng, nhưng có vấn đề là các file của mình tên khác nhau, đường dẫn trong máy cũng khác nhau, mình muốn khi mình chạy nó sẽ hỏi file mình muốn copy nằm ở đâu như kiểu bảng bên dưới này, sau đó mình sẽ chọn đến file mình muốn copy. Các bạn giúp mình với ạ

View attachment 289578

Tạo 1 sheet main. Khai báo 1 loạt trước rồi duyệt từng dòng