SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Amenoar en Miércoles 17 de Septiembre de 2003, 08:16

Título: Re: Ayuda con Exportar
Publicado por: 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
Título: Re: Ayuda con Exportar
Publicado por: J.M.Movilla en Miércoles 17 de Septiembre de 2003, 11:52
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
Título: Re: Ayuda con Exportar
Publicado por: Amenoar en Miércoles 17 de Septiembre de 2003, 16:31
Muchas Gracias por la rapidez de la respuesta, voy a probar y te cuento.
Título: Ayuda con Exportar
Publicado por: Amenoar en Miércoles 17 de Septiembre de 2003, 17:42
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: