[vbusers] Fechas en Excel

[Report System - Viviana]

Title: Pagina nueva 1

Hola listeros: Estoy pasando un recordset a excel. Pero tengo problemas con el formato de las fechas, me las muestra como números. Si una vez pasado, voy a la planilla Excel y formateo la columna como fecha, me muestra los valores correctos, pero la idea es que el usuario la vea correctamente sin tener que reformatearla. Utilizo el siguiente código:       ' Copy field names to the firsExcel row of the worksheet     fldCount = rsExcel.Fields.Count     For i = 1 To fldCount         xlSheet.Cells(1, i).Value = rsExcel.Fields(i - 1).Name         If rsExcel.Fields(i - 1).Type = adDate Then             xlSheet.Columns(i).Select             Selection.NumberFormat = "dd-mm-yy"            End If     Next Pero a pesar de seleccionar correctamente la columna, no ejecuta el formateo. Y además quisiera saber, como eliminar la selección una vez terminado, porque queda seleccionada la columna Alguna idea? Gracias Viviana