Vba Excel将工作表从其他工作簿复制到现有工作簿
我是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
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