使用旧工作簿的某些工作表创建一个新工作簿

Question

我有一个大约有10张工作表的工作簿，我想要一个用4张原始工作表创建新工作簿的宏。

我有这个：

Sheets("1").Range("A1:xfd200").Copy
Workbooks.Add
ActiveSheet.Paste Destination:=Range("A1")

但这只会创建一个包含我需要的一张工作表的新工作簿。

如果有任何帮助，我将不胜感激。

谢谢！！

Answer 1

也复制其他工作表。

'copy first ws to no location to create the workbook then loop through
'and make copies of the others
dim ewb as workbook, w as long
with thisworkbook
.worksheets(1).copy
set ewb = activeworkbook
for w = 2 to 4
.worksheets(w).copy after:=ewb.worksheets(ewb.worksheets.count)
next w
'work with the new workbook as ewb 
end with
'alternately, copy them into a new workbook all at once
Dim wss As Variant, nwb As Workbook
wss = Array("Sheet12", "Sheet13", "Sheet14", "Sheet15")  '<~~ desired worksheets to copy
With ThisWorkbook
.Worksheets(wss).Copy
Set nwb = ActiveWorkbook
'work with the new workbook as nwb
End With