Excel VBA WorkSheet.Copy Excel 2013后

Question

我想复制工作表并将其直接放在另一张工作表之后。但是当涉及隐藏的表单时我遇到了麻烦。

使用Excel 2013我打开一个新的工作簿。 在“Sheet1”之后添加一张纸。将它重命名为“HiddenSheet2” 在“HiddenSheet2”之后添加一张表。重命名新的工作表 “表Sheet 3” 所以我有 “工作表Sheet1” - “HiddenSheet1” - “表Sheet 3” 然后隐藏 “HiddenSheet1”

下运行这个VBA代码：

Sub test() 
Dim ws1 AS Worksheet 
Set wst = Sheets("Sheet1") 
wst.Copy After:=Sheets(wst.Index) 
End Sub 

插页得到安置后， “HiddenSheet2”而不是“Sheet1”之后。 我发现复制的工作表成为活动工作表。

Get Handle on last worksheet copied by Worksheet.Copy

VBA Copy Sheet to End of Workbook (with Hidden Worksheets)

但我的问题是我需要的纸张保持在一个特定的顺序。

感谢

编辑：

Sub test() 
Dim ws1 AS Worksheet 
Set wst = Sheets("Sheet1") 
wst.Copy After:=Sheets(wst.Index) 
ThisWorkbook.ActiveSheet.Move After:=Sheets(wst.Index) 
End Sub 

这不 “工作表Sheet1” 要么后直接拿到新的工作表。

Answer 1

现有代码可以添加

Sub test() 
Dim ws1 AS Worksheet 
Set wst = Sheets("Sheet1") 
wst.Copy After:=Sheets(wst.Index) 
ThisWorkbook.ActiveSheet.Move After:=Sheets(wst.Index) 

If (ActiveSheet.Index - wst.Index - 1) <> 0 Then 
     Sheets(wst.Index + 1).Visible = True 
     ActiveSheet.Move After:=wst 
     Sheets(wst.Index + 2).Visible = False 
    End If 

End Sub 

Answer 2

索引属性为零基数，除非在别处指定。床单属性是一个基础。您需要：

1. 将1加到索引中，不是首选。
2. 更好地引用.name属性。
3. 引用你有I.e.表的变量。 Wst.copy之后：= wst，最好。
4. 或者将隐藏的表格移动到新的表格之后。