Pasar de excel a txt una fecha
Hola, muy buenos días, mi pregunta es la siguiente, tengo un código con el cual paso unos datos de excel a un txt. El inconveniente que tengo es que cuando paso una fecha por ejemplo 04/01/2010 al pasarlo a txt me cambia el orden de la fecha y me lo pega como 01/04/2010. Y no se como hacer para que me lo deje como esta en excel.
1 Respuesta
Respuesta de nilton31a
1
Me gustaría ver tu código para ver en que pueda estar fallando y si le podemos hacer algún ajuste.
Si no puedes por este medio mándamelo a mi correo [email protected]
Si no puedes por este medio mándamelo a mi correo [email protected]
Open NBRE & ".txt" For Output As #1
dato1 = ActiveCell
ActiveCell.Offset(0, 1).Select
dato2 = ActiveCell
ActiveCell.Offset(0, 1).Select
dato3 = ActiveCell
Print #1, dato1 & "," & dato2 & "," & dato3 & "," & dato4
El código abre el txt y luego reccorre celda por celda y guarda los datos, luego los pega en el txt. En El dato1, dato2 y dato3 tengo las fechas.(04/01/2010)...
dato1 = ActiveCell
ActiveCell.Offset(0, 1).Select
dato2 = ActiveCell
ActiveCell.Offset(0, 1).Select
dato3 = ActiveCell
Print #1, dato1 & "," & dato2 & "," & dato3 & "," & dato4
El código abre el txt y luego reccorre celda por celda y guarda los datos, luego los pega en el txt. En El dato1, dato2 y dato3 tengo las fechas.(04/01/2010)...
Perdón por la demora en responder, fíjate que yo tengo un código similar para guardar información en .txt y solo veo una diferencia. Yo también ocupo fechas y no me las cambia. Solo coloca este renglón en cada dato... como sigue:
dato1 = ActiveCell
ActiveCell = Empty
ActiveCell.Offset(0, 1).Select
Y así sucesivamente en cada dato, para fijar el dato a copiar.
Saludos y espero te sirva o estoy a tus ordenes
dato1 = ActiveCell
ActiveCell = Empty
ActiveCell.Offset(0, 1).Select
Y así sucesivamente en cada dato, para fijar el dato a copiar.
Saludos y espero te sirva o estoy a tus ordenes
