Comment exporter des feuilles de calcul Excel dans de nouveaux classeurs

Question

J'ai un tas de classeurs Excel qui contiennent plusieurs feuilles de calcul. Je veux parcourir chaque classeur et exporter chaque feuille de calcul dans son propre nouveau classeur. Je veux une feuille de travail dans chaque nouveau classeur.

Voici ce que j'ai jusqu'à présent:

Sub ExportWorksheet(ByVal worksheet As Excel.Worksheet, ByVal filePath As String) 
     Dim xlApp As Excel.Application = New Excel.ApplicationClass 
     Dim xlWorkBook As Excel.Workbook = xlApp.Workbooks.Add 
     worksheet.Select() 
     worksheet.Copy() 
     xlWorkBook.Worksheets.Add() 
     worksheet.Paste(Destination:=xlWorkBook) 

     xlWorkBook.SaveAs(Filename:=filePath) 

     xlWorkBook.Close(False) 
     xlApp.Quit() 
    End Sub 

Answer 1

Doh!

worksheet.SaveAs(Filename:=filePath)

Answer 2

Dans Excel ce serait en copiant la feuille de calcul à un nouveau classeur, non pas en créant un nouveau classeur puis en ajoutant la feuille de calcul à elle. Cela est réalisé en utilisant Worksheet.Copy sans spécifier où dans le classeur vous souhaitez placer la feuille de calcul copiée.

More reading: http://msdn.microsoft.com/en-us/library/microsoft.office.tools.excel.worksheet.copy(VS.80).aspx