Autor Tema: Re: Ayuda con Exportar (Leído 1701 veces)

Amenoar · « **en:** Miércoles 17 de Septiembre de 2003, 08:16 »

Tengo que exportar los datos desde una Base de Datos a Excel. El codigo lo tengo, pero una de las columnas a exportar contiene fechas y al pasarlo a Excel me lo pasa con formato general y no de "Fecha". Supongo que es con el: "objExcel.ActiveSheet", pero no lo puedo solucionar.
Desde ya muchas Gracias.
Amenoar

J.M.Movilla

Existen muchas fórmulas, dependiendo de cómo hagas la confección de la hoja de cálculo, pero en general vienen a coincidir en definir el formato de celda para que en lugar de presentar el formato general te muestre el específico que te interese; por ejemplo en tu caso podrías hacer:

Dim xEr As Excel.Range
Set xEr = xEs.Cells(nFila, nCol)
xEr.ColumnWidth = 10
xEr.NumberFormat = "dd-mm-yyyy"

con lo cual el grupo de celdas adquirirían el formato de fecha indicado.

Perdona si te hago retocar el código, hecho a vuela pluma...

Saludos y suerte

Amenoar

Muchas Gracias por la rapidez de la respuesta, voy a probar y te cuento.

Amenoar

Ni siquiera tuve que modificar el codigo. Copie una linea de lo que me mandaste y lo pegue. Quedo asi:
objExcel.ActiveSheet.Columns("A").NumberFormat = "dd-mm-yyyy"
Muchas Gracias nuevamente.
Amenoar:beer: