Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Servers
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 14-07-2014
Avatar de jafera
jafera jafera is offline
Miembro
 
Registrado: may 2007
Ubicación: Llagostera (Girona)
Posts: 582
Poder: 17
jafera Va por buen camino
Creacion de hoja excel desde consulta IBSQL

Hola a todos.

Tengo el siguiente código que en Delphi 6 funciona perfectamente:

Código Delphi [-]
procedure TF_GeneracioFullPagament.BtnExcelClick(Sender: TObject);
var
        RangeE: Excel2000.Range;
        I, Row: Integer;
        Bookmark: TBookmarkStr;
begin
        IBExcel1.Close;
        IBExcel1.SQL[6] := 'AND C.ANIO='+ComboBox1.Text;
        IBExcel1.Open;
        ExcelApplication1.Visible [0] := True;
        ExcelApplication1.Workbooks.Add (NULL, 0);
        RangeE := ExcelApplication1.ActiveCell;
        for I := 0 to IBExcel1.Fields.Count - 1 do
        begin
                RangeE.Value := IBExcel1.Fields [i].DisplayLabel;
                RangeE := RangeE.Next;
        end;
                IBExcel1.DisableControls;
        try
                Bookmark := IBExcel1.Bookmark;
                try
                        IBExcel1.First;
                        Row := 2;
                        while not IBExcel1.EOF do
                        begin
                                RangeE := ExcelApplication1.Range ['A' + IntToStr (Row),'A' + IntToStr (Row)];
                                for I := 0 to IBExcel1.Fields.Count - 1 do
                                begin
                                        RangeE.Value := IBExcel1.Fields [i].AsString;
                                        RangeE := RangeE.Next;
                                end;
                                begin
                                        IBExcel1.Next;
                                        Inc (Row);
                                        ExcelApplication1.Range['G1','G'+IntToStr(Row)].NumberFormat := '@';
                                        ExcelApplication1.Range['J1','J'+IntToStr(Row)].NumberFormat := '0.00';
                                        ExcelApplication1.Range['K1','K'+IntToStr(Row)].NumberFormat := '0.00';
                                        ExcelApplication1.Range['L1','L'+IntToStr(Row)].NumberFormat := '0.00';
                                        ExcelApplication1.Range['M1','M'+IntToStr(Row)].NumberFormat := '0.00';
                                        ExcelApplication1.Range['N1','N'+IntToStr(Row)].NumberFormat := '0.00';
                                end;
                        end;
                finally
                        IBExcel1.Bookmark := Bookmark;
                end;
        finally
                IBExcel1.EnableControls;
        end;
        RangeE := ExcelApplication1.Range ['A1', 'N' + IntToStr (Row - 1)];
        RangeE.AutoFormat (3, NULL, NULL, NULL, NULL, NULL, NULL);
end;
Cuando intento recompilar la aplicación en Delphi XE5, me da un error en la declaración de la variable RangeE:Excel2000.Range.

He visto que ahora la propiedad Range se llama ExcelRange, es correcto?

Si le declaro la variable como RangeE:ExcelXP, ExcelRange empieza a desencadenar un seguido de errores en las declaraciones siguientes como por ejemplo RangeE.Value := IBExcel1.Fields [i].AsString; donde me dice que := found expected [

No se, estoy un poco perdido.
Hay otra forma más simple de pasar una consulta IB a Excel?

Gracias por adelantado

Josep
Responder Con Cita
  #2  
Antiguo 14-07-2014
Avatar de Manuel
Manuel Manuel is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz/Chile
Posts: 324
Poder: 21
Manuel Va por buen camino
Componente exportación a excel

Josep, te dejo un componente muy bueno para exportar dataset a excel

http://www.scip.be/index.php?Page=Co...Export&Lang=NL

Si requieres ayuda como utilizarlo te puedo ayudar.
__________________
Manuel Muñoz L. Trabajando con delphi 7.0 , migrando sistema a Delphi XE8, matando BDE y pasando FIREDAC.
Responder Con Cita
  #3  
Antiguo 14-07-2014
Avatar de jafera
jafera jafera is offline
Miembro
 
Registrado: may 2007
Ubicación: Llagostera (Girona)
Posts: 582
Poder: 17
jafera Va por buen camino
Gracias Manuel.

Ya lo he descargado e instalado, ahora debo ver como lo configuro para que me haga la exportación que puse en el código anterior.
Tengo que ver que lineas debo sustituir, etc.

A ver si esta noche lo puedo probar y ya cuento novedades.

Saludos

Josep
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
como poner contraseña desde delphi a una hoja de excel ddd_ddd Varios 10 11-11-2015 21:12:13
Introducir datos desde delphi a una Hoja de calculo en excel feliz-58 Varios 3 23-04-2013 00:50:48
Negrilla en celda excel durante la creación de la hoja. Drahcir Varios 3 08-10-2007 10:50:01
consulta en IBSQL perillan Conexión con bases de datos 13 17-08-2005 12:09:15
Copiar desde uan hoja de Excel y pegar en un prg hecho Delphi. Oxa78 OOP 4 27-09-2004 17:15:09


La franja horaria es GMT +2. Ahora son las 00:55:31.


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