Exportar Stringgrid a Excel

[santipeich]

Hola amiguetes,

Estoy haciendo un pequeño programa para mi empresa (ya lo tengo casi finiquitado) y me acaba de pedir mi jefe exportar todos los datos de las consultas generadas, que además las voy metiendo en un datagrid, a EXCEL

He buscado y rebuscado en la documentacion de builder, he preguntado por otros foros y he googleado como un cabroncete, pero no consigo dar con la solución para C++ Builder. He encontrado algo para Delphi pero como mis conocimientos de programación son bastante bajos, pues no he sido capaz de hacer una conversión a c++ builder.

Si alguno de ustedes se encontró con la misma situación en la que me encuentro y me puede echar una manita se lo agradecería eternamente.

Gracias por vuestro tiempo

[[enecumene]]

Hola, tal vez uno de los componentes de uno de los miembros del Club Delphi.com.ar, pueda realizar eso que propones, lo puedes encontrar aquí.

Saludos.

[[escafandra]]

Una forma sencilla y elegante puede ser transportar "tablas" mediante el clipboard. Este sistema te permite copiar y pegar a otros programas y formatos.

Una tabla para Excel o Word tiene un formato en el clipboard asi:

Columna1 + "\t" + Columna2 + "\t".....Columna_n + "\t\n"+
.
.
Columna1 + "\t" + Columna2 + "\t".....Columna_n + "\t\n"

Así que el código para copiar al clipboard cualquier tabla, sería mas o menos así:

   Clipboard()->Clear();
   AnsiString Text;
   Text = Columna1 + "\t" + Columna2 + "\t".....Columna_n + "\t\n"+
   .
   .
   Columna1 + "\t" + Columna2 + "\t".....Columna_n + "\t\n";
   Clipboard()->AsText = Text;

Es otra idea. Espero que te sirva de ayuda.
Saludos.

[[escafandra]]

Bueno, pues navegando he encontrado esto, puede que también te sirva de ayuda....


Saludos.

[M@R!N@]

Hola que tal! yo igual pasé por una situación parecida y lo que hice fue lo siguiente: utilicé un objeto Ole...

El código es el siguiente:

//Necesitas primero crear un objeto que te permita acceder a excel, para eso declararemos las siguientes variables

Variant Excel,Libros,Libro,Hojas,Hoja; //Variant es un tipo de variable

//Con esto abres excel y lo haces visible
Excel=CreateOleObject("Excel.Application");
Excel.OlePropertySet("Visible",true);

//Ahora necesitas crear un acceso para acceder al objeto libro
Libros=Excel.OlePropertyGet("Workbooks");

//Para acceder a un libro en específico, por ejemplo el Libro1...(libro se refiere
//al archivo)
Libro=Libros.OlePropertyGet("Item",1);

//Ya que podemos acceder al libro, ahora necesitamos crear un acceso a las
//hojas
Hojas=Libro.OlePropertyGet("Worksheets");

//Ahora selecciono la hoja con la que quiero trabajar

Hoja=Hojas.OlePropertyGet("Item",1); //Aqui estoy agarrando la hoja 1

//tal vez esto te sirva también, por default se genera un archivo de tres
//hojas, si necesitas agregar más usa esta línea:

Hojas.OleProcedure("Add");

//Par etiquetar el nombre de las hojas

Hojas.OlePropertyGet("Item",1).OlePropertySet("Name","MiHoja");

//Ahora que ya tengo acceso a la hoja que quiero, puedo fácilmente
//manipular mis celdas...
//En este ejemplo, hoja se refiere a la hoja uno como se lo asignamos
//anteriormente, accedemos a su propiedad Cells, y donde dice ítem
//tiene otros dos parámetros(2 y 1) pues estos son las coordenadas de las
//celdas en excel (el 2 hace referencia a filas, el 1 es columnas, osea las letras), en value pues va lo que le quieras pasar a la celda, eso si en cadena

Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",2,1).OlePropertySet("Value",StringGrid1->Cells[0][0].c_str());

//este último código lo puedes meter en un for o algo así para pasarlo, en las
//coordenadas también pueden ir variables

Espero que te sirva de ayuda! Suerte!

[M@R!N@]

Otra cosa que se me olvidó que es importante, este código funciona si le agregas a tu formulario el componente OleContainer de la paleta System y... por si las dudas agrega esta librería <ComObj.hpp>