excel - 如何使用vba将工作表复制到另一个工作簿？

Question

所以，一般来说，我想做的是制作工作簿的副本。但是，源工作簿正在运行我的宏，我希望它制作自身的相同副本，但没有宏。我觉得应该有一种简单的方法可以用 VBA 来做到这一点，但还没有找到。我正在考虑将工作表一张一张复制到我将创建的新工作簿中。我该怎么做？有更好的办法吗？

Answer 1

我想稍微重写一下 keytarhero 的回复:

Sub CopyWorkbook()

Dim sh as Worksheet,  wb as workbook

Set wb = workbooks("Target workbook")
For Each sh in workbooks("source workbook").Worksheets
   sh.Copy After:=wb.Sheets(wb.sheets.count) 
Next sh

End Sub

<小时/>

编辑:您还可以构建工作表名称数组并立即复制。

Workbooks("source workbook").Worksheets(Array("sheet1","sheet2")).Copy _
         After:=wb.Sheets(wb.sheets.count)

注意:从 XLS 复制工作表？转换为 XLS 将导致错误。相反的效果很好(XLS 到 XLSX)