Como mantener formato de fecha al guardar excel como formato ".CSV" utilizando VBA?
Tengo el siguiente código que guarda un archivo en el que las columnas 7 y 8 contienen fechas, pero al abrir el nuevo archivo .csv dichas columnas pierden el formato de fecha.
Lo que intento es que al crear el archivo .csv el formato "m/d/yyyy h:mm" se mantenga.
Sub save_as_csv ()
rutaActual = ActiveWorkbook.Path
Worksheets("X").Copy
With ActiveWorkbook
ActiveSheet.Columns(7).NumberFormat = "m/d/yyyy h:mm"
ActiveSheet.Columns(8).NumberFormat = "m/d/yyyy h:mm"
.SaveAs Filename:=rutaActual & "\nuevo archivo.csv", FileFormat:=xlCSV
.Close SaveChanges:=True
End With
End sub
Una opción es que cambies la configuración Regional y de idioma en el panel de control, al formato de fecha Inglés "m/dd/aaaa", de esa manera cuando abras el archivo, reconocerá el formato "m/dd/aaaa" y las considerará como fechas.
La otra opción es que crees una macro para abrir esos archivos, los lea como texto, pero convierta las fechas "m/d/aaaa" a una fecha "d/m/aaaa", ya una vez convertida a fecha, podrás cambiar el formato a "m/d/aaaa".
