problema con formato de fecha al Exportar a Excel

[rgallardo]

Hola, tengo el siguiente problemilla que me lleva dandome de cabezasos hace algun rato. Lleno una grilla desde un archivo temporal y la muestro, hasta ahi todo bien, sin embargo, cuando uso una pequeña rutina para exportar los datos desde la grilla a Excel, en algunos casos me cambia el formato de fecha, yo necesito la fecha en formato dd/mm/yyyy pero cuando exporto a Excel, en, algunas celdas, me queda mm/dd/yyyy. Lo mas curioso es que no pasa con todos los registro.

Es raro, revise incluso la confiiguracion regional en el Panel de Control y ahi esta bien la configuracion de la fecha!

A continuacion muestro las rutinas

Esta es la rutina que llena la grilla
Do While Not TB_TEMPO.EOF

gridDet.Row = Fila
gridDet.Col = 0
gridDet.Text = Format(Fila, "###")
gridDet.Col = 1
gridDet.Text = TB_TEMPO!NOMBRE
gridDet.Col = 2
gridDet.Text = TB_TEMPO!run
gridDet.Col = 3
gridDet.Text = Format(TB_TEMPO!fecing, "dd/mm/yyyy")
gridDet.Col = 4
gridDet.Text = Format(TB_TEMPO!fecegr, "dd/mm/yyyy")

TB_TEMPO.MoveNext
Fila = Fila + 1
gridDet.Rows = Fila + 1

Loop


Esta es la rutina que exporta la grilla a Excel
Public Function Exportar_Excel(sOutputPath As String, FlexGrid As Object) As Boolean

On Error GoTo Error_Handler

Dim o_Excel As Object
Dim o_Libro As Object
Dim o_Hoja As Object
Dim Fila As Long
Dim Columna As Long

' -- Crea el objeto Excel, el objeto workBook y el objeto sheet
Set o_Excel = CreateObject("Excel.Application")
Set o_Libro = o_Excel.Workbooks.Add
Set o_Hoja = o_Libro.Worksheets.Add

' -- Bucle para Exportar los datos
With FlexGrid
For Fila = 0 To .Rows - 1
For Columna = 0 To .Cols - 1
o_Hoja.Cells(Fila + 1, Columna + 1).Value = .TextMatrix(Fila, Columna)
Next
Next
End With

o_Excel.Visible = True

'o_Libro.Close True, sOutputPath
' -- Cerrar Excel
'o_Excel.Quit
' -- Terminar instancias
Call ReleaseObjects(o_Excel, o_Libro, o_Hoja)
Exportar_Excel = True
Exit Function