Pasar xlsx a xls automáticamente en cantidad
Uso una macro para dividir un archivo xlsx con varias hojas en varios archivos, y necesito que los archivos finales sean xls. Esta es la macro que utilizo (la encontré en otro sitio)
Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
¿Hay manera de que me los guarde directamente en xls directamente al dividir el libro?
2 respuestas
Respuesta de Dante Amor
1
Respuesta de Programar Excel