Ver Mensaje Individual
  #1  
Antiguo 19-11-2012
semita semita is offline
Registrado
NULL
 
Registrado: oct 2012
Posts: 6
Reputación: 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