Tecnología

Inicio

Cómo convertir hojas Todos Excel a CSV con macros

Cómo convertir hojas Todos Excel a CSV con macros


En Microsoft Excel, puede convertir fácilmente un libro a CSV por la elección de un tipo de archivo apropiado en el "Guardar como" cuadro de diálogo. Usando este método, sólo la hoja activa se convertirá. Esto se debe a que los archivos CSV sólo pueden contener una hoja. Para convertir varias hojas en CSV, tendrá que exportar ellos uno por uno. Esto implica la activación de cada hoja, moviéndolo a un libro de vacío y luego guardarlo como un archivo CSV. Para hacer esta tarea más fácil y más conveniente, utilizar macros.

Instrucciones

1 Inicie Microsoft Excel y abra el libro.

2 Pulse la tecla "ALT + F8" para abrir la ventana de macros. Tipo "ExportSheetsToCSV" en el cuadro Nombre de la macro y haga clic en "Crear".

3 Ingrese el código siguiente en el editor VBA. Esta macro va a crear los archivos CSV en la misma carpeta que el libro utilizando nombres de las hojas de los nombres de archivo.

Sub ExportSheetsToCSV ()

Dim wSheet como hoja de trabajo

Dim como secuencia csvFile

Para cada wSheet En las hojas de trabajo

On Error Resume Next

wSheet.Copy

csvFile = CurDir & "\" & wSheet.Name y ".csv"

ActiveWorkbook.SaveAs Nombre del archivo: = csvFile, _

FileFormat: = xlCSV, createBackup: = False

ActiveWorkbook.Saved = True

ActiveWorkbook.Close

Siguiente wSheet

End Sub

4 Cierre la VBA de edición para volver a su libro.

5 Pulse la tecla "ALT + F8" de nuevo para abrir la ventana de macros. Seleccione "ExportSheetsToCSV" de la lista y haga clic en "Ejecutar". Espere a Excel para terminar la conversión de las hojas.

Consejos y advertencias

  • Si desea guardar los archivos CSV en una carpeta diferente, reemplace "CurDir" en la línea 9 con la ruta a la carpeta que desee. También puede mover el libro en la carpeta que desee antes de ejecutar la macro.
  • De forma predeterminada, las macros están deshabilitadas para Microsoft Excel. Para habilitarlos, haga clic en el botón de Microsoft Office, vaya a "Opciones de Excel" y luego asegurarse de que "Mostrar ficha Programador en la cinta" está marcada. Haga clic en Aceptar." En algunos casos, es posible que tenga que reiniciar MS Excel para que los cambios surtan efecto.