Как я могу скопировать один рабочий лист в одной книге в другую книгу

Question

У меня есть две отдельные книги, одна из которых называется ActiveWorkbook и одна из них с названием Terminated Workbook. Я хочу создать кнопку копирования в ActiveWorkbook - Templatesheet, которая спросит пользователя, какой лист скопировать и скопировать в TerminatedWokbook и назвал то же самое, что и оригинал.

У меня есть такой код, как этот, и так как я очень новичок в Excel, поэтому он не работает. Благодаря

Sub CopytoTernimal() 
Dim CopyName As String 
CopyName = InputBox("Please enter the name of sheet which will copy to ternimal") 

Sheets("CopyName").Copy 
Before:=Workbooks("Terminated Employees").Sheets(1) 

End Sub 

Answer 1

Хорошо, вот полный код

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

Dim thisSheet As Worksheet 

'you must be sure CopyName is typed correctly, or it wont find the sheet 
'also be sure the Activeworkbook name is correctly typed. 
Set thisSheet = Workbooks("ActiveWorkbook").Worksheets(CopyName) 

'copy this sheet 
thisSheet.Rows.Copy 

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

Чтобы сделать кнопку, перейдите в главное окно Excel, закладки для разработчиков, и вставить Active X Button. (Используйте Активную книгу) Затем в design mode дважды щелкните эту кнопку. click event будет автоматически сгенерирован, поэтому вы помещаете этот код в этот суб. После этого отключите design mode (также на вкладке разработчика в главном окне). Когда вы нажимаете кнопку, вызывается код.