Chép nhiều sheets ra nhiều files nâng cao

[vt01]

Minh có 5 file excel file1, file2, file3, file4 files 5 trong thư mục Nguon. Mỗi file có 3sheet: sheet1, sheet2 và sheet3. Mình cần copy 2 sheets sheet2 và sheet3 của 4 file đầu tiên (cho phép quét chọn các file trong thư mục Nguon muốn copy) và tự động lưu lại thành 4 file excel mới với tên f1, f2, f3, f4 trong thư mục Dich (f1 là cho biết file này lấy từ file1). Bác nào giúp mình với

 

[cadafi]

Có một đoạn code nho nhỏ bạn tham khảo nhé:

Function DataExport()
Dim UserID As String
UserID = "Kietvt"
Sheets("sheets1").Select
    Sheets("sheets1").Copy
    ChDir "D:\"
    ActiveWorkbook.SaveAs Filename:= _
        "D:\" & UserID & "_DATA" & Year(Now()) & Month(Now()) & Day(Now()) & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
 '   Application.Dialogs(xlDialogSendMail).Show
    Application.ScreenUpdating = True
End Function