Problema:Formato de Hora al guardar en txt

[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.