Question

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

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

我有三本我正在使用的Excel工作簿

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

我想做的是在我的主人内部。我希望它能够复制＆＃34; SheetA＆＃34;来自Newemployeefile.xls并将其复制到名为＆＃34; NewEmployeefile＆＃34;在我的主人。和复制＆＃34; SheetA＆＃34;来自oldemployeefile.xls并将其复制到名为＆＃34; oldemployeefile＆＃34;在我的主人内。

有人可以帮助我吗？

Answer 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

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

1 个答案: