[Mystery]

Empezado por carlos gonzalez

Hola amigos, Alguien sabe si existe algun componete para bajar Información a Archivos De Excel pero sin que la PC tenga instalado el Excel O El Office, el Sistema lo tengo desarrollado en Delphi 7, Si alguien sabe si esto es posible se los voy agradecer bastatante que lo compartan con migo.

Saludos...

Su amigo Charlesss

bueno no entiendo el termino bajar informacion.. te refieres a descargar informacion de internet o a salvar cierta informacion en un fichero excel...??
si es salvar por ahi andaban unos componentes para salvar a excel... creo que los hizo clubdelphi.com.ar... no estoy seguro ademas por ejemplo yo uso este... codigo que salvas lo que esta en un DBGrid...

Código Delphi [-]
procedure exportarGridExcel(mGrid: tdbgrid);
var
  rangoExcel : Excel2000.range;
  i, fila : integer;
  mMarcador : Tbookmarkstr;
  mTabla : tdataset;
  aplicacionExcel : TExcelApplication;
begin
  aplicacionExcel := TExcelApplication.Create(nil);
  mTabla := mGrid.datasource.dataset;
  aplicacionExcel.Visible[0] := true;
  aplicacionExcel.workbooks.add(NULL, 0);
  rangoExcel := aplicacionExcel.ActiveCell;
  for i:=0 to  GDATA.Columns.Count-1 do
  begin
    if GDATA.Columns[i].Visible then
     begin
       rangoExcel.Value := mTabla.Fields[i].DisplayLabel;
       rangoExcel := rangoExcel.Next;
     end;
  end;
  rangoExcel.AutoFormat(10, NULL, NULL, NULL, NULL, NULL, NULL);
  mTabla.DisableControls;
  try
    mMarcador := mTabla.Bookmark;
    try
      mTabla.First;
      fila := 2;
      while not mTabla.Eof do
      begin
        rangoExcel := aplicacionExcel.Range['A' + inttostr(fila), 'A' + inttostr(fila)];
        for i:=0 to  GDATA.Columns.Count-1 do
        begin
          try
            if GDATA.Columns[i].Visible then
            begin
              rangoExcel.Value :=GDATA.Fields[i].asstring;
              rangoExcel := rangoExcel.Next;
            end;
          except
          end;
        end;
        mTabla.Next;
        Inc(fila);
      end;
      finally
        mTabla.Bookmark := mMarcador;
      end;
    finally
      mTabla.EnableControls;
    end;

 end;

eso es todo espero que te sirva... OK sin mas

yo