 |
Club Builder
Foro de C++Builder en español
|
| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Fabian
Invitado
|
 Publicado: Vie 16 Jul, 2004 6:35 pm Asunto: Copiar Sheet de excel. |
 |
|
Buenas...
Sigo peleandome con "maravilloso" excel....
Una cosa muy sencilla: Tengo un libro de excel con 1 hoja ¿Como añado una nueva hoja al libro EXACTAMENTE IGUAL a la hoja 1, es decir,con el mismo contenido? AL final tengo que tener 2 hojas iguales.
(Solo se les ocurre a ellos pasarme una "Plantilla" con 20 HOJAS IGUALEs!!, claro como no va a ir lento...mejor con una hoja y vamos añadiendo hojas segun se necesiten, no?, PUES NO LO ENTIENDEN!!!)
Saludos y gracias de antemano. |
|
| Volver arriba |
|
 |
_Leo
Site Admin
Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
| Publicado: Vie 16 Jul, 2004 7:30 pm Asunto: |
|
|
| Código: | // Usamos una instancia de excel abierta
Variant excel = GetActiveOleObject("Excel.Application");
// Número de hojas
Variant hojas = excel.OlePropertyGet("Worksheets");
int numHojas = hojas.OlePropertyGet("Count");
// Obtenemos la primera hoja
Variant hoja1 = hojas.OlePropertyGet("Item", 1);
// Obtenemos la ultima hoja
Variant hojaUltima = hojas.OlePropertyGet("Item", numHojas);
// Copiamos la nueva hoja DESPUES de la hoja especificada
hoja1.OleProcedure("Copy", Variant::NoParam(), hojaUltima); // <---
// O bien podemos copiarla ANTES de la hoja especificada
//hoja1.OleProcedure("Copy", hoja1);
// La nueva hoja es ahora la hoja activa
Variant nuevaHoja = excel.OlePropertyGet("ActiveSheet");
// Como prueba cambiamos su nombre...
nuevaHoja.OlePropertySet("Name", "prueba");
//... |
|
|
| 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
