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

Question

我有一个 xls 文件，其中包含 15 张数据，我想将所有数据复制到另一个 xls 文件中。我有很多这样的文件，所以我想使用宏 vba 编码对其进行自定义。我想在第一张纸上设计按钮，它会运行宏代码并将所有工作表复制到另一个文件。那么这可能吗？我对 ms office 不太了解。有人可以分享我的指南、链接或任何相关数据吗？谢谢大家

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