Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Servers
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-11-2012
semita semita is offline
Registrado
NULL
 
Registrado: oct 2012
Posts: 6
Poder: 0
semita Va por buen camino
Ayuda Exportar Datos a Plantillas Excel Cerrar con Una Linea

Haber si alguien me ayuda. Primero Comparto la forma de como trabajo y haber si le sirve a alguien o me ayuda a mejorarlo.
Tengo Una Unidad con Funciones Globales los cuales uso desde todos los Formularios. Cuando quiero Exportar a Excel utilizo un Procedure Global que es el Siguiente.
Código Delphi [-]
unit funciones;

interface
uses
  Windows, OleServer, Excel2000, y un largo etc de las units que uso ;
var

Excel: TExcelApplication;
Libro : _Workbook;
Hoja : _Worksheet;
//Estas variables estan fuera del procedure porque son globales

procedure Exportar(Plantilla: String);
  begin
   Excel := TExcelApplication.Create(nil);
    Libro := Excel.Workbooks.Add(appcarpeta + 'Plantillas\'+Plantilla, 0);
    Hoja := Libro.ActiveSheet as _Worksheet;
  end;
Y obviamente desde el formulario que quiero trabajar hago la llamada asi.

Código Delphi [-]
Exportar('Nómina de Matrícula.xlt': String); //Nómina de Matrícula es una plantilla excel en la carpeta Plantillas.
Hoja.Cells.Item[9,11]:='Inserto Valores a esas celdas'; //por ejemplo de un dataset
Excel.Visible[1]:=true; // Dejo la Hoja visible.

Así me ahorro estar declarando y creando cada rato la Aplicación Excel. Ya tengo Todo funcionando.
La ayuda que quiero es que por ejemplo una plantilla de Nóminas debe ser cerrado con una linea recta y Oblicua después de llenar el ultimo dato de la Lista de Educandos.
Como hago eso? ya busque por todo lado y no encuentro. Quisiera por ejemplo insertar una linea recta desde. Celda C35 a K35 y una oblicua desde K35 a W40.

Espero puedan ayudarme los genios de este foro. Aprendí mucho aquí y ya dejé VB. Ahora Uso Delphi 2010 y todo buenísimo. Estoy desarrollando una Aplicación para Institutos Superiores en Delphi y Mysql.
Responder Con Cita
  #2  
Antiguo 19-11-2012
semita semita is offline
Registrado
NULL
 
Registrado: oct 2012
Posts: 6
Poder: 0
semita Va por buen camino
Recordando mi Código de VB

Hola a todos de nuevo.
En Visual basic agregaba la Línea asi:
pX = Punto de inicio
pY = punto Final del horizontal
pz = Punto Final del Oblicuo
El punto inicial del Oblicuo es el mismo del final del Horizontal.

pX era la suma en pixeles del alto de filas
Py era la suma en pixeles del Ancho de Columnas
pz era la suma en pixeles del Alto de filas mas abajo que el pX.

entonces la Linea la agregaba así. El Codigo ya esta para Delphi.

Código Delphi [-]
Hoja.Shapes.AddLine(pX,pX,pY,pY).Line;
Hoja.Shapes.AddLine(pY,pY,pZ,pZ).Line;

Ahora supuestamente el Alto y Ancho de filas los extraía con.
Alto= Hoja.Rows[1].Width;
Ancho = Hoja.Columns[1].Height; Sin embargo en delphi ya no me permite agregar estos parametros de ancho y alto. para hacer los calculos que quiero.
¿Si un Experto me ayudara...? por lo menos a completar misma idea. O si hay alguna función que permita agregar asi. Hoja.Shapes.AddLine('A1','A6').Line sería mucho mejor jejejjee.
Responder Con Cita
Respuesta



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
Formatear datos al exportar a excel lbidi OOP 1 12-03-2010 13:16:44
Utilizar plantillas Excel... JoysticK Conexión con bases de datos 3 21-01-2010 11:32:16
exportar datos hacia excel alfil123 Varios 1 21-11-2006 19:00:38
Exportar datos a una plantilla de excel Lizeth Impresión 3 08-09-2005 16:39:55
plantillas de excel sledgehammer Impresión 1 21-10-2003 13:23:32


La franja horaria es GMT +2. Ahora son las 23:36:37.


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