如何使用VBA将主工作簿中的特定工作表导出到新的Excel文件？

Question

我有一个包含我的宏的主要Excel文件。 在这篇文章中，我创建了工作表作为将来需要使用和修改的excel文件的模板。 现在，我需要将特定的工作表及其内容复制到新的工作簿中。

我还使用VBA创建了此工作簿：

Sub NOUDOC()
    Dim wbNew As Workbook
    Dim data As Date
    data = Range("H3").Value
    Set wbNew = Workbooks.Add()
    ActiveWorkbook.SaveAs ("C:\Users\Alina\Desktop\Carburant " & Format(data, "MMMM YYYY") & ".xlsx") 
End Sub

（H3是输入的日期，用于过滤从SQL Server导入的数据）

因此，我想在我的主要excel文件中使用VBA来创建一个新的excel文件，其中包含来自我的主要文件的特定工作表。

我提前谢谢你！

Answer 1

试试下面的吗？ 我还没有尝试过。

Sub NOUDOC()
Dim wbTemplate as Workbook
Set wbTemplate = ActiveWorkbook
Dim wbNew As Workbook
Dim data As Date
data = Range("H3").Value
Set wbNew = Workbooks.Add()
sheet_count = 1
For Each each_sheet in wbTemplate.Sheets
    each_sheet.Copy Before:= wbNew.Sheets(sheet_count)
    sheet_count = sheet_count + 1
Next
wbNew.SaveAs ("C:\Users\Alina\Desktop\Carburant " & Format(data, "MMMM YYYY") & ".xlsx")

Answer 2

您可以使用Worksheets对象的数组 “味道”：

Sub NOUDOC()
    Dim data As Date
    data = Range("H3").Value

    Worksheets(Array("Sh1", "Sh2", "Sh3")).Copy '<--| this will copy listed sheets into a new (and Active) workbook
    ActiveWorkbook.SaveAs "C:\Users\Alina\Desktop\Carburant " & Format(data, "MMMM YYYY") & ".xlsx"
End Sub