Viviana, te cuento que tambien tube un problema similar y la forma en
que lo solucione fue creando una plantilla XLT y pegando los valores en
la misma, de esa forma el formato siempre lo tengo prearmado y solo pego
los valores. si esta idea te interesa mañana te paso el codigo que
utilize para hacer esto
Suerte
Pablo N
Report System - Viviana escribió:
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
