使用macrosvba复制一个xls的所有工作表到另一个xls文件，通过devise在工作表上的自定义button

我有一个xls文件，它包含15张数据，我想将所有数据复制到我的另一个xls文件。 我有这么多的文件，所以我想使用macrosvba编码进行自定义。 我想devise运行macros代码的第一张纸上的button，并将我的所有纸张复制到另一个文件。所以可能吗？ 我不知道更多关于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