Excel将工作表从另一个工作簿复制到现有工作簿答案

【问题标题】：Excel Copying work sheet from another workbook into existing workbookExcel将工作表从另一个工作簿复制到现有工作簿
【发布时间】：2017-09-18 20:55:07
【问题描述】：

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

我正在寻找执行以下操作的代码：

我正在使用三个 Excel 工作簿

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

我想做的是在我的主人身上。我希望它从 Newemployeefile.xls 复制“SheetA”并将其复制到我的主人中名为“NewEmployeefile”的工作表中。和从 oldemployeefile.xls 中复制“SheetA”并将其复制到我的 master 中名为“oldemployeefile”的工作表中。

有人可以帮助我吗？

【问题讨论】：

标签： vba excel copying

【解决方案1】：

在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

【讨论】：