导出单独的工作表，除了要作为通用工作表包含在所有创建的工作簿中的工作表

Question

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

我不想要"；示例"；选项卡生成自己的单独文件，这就是为什么我有<gt"例如">
我想在20个文件中包括原始文档中的示例选项卡。

Sub copysheet()
Dim ws As Worksheet
Dim example As Worksheet
Set example = ThisWorkbook.Sheets("Example")
DateString = Format(Now, "yyyymmdd")
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Menu" And ws.Name <> "Sheet insert" And ws.Name <> "Template" And ws.Name <> "Master Records" And ws.Name <> "Paste Here" And ws.Name <> "Example" Then
ws.Copy
wb_name = ws.Name
ActiveWorkbook.SaveAs fileName:= _
"c:output" & DateString & wb_name & ".xlsx", FileFormat:=51
ActiveWorkbook.Close
End If
Next ws

Application.DisplayAlerts = True
End Sub

Answer 1

只需添加此行：

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

此行之前：ActiveWorkbook.SaveAs fileName:=.....

这将把工作表Example复制到您创建并保存在循环中的每个新工作簿中。