excel - 通过在工作表上设计的自定义按钮，使用宏 vba 将一个 xls 的所有工作表复制到另一个 xls 文件

Question

我有一个 xls 文件，它包含 15 张数据，我想将所有数据复制到另一个 xls 文件中。我有很多这样的文件，所以我想使用宏 vba 编码对其进行自定义。我想在第一张工作表上设计按钮，该按钮运行宏代码并将我的所有工作表复制到另一个文件。这可能吗？我不知道更多关于 ms office.Would 任何人分享我的指导方针，链接或任何相关数据。谢谢你们

Answer 1

这假设这两个文件都是打开的并从 dept.xls 运行，因为这似乎是您要保留的文件。

Sub emp_to_dept()

Dim wks As Worksheet
    Windows("Employees.xls").Activate
    For Each wks In ActiveWorkbook.Worksheets
    wks.Copy After:=Workbooks("Dept.xls").Sheets(1)
    Next
    Set wks = Nothing

End Sub