Combinando archivos CSV en Windows

Combinando archivos CSV en Windows

Para combinar varios archivos CSV en un único archivo, se utiliza el comando copy *.csv archivoFinal.csv en la consola estando dentro de la carpeta correspondiente. Se deben tener en cuenta las siguientes:

• Todos los archivos CSV que se deseen combinar deben encontrarse en la misma carpeta, ya que el *.csv indica que queremos tomar todos los archivos con la extensión CSV.
• Para abrir la consola y ubicarnos en la carpeta correcta, abrimos la carpeta donde se encuentran los archivos CSV que se deseen combinar, escribimos cmd en la barra de navegación y presionamos ENTER.
• Es necesario escribir los espacios correctamente al utilizar el comando. Hay un espacio entre copy y *.csv y otro espacio entre *.csv y archivoFinal.csv .
• Donde dice archivoFinal.csv en el comando, se debe escribir el nombre deseado para el archivo que tendrá todos los datos combinados. ¡Recordar agregar el .csv al final!
• Los comandos se ejecutan con la tecla ENTER.

Script para convertir todos los archivos Excel a csv

Dim fso: set fso = CreateObject("Scripting.FileSystemObject")

' directory in which this script is currently running

CurrentDirectory = fso.GetAbsolutePathName(".")

Set folder = fso.GetFolder(CurrentDirectory)

For each file In folder.Files

If fso.GetExtensionName(file) = "xlsx" Then

                pathOut = fso.BuildPath(CurrentDirectory, fso.GetBaseName(file)+".csv")

                Dim oExcel

                Set oExcel = CreateObject("Excel.Application")

                Dim oBook

                Set oBook = oExcel.Workbooks.Open(file)

                oBook.SaveAs pathOut, 6

                oBook.Close False

                oExcel.Quit

End If

Next

...