vba - 将excel中的工作表保存到另一个excel

Question

我有一个包含多张工作表的工作簿，我想将工作簿中的两张工作表保存到另一个新工作簿中。

我尝试了下面的代码，但它只将我的工作簿中的一张表复制到另一张表中。

谁能告诉我哪里出错了？

Sub save()
Dim myworksheets() As String
Dim newWB As Workbook
Dim CurrWB As Workbook
Dim i As Integer
Dim path1, Path2 As String
path1 = ThisWorkbook.Path
Path2 = path1 & "\Saved Files\SW\"
Set CurrWB = ThisWorkbook
myworksheets = Split("BW", "Reason")
For i = LBound(myworksheets) To UBound(myworksheets)
Set newWB = Workbooks.Add
CurrWB.Sheets(Trim(myworksheets(i))).Copy Before:=newWB.Sheets(1)
newWB.SaveAs filename:=Path2 & Format(Now(), "WW") & " CW " & myworksheets(i) & ".xlsx"
newWB.Close SaveChanges:=True
Next i
Application.ScreenUpdating = False
MsgBox ("File Saved")
 End Sub

Answer 1

更改此行 myworksheets = Split("BW", "Reason")至myworksheets = Split("BW,Reason", ",")