Cómo convertir todas las hojas de Excel a CSV con Macros

En Microsoft Excel , puede convertir fácilmente en un libro de CSV por la elección de un tipo de archivo apropiado en la opción "Guardar como" cuadro de diálogo. El uso de este método , se puede convertir sólo la hoja activa . Esto se debe a que los archivos CSV sólo pueden contener una hoja. Para convertir varias hojas en CSV, tendrá que exportarlos uno por uno. Esto implica la activación de cada hoja , moviéndolo a un libro vacío y 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

Prensa "Alt + F8 " para abrir la ventana de Macros. Tipo " ExportSheetsToCSV " en el cuadro Nombre de la macro y haga clic en "Crear . "
3

Escriba el siguiente código en el editor de VBA. Esta macro creará los archivos CSV en la misma carpeta que el libro mediante nombres de las hojas de los nombres de archivo .

Sub ExportSheetsToCSV ()

wSheet Dim como hoja de trabajo

csvFile As secuencia

For Each wSheet En Hojas

On Error Resume Next

wSheet.Copy

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

ActiveWorkbook.SaveAs fichero: = 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 "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 de convertir las hojas.