Excel 2003 VBA：将工作表移动到变量引用的新工作簿中

Question

我有一个函数，旨在运行数据透视表的 ShowPages() 命令，然后将每个工作表保存到单独的文件中。

我希望我可以这样做：

Sub Split()
    ThisWorkbook.Sheets("Data").PivotTables("Data").ShowPages PageField:="Codename"
    Dim newWb As Workbook

    For Each s In ThisWorkbook.Sheets
        If s.Name <> "Data" Then
            Set newWb = s.Move #This is the line I'm trying to work out
            newWb.SaveAs Filename:="C:\Export\" + s.Name + ".xls"
            newWb.Close
        End If
    Next s

End Sub

不幸的是，这遇到了一堆与没有创建对象等相关的问题（可以理解）。做到这一点最明智的方法是什么？

Answer 1

Sub Split()
ThisWorkbook.Sheets("Data").PivotTables("Data").ShowPages PageField:="Codename"
Dim newWb As Workbook   

For Each s In ThisWorkbook.Sheets
    If s.Name <> "Data" Then
        ''Added by Soldieraman
        Dim sheetName As String
        sheetName = s.Name

        Set newWb = Workbooks.Add
        s.Move before:=newWb.Sheets(1)
        Application.DisplayAlerts = False
        newWb.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Delete
        Application.DisplayAlerts = True

        ''Edited by soldieraman
        newWb.SaveAs Filename:="C:\Export\Test" & sheetName & ".xls"
        newWb.Close
    End If
Next s
End Sub

Answer 2

虽然这已经很旧了，并且士兵接受的答案非常好，只是想添加一件事。 Excel VBA Sheets.Copy 和 Sheets.Move 方法有一个非常好的功能。它们采用两个可选参数“之前”或“之后”之一来定位移动/复制的工作表。 Excel 文档指出：

 If you don't specify either Before or After, Microsoft Excel
 creates a new workbook that contains the moved [copied] sheet.

因此，这几乎令人惊讶，但您可以只说：

 Sheets(sheetname).Move

在接受的答案中，代替：

 Set newWb = Workbooks.Add
 s.Move before:=newWb.Sheets(1)
 Application.DisplayAlerts = False
 newWb.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Delete
 Application.DisplayAlerts = True

士兵的其余代码可以通过这种简化很好地工作。