Macro que guarde hojas de un archivo excel como archivos independientes

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

"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- Ocultar texto de la cita -

- Mostrar texto de la cita -