Ver Mensaje Individual
  #3  
Antiguo 16-04-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Como te indica el amigo cadetill, mucho depende del formato en que quieras exportar la tabla. Puedes ir desde lo más sencillo, leyendo en un ciclo todos los registros y escribiendo los valores de sus campos en una línea de un TStringList, separándolos por comas:

Código:
while not Table.Eof do
begin
  Linea := '';
  for I := 0 to Table.FieldCount - 1 do
    if Linea = ''
      then Linea := Table[i]
      else Linea := Linea + ',' + Table[i];

  StringList.Add(Linea);
  Table.Next;
end;

StringList.SaveToFile('archivo.csv');
Esto te generará un archivo csv (Comma Separated Values) que puedes leer directamente en Excel.

Puedes, como dice cadetill uasr las componentes de la paleta Servers para escribir los datos en una hoja de excel (directamente un .xls y no un .csv) aunque si las tablas son muy grandes te recomendaría más usar ADO para la transferencia (busca en los foros acerca de Excel y con mi nombre y encontrarás un mensaje donde explico cómo conectarse a una hoja de Excel via ADO).

También puedes usar componentes ya hechas. No recuerdo la que menciona cadetill pero en la página del amigo delphi.com.ar (dirección obvia) él tiene unas componentes de su cosecha, me parece que ExportSuit, que exportan a varios formatos, entre ellos Excel pero creo que también texto plano. Lo magnífico de dichas componentes es que no requieren la presencia de Excel en el sistema y la exportación es sumamente rápida.

// Saludos
Responder Con Cita