Excel 导出各个工作表，但要作为通用工作表包含在所有创建的工作簿中的工作表除外_Excel_Vba

Excel 导出各个工作表，但要作为通用工作表包含在所有创建的工作簿中的工作表除外

excel vba

Excel 导出各个工作表，但要作为通用工作表包含在所有创建的工作簿中的工作表除外,excel,vba,Excel,Vba,我将工作簿中的一些工作表导出到以该名称保存的新工作簿中我不希望“示例”选项卡生成自己的单个文件，这就是我使用“示例”的原因。我想在20个文件中包括原始文档中的示例选项卡子副本（）将ws设置为工作表将示例设置为工作表 Set-example=ThisWorkbook.Sheets（“示例”） DateString=格式（现在为“yyyymmdd”） Application.DisplayAlerts=False 对于此工作簿中的每个ws。工作表如果ws.Name“Menu”和ws.Na

我将工作簿中的一些工作表导出到以该名称保存的新工作簿中

我不希望“示例”选项卡生成自己的单个文件，这就是我使用“示例”的原因。
我想在20个文件中包括原始文档中的示例选项卡

子副本（）
将ws设置为工作表
将示例设置为工作表
Set-example=ThisWorkbook.Sheets（“示例”）
DateString=格式（现在为“yyyymmdd”）
Application.DisplayAlerts=False
对于此工作簿中的每个ws。工作表
如果ws.Name“Menu”和ws.Name“Sheet insert”和ws.Name“Template”和ws.Name“Master Records”和ws.Name“Paste Here”和ws.Name“Example”，那么
ws.Copy
wb_name=ws.name
ActiveWorkbook.SaveAs文件名：=_
“c:\output\”&DateString&wb_name&“.xlsx”，文件格式：=51
活动工作簿。关闭
如果结束
下一个ws
Application.DisplayAlerts=True
端接头

只需添加这一行：

ThisWorkbook.Sheets("Example").Copy , ActiveWorkbook.Sheets(ActiveWorkbook.Worksheets.Count)

在这一行之前：

ActiveWorkbook.SaveAs文件名：=……

这将把工作表

示例复制到您创建并保存在循环中的每个新工作簿中。
只需添加以下行：
ThisWorkbook.Sheets("Example").Copy , ActiveWorkbook.Sheets(ActiveWorkbook.Worksheets.Count)

在这一行之前：
ActiveWorkbook.SaveAs文件名：=……

这将把工作表示例
复制到您创建并保存在循环中的每个新工作簿中。
您的意思是删除此部分和ws.Name“Example”
对我来说没有意义。也许其他人可以理解。目前我有代码导出20个选项卡，并生成20个以其选项卡名称命名的新文件。但是，我不希望“示例”选项卡生成自己的单独文件，这就是为什么我有“示例”。我想在20个文件中包括原始文档中的示例选项卡。这有意义吗braX你能帮忙吗？也许你能先展示一下你尝试过的能帮助人们理解的东西？你的意思是去掉这个部分和ws.Name“Example”
对我来说没有意义。也许其他人可以理解。目前我有代码导出20个选项卡，并生成20个以其选项卡名称命名的新文件。但是，我不希望“示例”选项卡生成自己的单独文件，这就是为什么我有“示例”。我想在20个文件中包括原始文档中的示例选项卡。这有意义吗？布拉克斯，你能帮忙吗？也许你能先展示一下你尝试过的，能帮助人们理解的东西？