如何将选定的工作表另存为新工作簿

Question

您好，我正在尝试编写一个宏来将某些工作表选择到一个新文件中。

棘手的部分是我想保存除 3 之外的所有工作表。

我已设法选择工作表，但找不到如何创建新工作簿然后保存它。

这是我的代码，子停在Sheets(Array(Selection)).Copy

这不是正确的命令。

感谢您的帮助

Sub ExportPrices()

Dim ExportName As String
Dim ReportingDir As String
Dim Dashboard As String
Dim ws As Worksheet

Dashboard = ThisWorkbook.Name
ExportName = Workbooks(Dashboard).Worksheets("Macro").Range("ExportName").Value
ReportingDir = Workbooks(Dashboard).Worksheets("Macro").Range("ReportingDir").Value


Workbooks(Dashboard).Worksheets("Europe").Select

For Each ws In Worksheets
    If ws.Name <> "Macro" And ws.Name <> "Dashboard" And ws.Name <> "Data" Then
ws.Select (False)
    End If
Next

'create an array from selection

Sheets(Array(Selection)).Copy

    ActiveWorkbook.SaveAs Filename:=ReportingDir & ExportName, _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

End Sub

Answer 1

您必须添加新工作簿并将目标表复制到 wb：

 Dim oOutBook As Workbook
 Set oOutBook = Workbooks.Add
 Sheets(Array(Selection)).Copy Before:=oOutBook.Sheets(1)
 oOutBook.SaveAs strPathOutput

Answer 2

您可以在 VBA 中使用.Move method。当没有显示要移动到的位置时，.Move 方法会将指定的工作表移动到新工作簿中。

Sheets("Yoursheet").Move

由于这将始终是最新创建的工作簿，因此您可以使用 Workbooks.Count 参考：

Dim wb As Workbook
Set wb = Workbooks(Workbooks.Count)