创建子版本后返回工作簿主版本的VBA代码

创建子版本后返回工作簿主版本的VBA代码,vba,excel,Vba,Excel,我有一个用作主模板的工作簿,它有多个变体,每个变体中有不同的选项卡,并发送到不同的通讯组列表。如何让VBA在保存并发送每个“子”版本后返回到主工作簿?以下是其中一个子版本的代码: Sub Alignment_Final() " 这很好,但它让我有了新版本的工作簿。我需要在创建并通过电子邮件发送主工作簿(称为“主对齐”)后返回主工作簿,以创建每个工作簿中包含不同工作表的更多版本。如果这是初步的,我很抱歉。我正在Windows7上运行Excel2010 如果在代码开头将主工作簿定义为工作簿对象,则

我有一个用作主模板的工作簿,它有多个变体,每个变体中有不同的选项卡,并发送到不同的通讯组列表。如何让VBA在保存并发送每个“子”版本后返回到主工作簿?以下是其中一个子版本的代码:

Sub Alignment_Final()
"


这很好,但它让我有了新版本的工作簿。我需要在创建并通过电子邮件发送主工作簿(称为“主对齐”)后返回主工作簿,以创建每个工作簿中包含不同工作表的更多版本。如果这是初步的,我很抱歉。我正在Windows7上运行Excel2010

如果在代码开头将主工作簿定义为工作簿对象,则可以稍后再次激活该工作簿

像这样定义主工作簿(假设在开始运行代码时它是活动工作簿):

然后,当您想再次激活该工作簿时,可以通过以下方式进行激活:

MasterWb.Activate

这么简单。非常感谢。
Dim MasterWb As Workbook
Set MasterWb = ActiveWorkbook
MasterWb.Activate