Buenas,
Tengo un código que no puedo adaptar para que guarde cada hoja como un libro xlsx.
Sub MACRO1()
Dim ws As Worksheet Dim ruta As String Dim carpeta As FileDialog
Set folder = Application.FileDialog(msoFileDialogFolderPicker) If folder.Show <> -1 Then Exit Sub
salidas = carpeta.SelectedItems(1)
For Each ws In Application.ActiveWorkbook.Worksheets
ws.SaveAs salidas & "\" & ws.Name, FileFormat:=51
Next
End Sub
|
Ese código guarda varias veces el mismo archivo, completo, con los nombres de cada hoja.
Es decir, si tiene 10 hojas con nombres "1","2", "3"..."10", se guardarán los archivos xlsx "1.xlsx","2.xlsx", "3.xlsx", ...10.xlsx"
Sin embargo, yo quiero guardar solo la hoja "1" como el xlsx "1.xlsx", la hoja "2" como el xlsx "2.xlsx", y así...
No logro guardar cada hoja sin complejizar el código.
Se antemano, gracias por la ayuda.
Saludos