Sub moveotherschedulesheets()
Set wb1 = Workbooks("A.xlsx")
Dim wbs As Workbooks
Dim wb As Workbook
Set wbs = Application.Workbooks
For Each wb In wbs
temp = wb.Name
Next
Workbooks("A.xlsx").Activate
With wb1
Sheets(Array("A1", "A2", "A3", "A4", "A5", _
"A6")).Select
Sheets(Array("A1", "A2", "A3", "A4", "A5", _
"A6")).Copy Before:=Workbooks(temp). _
Worksheets(1)
End With
End Sub
在上述代码中，我试图在当时所有打开的工作簿中粘贴选定的工作表（“A1、“A2”、“A3”、“A4”、“A5”、“A6”），但这代码给了我错误的输出，因为它仅在上次打开的工作簿中复制选定的工作表。请建议上述代码中所需的更改。
你应该搬家
For Each wb In wbs
temp = wb.Name
Next
到内
With wb1
...
End With
例如像这样：
With wb1
For Each wb In wbs
Sheets(Array("A1", "A2", "A3", "A4", "A5", _
"A6")).Copy Before:=wb.Worksheets(1)
Next wb
End With
除此之外，您可能希望排除工作簿A.xlsx作为此复制操作的目标......
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句