Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-08-2007
pollo_c pollo_c is offline
Miembro
 
Registrado: oct 2006
Posts: 55
Poder: 18
pollo_c Va por buen camino
Como abrir y modificar un archivo de Excel en builder

Hola amigos del club, tengo un problema quiero que me ayuden a desde buider abrir un archivo de Excel (que ya fue guardado anteriormente) para modificarlo, ya que quiero llenar un formato que ya esta hecho y la verdad prefiero insertarle los datos al formato desde builder, que darle formato desde builder a un archivo de Excel.
Ya he investigado en el foro pero lo único que encontré es el código para abrir un archivo nuevo de Excel y insertarle datos (aun que este codigo me ayuda un poco pero me falta saber abrir un archivo existente).


Variant Excel,Libro,Hoja,Celda;
Excel = CreateOleObject("Excel.Application");
Excel.OlePropertySet("Visible", true);
Libro=Excel.OlePropertyGet("Workbooks");
Libro.OleProcedure("Add");
Hoja=Libro.OlePropertyGet("Item",1);
Libro=Hoja.OlePropertyGet("Worksheets");
Libro.OlePropertyGet("Item",1).OlePropertySet("Name","The yellow book-keeping ");
Libro.OlePropertyGet("Item",2).OlePropertySet("Name","The red book-keeping ");
for (int j=1;j<3;j++)
{
Hoja=Libro.OlePropertyGet("Item",j);
for (int i=1;i<11;i++)
{
Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",i,1).OlePropertySet("Value",i);
Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",i,2).OlePropertySet("Value",i*5);
Celda=Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",i,2);
Celda.OlePropertyGet("Font").OlePropertySet("Color",clBlue);
Celda.OlePropertyGet("Font").OlePropertySet("Bold",true);
Celda.OlePropertyGet("Interior").OlePropertySet("ColorIndex",9-3*j);
}
Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",11,1).OlePropertySet("Value","=SUM(A1:A10)");
Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",11,2).OlePropertySet("Value","=SUM(B1:B10)");
}
Excel.OlePropertySet("DisplayAlerts",false); //suppress the warning dialog on closing the server
Excel.OlePropertyGet("Workbooks").OlePropertyGet("Item",1).OleProcedure("SaveAs","test.xls");
//Excel.OleProcedure("Quit");
Excel=Unassigned;


Espero de su ayuda amigos del club gracias.
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
Como abrir un fichero Excel Arcioneo JAVA 1 22-04-2007 00:41:40
Excel : sobreescribir o no un archivo desde Builder? aleph C++ Builder 2 17-04-2006 05:03:17
Cómo cargar un archivo de ayuda *.hlp en c++ builder 6.0? jcfc C++ Builder 0 01-06-2005 13:18:53
Como ejecutar un archivo .chm desde C++ Builder 5? mapch C++ Builder 1 13-08-2004 07:01:47
Obtener nombres de las hojas al abrir un archivo (fichero) de Excel atirado API de Windows 1 17-05-2004 21:50:31


La franja horaria es GMT +2. Ahora son las 05:54:44.


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