0

Tengo un fichero .dmp en donde vienen todas las fechas de un mes, por ejemplo:

01/12/2017
02/12/2017
03/12/2017
...

Cuando ejecuto el programa excel VBA para ponerlas en celdas, las transforma en:

12/01/2017
12/02/2017
...

Hasta el dia 13 que, al no haber mes 13, pues no lo cambia. Este es mi código y ya no se que hacer:

Cells(1, 1).Select
    
        If Cells(1, 1) <> "" Then
            Rows("4:4").Select
            selection.Copy
            Rows("1:1").Select
            ActiveSheet.Paste
        Else
            Rows("1:1").Select
            selection.Delete Shift:=xlUp
            Rows("4:4").Select
            selection.Copy
            Rows("1:1").Select
            ActiveSheet.Paste
        End If
    
    Range("A3").Select
    Application.CutCopyMode = False

    Rows("3:3").Select
    selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    
    Tini = Range("C3") & " " & Range("D3")
    Tfin = Range("F3") & " " & Range("G3")
    Rows("3:4").Select
    selection.ClearContents
    Cells(3, 1).Value = Tini
    Cells(4, 1).Value = Tfin
    Range("A3:A4").Select
    selection.NumberFormat = "dd/mmm/yy hh:mm:ss"

Gracias

6
  • verifica en las celdas de escritura en que formato de fecha esta excel maneja varios formatos.
    – juan perez
    Commented el 21 jun. 2019 a las 15:54
  • En excel esta en formato dd/mmm/yyyy, o sea el que yo quiero, el problema es que al pasar por el VBA los dias pasas a meses y viceversa aunque en el excel siga estando el formato como dd/mmm/yyyy. Quiero decir en el archivo .dmp yo lo tengo como dd/mmm/yyyy, despues al llegar a excel lo unico que sucede es que las cifras se mueven sin moverse el formato
    – Raul
    Commented el 21 jun. 2019 a las 16:01
  • 1
    Entonces lo único que se me ocurre es que esos valores los pases como string y la celdas le quites los formatos y lo dejes como texto
    – juan perez
    Commented el 21 jun. 2019 a las 16:05
  • Bienvenido a SO en español. ¿Que hay dentro de Tini y Tfin? ¿Cómo las tienes definidas? Concatenas valores en ambos casos, incluyendo un espacio en blanco (por ejemplo, Range("C3") & " " & Range("D3")) y los pones en A3 y A4. Y luego quieres pasarlos a fechas? Necesitamos más datos y ejemplos o será difícil ayudarte
    – Esei
    Commented el 22 jun. 2019 a las 12:58
  • Dentro de Tini y Tfin hay un valor de tiempo inicial y uno final. O sea en si son valores de fechas ya, el problema es que luego se intercambian el mes y el dia. El Tfin no se intercambia ya que es el 31/12 pero el Tini si cambia de 01/12 al 12/01.
    – Raul
    Commented el 24 jun. 2019 a las 7:30

1 respuesta 1

2

Al final encontré la solucion buscando en mas paginas y foros, solo habia que añadir Local:=True cuando se abria el fichero:

Workbooks.Open Filename:="c:\Excel\MyFile.csv",Local:=True 

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.