Autor/a
Afiliación
Fecha de publicación

31 de mayo de 2023

Fecha de modificación

15 de mayo de 2025

Resumen

This article introduces a simple VBA macro designed to merge all sheets from multiple Excel files into a single workbook. The macro automates the process of data consolidation, which is particularly useful for repetitive tasks in econometrics or any field requiring data aggregation from various sources. The method involves opening each file in read-only mode, copying all sheets to a target workbook, and then closing the source workbook to proceed to the next file in the directory.

Palabras clave

VBA, Excel, Data Automation, Macros, Consolidation

SEPARAR HOJAS DE EXCEL EN DOCUMENTOS INDIVIDUALES Seguramente en cualquier ocasion les han pedido que deben separar un documento en excel, el cual contiene varias hojas, ya que por facilidad de visualización y trabajo el documento se debe tener de esta manera, pero al final debemos tener documentos individuales para ser enviados por separado o simplemente para darle otro tratamiento. En este articulo aprenderemos a separar ese documento el cual contiene varias hojas y dejarlo en documentos individuales. Para ello solamente debemos ingresar al modo desarrollador en excel y copiar unas lineas de codigo y ejecutar y se realizara automaticamente la separacion. Se deben seguir los siguientes pasos:

1- Creamos una carpeta donde vamos a guardar el documento el cual vamos a separar. 2- Abrimos el documento y pulsamos las teclas alt+F11. 3- De esta manera se abrirá el modo desarrollador, en la parte izquierda encontramos un icono que dice ver código. damos clic en el y se abrirá una ventana para insertar el código. Copiamos y pegamos el siguiente fragmento de código:

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

4- Damos clic en el icono Ejecutar Sub el cual lo encontramos en la barra superior con un icono triangular. 5- Inmediatamente se ejecutará el código y vamos a visualizar la carpeta, encontrando las hojas ya separadas en documentos individuales.

De esta manera se habrá solucionado esa tarea que tal vez puede resultar tediosa si no conocemos mucho del modo desarrollador en excel.

Publicaciones Similares

Si te interesó este artículo, te recomendamos que explores otros blogs y recursos relacionados que pueden ampliar tus conocimientos. Aquí te dejo algunas sugerencias:

  1. 01 Introduccion Al Lenguaje Y Editor Vba
  2. 02 Grabar Y Modificar
  3. 03 Procedimientos
  4. 04 Funciones En Vba
  5. 05 Funciones Condicionales Estructuras Condicionales
  6. 06 Funciones Iterativas Estructuras Repetitivas O Bucles
  7. 07 Formularios
  8. 08 Eventos
  9. Comando Para Convertir Docx A Odt
  10. Buscar Reemplazar En Libreoffice
  11. Anclaje Envoltura Alineacion Y Organizacion De Objetos En Llibreoffice
  12. Combinando Hojas De Excel Con Vba
  13. Separando Hojas De Excel En Documentos Individuales
  14. Por Editar

Esperamos que encuentres estas publicaciones igualmente interesantes y útiles. ¡Disfruta de la lectura!

Reutilización

Cómo citar

Por favor, cita este trabajo como:
Achalma, Edison. 2023. “Separando Hojas de Excel en documentos individuales,” May. https://achalmaedison.netlify.app/herramientas-oficina/ofimatica/2023-06-05-separando-hojas-de-excel-en-documentos-individuales/.