Excel将工作表从另一个工作簿复制到现有的工作簿中

我是VBA新手，需要一点帮助。

我正在寻找创build以下代码：

我有三个与我一起工作的excel工作簿

my master: Master.Xlsm NewEmployeeFile.xls OldEmployeefile.xls 

我想要做的是在我的主人。 我希望它从Newemployeefile.xls复制“SheetA”并将其复制到我的主内部名为“NewEmployeefile”的表中。 并从oldemployeefile.xls复制“SheetA”，并将其复制到我的主内部名为“oldemployeefile”的表中。

有人可以帮助我吗？

Answer 1

在Master.Xlsm运行此macros

 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