Gracias Pablo, pero el problema es que los usuarios eligen las columnas de una lista, y no sé a priori cuántas y cuáles columnas va a tener la planilla y menos todavía si hay columnas de fecha y en qué ubicación. No sé si con la plantilla lo puedo solucionar. Igualmente pasame el código por si me sirve. Viviana
----- Original Message ----- From: "Pablo Nuñez" <[EMAIL PROTECTED]> To: "vbusers List Member" <[email protected]> Sent: Monday, October 16, 2006 3:32 PM Subject: [vbusers] Fechas en Excel > 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 > > >
