EXCEL在复制到新工作簿时设置图纸顺序

在复制到其他工作簿时是否可以控制工作表的顺序？ 我的代码列出了我希望工作表出现在新工作簿中的顺序，但“失败”工作表按照标签顺序保持最后。 任何帮助将不胜感激。 谢谢。

Set wb = ThisWorkbook wb.Save wb.Sheets(Array("Fail", "Fail Screenshot", "Fail Screenshot2", "Fail Screenshot3", "Fail Screenshot4")).Copy Set tempWB = ActiveWorkbook fileName = "C:\Users\ME\Desktop\TEST\" & Sheets("Fail").Range("M7").Value & ".xlsx" ActiveWorkbook.SaveAs fileName:=fileName, FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False If Len(Dir(tempFile)) <> 0 Then Kill tempFile 

Answer 1

如果你的列表失败只是保持“失败”工作表作为第一个然后只是移动它：

 wb.Sheets(Array("Fail", "Fail Screenshot", "Fail Screenshot2", "Fail Screenshot3", "Fail Screenshot4")).Copy Sheets("Fail").Move Before:=Sheets(1) 

Answer 2

尝试在复制到新的工作簿后sorting表：

 Sub sheetorders() Dim m, arr Set wb = ThisWorkbook arr = Array("Fail", "Fail Screenshot", "Fail Screenshot2", "Fail Screenshot3", "Fail Screenshot4") wb.Save wb.Sheets(arr).Copy For Each m In arr Sheets(m).Move After:=Sheets(Sheets.Count) Next m Set tempWB = ActiveWorkbook fileName = "C:\Users\ME\Desktop\TEST\" & Sheets("Fail").Range("M7").Value & ".xlsx" ActiveWorkbook.SaveAs fileName:=fileName, FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False If Len(Dir(tempFile)) <> 0 Then Kill tempFile End Sub