Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如何控制将一张工作表复制到另一个工作簿的位置_Excel_Vba - Fatal编程技术网

Excel 如何控制将一张工作表复制到另一个工作簿的位置

Excel 如何控制将一张工作表复制到另一个工作簿的位置,excel,vba,Excel,Vba,我有代码将原始工作簿的一个工作表复制到终止的工作簿中,工作正常。但我需要控制粘贴位置以终止工作簿。现在它粘贴在活动工作表之前。我想把它放在总结表之后的第二页。我对宏很陌生,谢谢 Sub CopytoTernimal() Dim CopyName As String On Error GoTo ErrMess CopyName = InputBox("Please enter the name of sheet which will copy to ternimal") Dim thisSh

我有代码将原始工作簿的一个工作表复制到终止的工作簿中,工作正常。但我需要控制粘贴位置以终止工作簿。现在它粘贴在活动工作表之前。我想把它放在总结表之后的第二页。我对宏很陌生,谢谢

Sub CopytoTernimal()
Dim CopyName As String

On Error GoTo ErrMess

CopyName = InputBox("Please enter the name of sheet which will copy to ternimal")

Dim thisSheet As Worksheet

Set thisSheet = Workbooks("original.xlsm").Worksheets(CopyName)

thisSheet.Rows.Copy

Dim NewSheet As Worksheet
Set NewSheet = Workbooks("Terminated Employees.xlsm").Worksheets.Add()
NewSheet.Name = thisSheet.Name
NewSheet.Paste

thisSheet.Delete
错误退出: 出口接头

ErrMess:MsgBox“xxxxxx” 转到出口

End Sub

我相信会是这样的

thisSheet.Copy After:=Workbooks("Terminated Employees.xlsm").Worksheets("name of the first summary worksheet")