Problema:Formato de Hora al guardar en txt

[CoNeCsIoN]

Buenas tardes , tenia un problema qu eme gustaria consutlar con vosotros :
Tengo un fichero Excel trabajando con VisualBasic. La funcion basica del visaul basic es pasar la informacion del fichero excel en cuestion a un fichero txt con sus respectivos campos etc etc....
Me pasa lo siguiente, al volcar los datos de la hoja de calculo al archivo de texto , me lo pasa todo bien menos la fecha , que de un formato dd/mm/aaaa en el *.txt me aparece como mm/dd/aaaa.

La version del Visual basic es la 6 y la del Excel es la 2002
Alguien puede ayudarme?

Gracias

[culd]

Tenes dos opciones para guardar la fecha como queres...

OPCION 01:

Código:

Format(LAFECHA, "dd/mm/yyyy")

OPCION 02:

Código:

Day(LAFECHA) & "/" & Month(LaFecha) & "/" & Year(LaFecha)

Obviamente esto lo tenes que adaptar a tu sistemita.

[CoNeCsIoN]

Iniciado por culd

Tenes dos opciones para guardar la fecha como queres...

OPCION 01:

Código:

Format(LAFECHA, "dd/mm/yyyy")

OPCION 02:

Código:

Day(LAFECHA) & "/" & Month(LaFecha) & "/" & Year(LaFecha)

Obviamente esto lo tenes que adaptar a tu sistemita.

No creo que sea problema de hacer una modificacion en la consulta , puesto que mediante la funcion de VB me traspasa bien los datos de un excel a el excel que trabaja con VB , el problema viene cuando lo pasamos a .txt

Código:

        Loop
        Call ExcelCloseInstance(xlApp)
        
        Hoja2.Select
        Hoja2.Range("A2:I" & (lFilaOut - 1)).Select
        Selection.Copy
        Hoja4.Select
        Hoja4.Range("A1").Select
        ActiveSheet.Paste
        Hoja1.Select
        ThisWorkbook.Save
        
        filename = ThisWorkbook.Path & "\" & Hoja4.Name & ".txt"
        KillFile filename
        Hoja4.Select
        Hoja4.SaveAs filename, Excel.XlFileFormat.xlTextWindows
        
        ThisWorkbook.Close False, filename
    End If
End Sub

esta es la parte en la que se esta traspasando el excel (correcto) al .txt , es en este punto donde por "magia" se modifica la fecha.

[CoNeCsIoN]

Por otro lado , alguien me comento que puede ser problema del "culture" de la aplicacion . Que al ser ingles me esta pasando los datos en formato utilizado en este pais. Pero , no se si esta idea va encaminada con lo mio , si tan siquiera existe , ni donde localizar esta opcion

[Avellaneda]

Iniciado por CoNeCsIoN

Por otro lado , alguien me comento que puede ser problema del "culture" de la aplicacion . Que al ser ingles me esta pasando los datos en formato utilizado en este pais. Pero , no se si esta idea va encaminada con lo mio , si tan siquiera existe , ni donde localizar esta opcion

Es posible que sea por eso, prueba así:

Importa los siguientes espacios de nombres

Imports System.Threading
Imports System.Globalization

Coloca la siguiente declaración al principio de la clase

Dim CultureSpanish As CultureInfo = Thread.CurrentThread.CurrentCulture

Esta antes de importar los datos

Thread.CurrentThread.CurrentCulture = New CultureInfo("en-US")

y esta al finalizar la importación

Thread.CurrentThread.CurrentCulture = CultureSpanish




El código anterior es para .NET, pero al releer la pregunta original veo que dices que es VB6, me confundió lo de 'culture'.

[CoNeCsIoN]

Iniciado por Avellaneda

Es posible que sea por eso, prueba así:

Importa los siguientes espacios de nombres

Imports System.Threading
Imports System.Globalization

Coloca la siguiente declaración al principio de la clase

Dim CultureSpanish As CultureInfo = Thread.CurrentThread.CurrentCulture

Esta antes de importar los datos

Thread.CurrentThread.CurrentCulture = New CultureInfo("en-US")

y esta al finalizar la importación

Thread.CurrentThread.CurrentCulture = CultureSpanish




El código anterior es para .NET, pero al releer la pregunta original veo que dices que es VB6, me confundió lo de 'culture'.

que lastima =( gracias por el esfuerzo!!