Excel将活动工作表和指定工作表复制到新工作簿

Question

即时尝试将活动工作表和2个指定工作表复制到新工作簿，然后让宏继续在新工作簿上运行以在保存之前更改一些内容

我想通过片材到片材上复制代号

• 第一表3复制这将是“活性片材”
• 第二床单代号是“DropDown_Sheet_1_VB”
• 第三床单代号是“Control_Sheet_VB”

示例代码。

Sub Create_Work_Order() 

Workbooks.Add 

ActiveSheet.Copy 'copy to new workbook 
DropDown_Sheet_1_VB.Copy 'also copy to new workbook 
Control_Sheet_VB.Copy 'also copy to new workbook 

Dim NewWB As Workbook 

NewWB.ActiveSheet.Range("A1").Copy 'do stuff on new workbook 
NewWB.Save 

End Sub 

Answer 1

我不知道什么是最后的东西除了复制A1范围，但我也把它放在那里。

您只需在开头指定工作簿对象（我的示例中的wrk，示例中的NewWB - 变量名称无关紧要）并告诉Copy方法在哪里复制。您将看到我指定了第一个参数 - 即：before - as wrk.Worksheets（1），复制的工作表就在新工作簿中的第一个工作表之前被复制。

Sub Create_Work_Order() 
Dim currentWrk As Workbook 
Dim wrk As Workbook 

Set currentWrk = ActiveWorkbook 
Set wrk = Workbooks.Add 

currentWrk.ActiveSheet.Copy wrk.Worksheets(1) 
DropDown_Sheet_1_VB.Copy wrk.Worksheets(1) 
Control_Sheet_VB.Copy wrk.Worksheets(1) 

'wrk.ActiveSheet.Range("A1").Copy 'do stuff on new workbook 
wrk.Save 

' EDIT: I added following to change the functions to refer to the new file 
wrk.ChangeLink currentWrk.FullName, wrk.FullName, xlExcelLinks 
wrk.Save 


End Sub