Gracias Pablo y Diego.
Lo resolví así:
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).EntireColumn.NumberFormat = "dd/mm/yyyy h:mm"
End If
Next
Gracias también a San Google.
Viviana
----- Original Message -----
From: "Diego A. Montero" <[EMAIL PROTECTED]>
To: "vbusers List Member" <[email protected]>
Sent: Monday, October 16, 2006 11:28 PM
Subject: [vbusers] Fechas en Excel
Yo en mis sistemas guardo la fecha de la sigueinte manera: yyyymmdd
Luego la formateo "visualmente" en la grilla Sheridan que la muestro.
Luego cuando la voy a exportar, a excel, formateo la fecha a dd-mmm-yyyy.
Por ej. si tengo 20061016, la muestro en grilla como 16/10/2006 y la exporto
a excel como 16-Oct-2006.
Espero que sirva de ayuda.
Slds.
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Report
System - Viviana
Sent: Monday, 16 de October de 2006 19:13
To: vbusers List Member
Subject: [vbusers] Fechas en Excel
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
>
>
>
__________________________________________________
Preguntá. Respondé. Descubrí.
Todo lo que querías saber, y lo que ni imaginabas,
está en Yahoo! Respuestas (Beta).
¡Probalo ya!
http://www.yahoo.com.ar/respuestas
