 |
Club Builder
Foro de C++Builder en español
|
| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
jotny
Master
Registrado: 17 Feb 2004Mensajes: 226Ubicación: santiago
|
 Publicado: Lun 24 May, 2004 3:43 am Asunto: Formato para celdas de excel y tablas--- |
 |
|
hola, queria ver si alguien de los presentes sabe como dar formato a una determinada celda de excel....por ejemplo... en negrita, centrado tamaño etc.... ademas.. como se podria poner lo que tengo en una excel... sabiendo el rango... una tabla?... gracias a todos....
 |
|
| Volver arriba |
|
 |
_Leo
Site Admin
Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
|
| Volver arriba |
|
|
john
Invitado
|
| Publicado: Lun 24 May, 2004 6:07 am Asunto: ? |
|
|
Hola _Leo, Como etas?
Hace algunos dias lei un Post acerca de la automatizacion OLE en Word, reemplazasr texto en word con automartizacion mas exactamente, me pregunto como hacer lo mismo pero en Excel??...tienes alguna idea o sugerencia?
De antemano gracias por tu ayuda.
Saludos. |
|
| Volver arriba |
|
|
_Leo
Site Admin
Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
| Publicado: Jue 27 May, 2004 11:33 pm Asunto: |
|
|
Aquí va una versión provisional (aún habrá que mejorar algunos detalles):
| Código: | // Añadimos: #include <ComObj.hpp>
Variant excel, workbooks, workbook, worksheets, worksheet, cells;
// Ruta de nuestra aplicación
String sPath = ExtractFilePath(Application->ExeName);
// Nombre de archivo que usaremos como plantilla
String sFicheroPlantilla = sPath + "plantilla.xls";
// Nombre del archivo que generaremos
String sFicheroGenerado = sPath + "salida.xls";
// Creamos una instancia de Excel
excel = CreateOleObject("Excel.Application");
// La hacemos visible (opcionalmente)
excel.OlePropertySet("Visible", true);
// Abrimos el documento que usaremos como plantilla
workbooks = excel.OlePropertyGet("Workbooks");
workbook = workbooks.OleFunction("Open",
sFicheroPlantilla.c_str(), // Documento
0, // UpdateLinks
true // Modo se solo lectura
);
// Recorremos todas las hojas del libro
worksheets = workbook.OlePropertyGet("Worksheets");
int i = worksheets.OlePropertyGet("Count");
while (i > 0)
{
worksheet = worksheets.OlePropertyGet("Item", i--);
cells = worksheet.OlePropertyGet("Cells");
// Sustituimos todas las ocurrencias de "{{nombre}}" por "Leo"
cells.OleFunction("Replace", "{{nombre}}", "Leo");
// (Repetimos esta línea con tantas palabras como queramos sustituir)
}
// Guardamos el documento generado
excel.OlePropertySet("DisplayAlerts", false);
workbook.OleProcedure("SaveAs", sFicheroGenerado.c_str());
excel.OlePropertySet("DisplayAlerts", true);
// Cerramos Excel
excel.OlePropertySet("Visible", false);
excel.OleProcedure("Quit");
ShowMessage("Documento generado.");
excel = workbooks, workbook, worksheets, worksheet, cells = Unassigned; |
|
|
| Volver arriba |
|
|
|
|
No puedes publicar temas nuevos en este foro
No puedes responder a temas en este foro
No puedes editar tus mensajes en este foro
No puedes borrar tus mensajes en este foro
No puedes votar en las encuestas de este foro
|
© 2002–2026 Club Builder · Funciona con phpBB.
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
