Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-11-2007
elorza elorza is offline
Miembro
 
Registrado: nov 2007
Posts: 41
Poder: 0
elorza Va por buen camino
Question Exportar el grafico a excel

Kaixo, he creado un gráfico con Chart apartir de uja StringGrid y sabes cómo puedo exportar ahora a excel? me sería de gran ayuda.

Eskerrik asko
Responder Con Cita
  #2  
Antiguo 20-01-2015
Avatar de jeremiselxi
jeremiselxi jeremiselxi is offline
Miembro
 
Registrado: ago 2008
Posts: 199
Poder: 16
jeremiselxi Va por buen camino
Cita:
Empezado por elorza Ver Mensaje
Kaixo, he creado un gráfico con Chart apartir de uja StringGrid y sabes cómo puedo exportar ahora a excel? me sería de gran ayuda.

Eskerrik asko
yo lo hago añadiendo un componente llamado ExcelApplication de la paleta server y con el siguiente código:

Código Delphi [-]
procedure TForm1.ExportaraexcelClick(Sender: TObject);
var
  Libro : _WORKBOOK;
  Hoja  : _WORKSHEET;
  i,colora:Integer;
begin
i:=0;
colora:=1;

Libro := Excel.Workbooks.Add(Null, 0);
Hoja  := Libro.Sheets[1] as _WORKSHEET;


//titulo
i:=i+1;


        if colora=1 then
        begin
          Hoja.Range['A'+ inttostr(i),'B'+ inttostr(i)].Interior.Color :=$00F1E6DC ;
          colora:= colora +1;
        end
        else
        begin
          Hoja.Range['A'+ inttostr(i),'B'+ inttostr(i)].Interior.ColorIndex :=2 ;
          colora:= colora -1;
        end;


Hoja.Cells.Item[i,1]:='Totales';
Hoja.Cells.Item[i,2]:='Actividades Realizadas';



//Insertamos todos los registros al excel  y en dbgrid 1
  with table do
    begin
    first;
      while not EOF Do
        begin
        i:=i+1;
        Hoja.Cells.Item[i,1]:=DBGrid1.Fields[0].AsString;
        Hoja.Cells.Item[i,2]:=DBGrid1.Fields[1].AsString;

        if colora=1 then
        begin
          Hoja.Range['A'+ inttostr(i),'B'+ inttostr(i)].Interior.Color :=$00F1E6DC ;
          colora:= colora +1;
        end
        else
        begin
          Hoja.Range['A'+ inttostr(i),'B'+ inttostr(i)].Interior.ColorIndex :=2 ;
          colora:= colora -1;
        end;

//        Hoja.Cells.Item[i,3]:=DBGrid1.Fields[2].AsString;
        Next;
   end;//while
end;//with





//Luego insertamos el total

        i:=i+1;
        Hoja.Cells.Item[i,1]:= 'Total ';
//        Hoja.Cells.Item[i,2]:= total.Caption;


Excel.Visible[0] := true;

ShowMessage('Exportado con Exito!');

end;
__________________
Cristo te ama, ven a d él, ya k te espera con los brazos abiertos. Dios te bendiga mucho
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... BuenaOnda Varios 3 20-08-2007 09:55:07
Como mando a llamar un grafico de excel? Elite237 Gráficos 1 28-07-2007 14:51:30
Exportar a excel m_cuevas Varios 2 28-09-2006 21:34:27
exportar a excel ? Enrique Impresión 2 01-09-2004 01:18:47
Exportar a Excel pruz Varios 8 01-07-2004 16:47:37


La franja horaria es GMT +2. Ahora son las 10:39:46.


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