Cómo exportar hojas de cálculo de Excel a nuevos libros de trabajo
Tengo un montón de libros de Excel que contienen varias hojas de trabajo. Quiero recorrer cada libro y exportar cada hoja de trabajo a su propio libro nuevo. Quiero una hoja de trabajo en cada libro nuevo.
Esto es lo que tengo hasta ahora:
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