Demo entry 6881450

Excel Consultor

   

Submitted by W on Sep 11, 2019 at 03:21
Language: VBScript. Code size: 1.2 kB.

Sub Generar_archivos_desde_hojas()

'creamos un bucle desde la hoja 1 hasta la ultima

For i = 1 To Sheets.Count

'cada libro creado solo debe tener una hoja

 Application.SheetsInNewWorkbook = 1

On Error Resume Next

'seleccionamos la hoja activa

Sheets(i).Select

'copiamos todo

    Cells.Copy

    'llamaremos al libro con el nombre de la hoja

    nombre_hoja = ActiveSheet.Name

          'agregamos un libro nuevo

        Workbooks.Add

   'pegamos lo copiado

    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

    ActiveSheet.Paste

        Application.DisplayAlerts = False

        'guardamos este nuevo archivo con el nombre de la hoja en la misma ruta donde esta este archivo

    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & nombre_hoja, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False

'cerramos el libro

ActiveWorkbook.Close False

  Application.DisplayAlerts = True

Next i

'mensaje al finalizar

MsgBox "Se ha creado " & i - 1 & " archivos", vbInformation, "Aviso - Excel Consultor"

End Sub

This snippet took 0.01 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).