Excel 2003 VBA: Déplacer une feuille dans un nouveau classeur qui est référencé par une variable

J'ai une fonction qui est destiné à être exécuté le ShowPages() commande d'un tableau croisé dynamique, puis enregistrer chaque feuille dans un fichier séparé.

Voici comment je souhaite que je pourrais le faire:

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

Malheureusement, c'est en cours d'exécution dans un tas de questions, à faire de ne pas avoir créé des objets et autres choses de ce genre (à juste titre). Quelle est la façon la plus sensée à faire cela?

InformationsquelleAutor Margaret | 2010-07-26