Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-05-2011
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.009
Poder: 20
oscarac Va por buen camino
Exportar a Excel, formato de Celda

baje esta unidad que me ha ayudado bastante...
el asunto es que cuando exporto el grid al excel las columnas que so texto pero contienen numeros, no me las coloca como texto sino como numero

me explico con un ejemplo
en la grilla hay datos como este
Cita:
12C-25....09452633.... Nombre del Trabajador
pero cuando lo migra al excel aparece asi

Cita:
12C-25....9452633.... Nombre del Trabajador
no se cuales son los "codigos" que hay que colocar para que respete el tipo de dato
__________________
Dulce Regalo que Satanas manda para mi.....

Última edición por oscarac fecha: 01-06-2011 a las 06:26:02.
Responder Con Cita
  #2  
Antiguo 20-05-2011
Avatar de newtron
[newtron] newtron is online now
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.457
Poder: 20
newtron Va camino a la fama
Hola.

Yo para exportar a excel lo hago de una forma ligeramente distinta y no tengo ese problema, mira a ver si te sirve este ejemplo:

Código Delphi [-]
              If TipoDocumento=0 then begin
                // Excel
                ExcelX := Trunc(ImpresoAnverso.SeccionPaneles.Panel[MiIndice].Elemento[f].X/15)+1;
                ExcelY := Trunc(ImpresoAnverso.SeccionPaneles.Panel[MiIndice].Elemento[f].Y/5)+1;

                Hoja.Cells.Item[LineaExcel+ExcelY,ExcelX].NumberFormat := '@';
                if ImpresoAnverso.SeccionPaneles.Panel[MiIndice].Elemento[f].TipoCampo=teReal then
                  Hoja.Cells.Item[LineaExcel+ExcelY,ExcelX].NumberFormat := '#.##0,00';
                if ImpresoAnverso.SeccionPaneles.Panel[MiIndice].Elemento[f].TipoCampo=teEntero then
                  Hoja.Cells.Item[LineaExcel+ExcelY,ExcelX].NumberFormat := '0';

                if sAux=StringOfChar('_',length(sAux)) then
                  Hoja.Cells.Item[LineaExcel+ExcelY,ExcelX].Font.underline:=True
                else
                  if ImpresoAnverso.SeccionPaneles.Panel[MiIndice].Elemento[f].TipoCampo=teReal then begin
                    Hoja.Cells.Item[LineaExcel+ExcelY,ExcelX]:=StrToCurr(StrTran(sAux,'.',''));
                  end else if ImpresoAnverso.SeccionPaneles.Panel[MiIndice].Elemento[f].TipoCampo=teFecha then begin
                    Hoja.Cells.Item[LineaExcel+ExcelY,ExcelX]:=FormatDateTime('dd/mm/yyyy',StrToDateTime(sAux));
                  end else begin
                    Hoja.Cells.Item[LineaExcel+ExcelY,ExcelX]:=sAux;
                  end;
                If fsBold in ImpresoAnverso.SeccionPaneles.Panel[MiIndice].Elemento[f].Fuente.Style then
                  Hoja.Cells.Item[LineaExcel+ExcelY,ExcelX].Font.Bold:=true;
                case ImpresoAnverso.SeccionPaneles.Panel[MiIndice].Elemento[f].Alineacion of
                  aCentrada : begin
                    Hoja.Cells.Item[LineaExcel+ExcelY,ExcelX].HorizontalAlignment := xlcenter;
                  end;
                  aDerecha: begin
                    Hoja.Cells.Item[LineaExcel+ExcelY,ExcelX].HorizontalAlignment := xlright;
                  end;
                end;
                if ExcelY>LineasE then LineasE:=ExcelY;
              end;

Saludos
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Exportar a Excel con formato numérico Viky Varios 7 08-06-2011 22:01:38
Bloquear una celda al exportar a excel iktwo Varios 1 27-01-2011 06:13:46
Exportar un DBGRID a excel con formato de fecha Luis Castro Varios 3 21-01-2011 22:54:38
Exportar a Excel en formato .xls Parabol77 Varios 3 23-10-2010 02:32:23
Formato moneda en celda Excel miquellg Servers 2 05-06-2007 23:13:08


La franja horaria es GMT +2. Ahora son las 12:58:50.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi