Vba Excel将工作表从其他工作簿复制到现有工作簿

Vba Excel将工作表从其他工作簿复制到现有工作簿,vba,excel,copying,Vba,Excel,Copying,我是VBA新手,需要一些帮助 我希望创建执行以下操作的代码: 我有三本excel工作簿正在使用 my master: Master.Xlsm NewEmployeeFile.xls OldEmployeefile.xls 我想做的是在我的主人之内。我想让它从Newemployeefile.xls复制“SheetA”,并将其复制到我的母版中名为“Newemployeefile”的工作表中。 及 从oldemployeefile.xls复制“SheetA”,并将其复制到我的母版中名为“oldemp

我是VBA新手,需要一些帮助

我希望创建执行以下操作的代码:

我有三本excel工作簿正在使用

my master: Master.Xlsm
NewEmployeeFile.xls
OldEmployeefile.xls
我想做的是在我的主人之内。我想让它从Newemployeefile.xls复制“SheetA”,并将其复制到我的母版中名为“Newemployeefile”的工作表中。 及 从oldemployeefile.xls复制“SheetA”,并将其复制到我的母版中名为“oldemployeefile”的工作表中


有人能帮我吗?

Master.Xlsm

Sub getEmployeefiles()
    Dim wb
    For Each wb In Array("NewEmployeefile.xls", "OldEmployeefile.xls")
        With Workbooks.Open(ThisWorkbook.path & "\" & wb)
            .Sheets("SheetA").Copy before:=ThisWorkbook.Sheets(1)
            .Close False
            ThisWorkbook.Sheets(1).name = left(wb, InStrRev(wb, ".") - 1)
        End With
    Loop
End Sub