Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
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 24-05-2005
erasmorc erasmorc is offline
Miembro
 
Registrado: ago 2004
Posts: 66
Poder: 20
erasmorc Va por buen camino
Exportar a Excel

Buenos dias,

Necesito traspasar datos desde unas tablas a excel en delphi 7 pero no se como usar el tab server de la paleta de componentes, alguien que sepa como hacerlo por favor se le agradecera.
Responder Con Cita
  #2  
Antiguo 24-05-2005
Avatar de eduarcol
[eduarcol] eduarcol is offline
Miembro Premium
 
Registrado: ago 2003
Ubicación: En los estados Zulia y Merida de Venezuela
Posts: 4.151
Poder: 25
eduarcol Va por buen camino
dos cosas.

1.- Debes Colocar este hilo en servers

2.- La busqueda en el club te daria este resultado: exportar excel

suerte
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
Responder Con Cita
  #3  
Antiguo 24-05-2005
erasmorc erasmorc is offline
Miembro
 
Registrado: ago 2004
Posts: 66
Poder: 20
erasmorc Va por buen camino
Gracias,

Lamentablemente ninguna de las opciones se refiere a D7, pero ire a la seccion de servers tal como me recomendaste. Gracias.
Responder Con Cita
  #4  
Antiguo 25-05-2005
Citlalli Citlalli is offline
No confirmado
 
Registrado: may 2005
Posts: 40
Poder: 0
Citlalli Va por buen camino
pon un dbgrid en tu form, pon su propiedad visible en false, al query ponle un datasource y a este ultimo ligalo al dbgrid e intenta con este codigo

Código Delphi [-]
procedure Tfrm_Clientes.Exporta;
 var
  excel:Variant;
  fila, columna:Integer;
begin
  with qry_excel, qry_excel.SQL do
    begin
      Close;
      Open;
      if IsEmpty then
        begin
          MessageDlg('No existen datos que reportar!', mtWarning,[mbOk], 0);
          Exit;
        end;
      TRY
        excel := CreateOleObject('Excel.Application');
      EXCEPT
        ShowMessage('Excel no se pudo iniciar.');
        exit;
      END;
      excel.Visible := true;
      First;
      fila          := 1;
      excel.Workbooks.Add;
      //Poner los títulos
      for columna := 0 to DbGrid1.Columns.Count-1 do
        excel.Cells[fila,columna + 1].Value := DbGrid1.Columns[columna].Title.Caption;
      fila:=3;
      //Desengachar controles para agilizar
      DisableControls;
      TRY
        while not(eof) do
          begin
            for columna := 0 to DbGrid1.Columns.Count-1 do
              excel.Cells[fila,columna + 1].Value := FieldByName(DbGrid1.Columns[columna].FieldName).asString;
            Next;
            inc(fila);
          end;
      EXCEPT
        ShowMessage('Atención, se produjo un error en la transmisión.');
      END;
      EnableControls;
    end;
end;

necesitas poner el el uses de tu form "ComObj"

espero te sirva

saludos

Última edición por roman fecha: 04-08-2006 a las 18:06:47. Razón: agregar etiquetas [delphi] para mayor legibilidad
Responder Con Cita
  #5  
Antiguo 04-08-2006
kvtm kvtm is offline
Registrado
 
Registrado: jul 2006
Posts: 5
Poder: 0
kvtm Va por buen camino
Gracias!

Muchas gracias x el dato ... lo use y salio al toq!
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


La franja horaria es GMT +2. Ahora son las 14:04:52.


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