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

即时尝试将活动工作表和2个指定的工作表复制到一个新的工作簿，然后让macros继续在新的工作簿上运行，以改变一些事情之前，我保存它

我想通过表单代号来复制表单

• 第一页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 – variables名称无关紧要），并告诉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