Macro que guarde hojas de un archivo excel como archivos independientes

28/04/2009 - 01:50 por Juan Carlos | Informe spam
Hola:

Necesito guardar las hojas de un archivo excel como archivos
independientes, cuyo nombre sea el nombre de la hoja. Hice la
siguiente macro pero falla en generar el archivo de la segunda hoja y
no he logrado detectar por qué. Supongo que no puede volver al archivo
original. Saludos Juan Carlos:

Sub Macro1()

For i = 1 To Sheets.Count
Sheets(i).Select
Sheets(i).Copy
Dim Nombre As String
Nombre = Sheets(i).Name
Dim Archivo
Archivo = ThisWorkbook.Path & "\" & Nombre
ActiveWorkbook.SaveAs Filename:=Archivo
ActiveWorkbook.Close
Workbooks("analisis_valores_06042009.xls").Activate
Next i
End Sub
 

Leer las respuestas

#1 Juan M
28/04/2009 - 10:20 | Informe spam
"Juan Carlos" escribió
Hola:
Necesito guardar las hojas de un archivo excel como archivos
independientes, cuyo nombre sea el nombre de la hoja. Hice la
siguiente macro pero falla en generar el archivo de la segunda hoja y
no he logrado detectar por qué. Supongo que no puede volver al archivo
original. Saludos Juan Carlos:

Sub Macro1()

For i = 1 To Sheets.Count
Sheets(i).Select
Sheets(i).Copy
Dim Nombre As String
Nombre = Sheets(i).Name
Dim Archivo
Archivo = ThisWorkbook.Path & "\" & Nombre
ActiveWorkbook.SaveAs Filename:=Archivo
ActiveWorkbook.Close
Workbooks("analisis_valores_06042009.xls").Activate
Next i
End Sub





Hola Juan Carlos,

Prueba con este código,

Sub Macro2()
Dim i As Integer
Dim Archivo As String

For i = 1 To ThisWorkbook.Sheets.Count
Sheets(i).Copy
Archivo = ThisWorkbook.Path & "\" & ThisWorkbook.Sheets(i).Name
ActiveWorkbook.SaveAs Filename:=Archivo
ActiveWorkbook.Close
thisworkbook.activate
' Workbooks("analisis_valores_06042009.xls").Activate
Next i
End Sub

Un saludo,
Juan

Preguntas similares