Después de demostrar la forma en cómo leer las aportaciones de archivo de Excel usando Borland C + + Builder, ahora vamos a ilustrar un método para escribir su salida al archivo de Excel utilizando el mismo lenguaje, C + +.

A veces es mejor explicar las cosas a través de ejemplo, así que aquí tiene buen ejemplo sencillo para demostrar el proceso.

Suponiendo que usted va a escribir una producción almacenados en la variable, x, digamos x = 3,14 en la fila 2, columna 3 del archivo de Excel. Entonces, todo lo que tiene que hacer es usar el siguiente código.

CASO 1: Usted tiene que crear un nuevo archivo de Excel a continuación, escriba su salida de allí

/ / declarar variables
Variante XL, v0, v1, v2, v3;
doble x = 3,14;

/ / abrir la aplicación Excel
XL = Variante:: CreateObject ( "excel.application");

/ / configurar la aplicación como invisible, puede invertir "falso" a "verdadero" para que sea visible
XL.OlePropertySet ( "Visible", false);

/ / Obtener hoja de cálculo
v0 = XL.OlePropertyGet ( "Workbooks");

/ / añadir un libro de trabajo
v0.OleProcedure ( "Add");

/ / select de trabajo número 1
v1 = v0.OlePropertyGet ( "Tema", 1);

/ / Obtener hoja de cálculo
v2 = v1.OlePropertyGet ( "hojas");

/ / Añadir una hoja de trabajo
v2.OleFunction ( "Add");

/ / select hoja número 1
v3 = v2.OlePropertyGet ( "Tema", 1);

/ / cambiar el nombre de hoja de trabajo a "ejemplo1"
v3.OlePropertySet ( "Nombre", "ejemplo1");

/ / Por último, escriba su salida en fila 2 columna 3
char temp [10];
sprintf (temp, "% lf", x);
v3.OlePropertyGet ( "Cells"). OlePropertyGet ( "Tema", 2,3). OlePropertySet ( "Valor", temp);

/ / esto le sigan pidiendo a donde quieras a tu mismo archivo de Excel o no
XL.OlePropertySet ( "DisplayAlerts", false);

/ / guardar el archivo de Excel en "d" y el nombre como "case1.xls"
XL.OlePropertyGet ( "Workbooks"). OlePropertyGet ( "Tema", 1). OleProcedure ( "SaveAs", "d: \ \ case1.xls");

/ / Cerrar el libro de trabajo
v1.OleProcedure ( "Cerrar");

/ / bastante la aplicación de Excel
XL.OleProcedure ( "Salir");

/ / Sin asignar variable
XL = Sin asignar;

CASO 2: Usted quiere escribir su producción existentes en un archivo de Excel llamada "case1.xls", ubicada en "D:"

doble x = 3,14;
/ / declarar variables
Variante XL, v0, v1, v2, v3;

/ / abrir la aplicación Excel
XL = Variante:: CreateObject ( "excel.application");

/ / configurar la aplicación como invisible, puede invertir "falso" a "verdadero" para que sea visible
XL.OlePropertySet ( "Visible", false);

/ / abrir la hoja de cálculo "nombre case1.xls"
XL.OlePropertyGet ( "Workbooks"). OleProcedure ( "Abrir", "d: \ \ case1.xls");

/ / abrir la hoja de trabajo "ejemplo1"
v0 = XL.OlePropertyGet ( "Hojas", "ejemplo1");

/ / obtener una celda
v1 = v0.OlePropertyGet ( "células");

/ / Por último, escriba su salida en fila 2 columna 3
char temp [10];
sprintf (temp, "% lf", x);
v1.OlePropertyGet ( "Tema", 2,3). OlePropertySet ( "Valor", temp);

/ / esto le sigan pidiendo a donde quieras a tu mismo archivo de Excel o no
XL.OlePropertySet ( "DisplayAlerts", false);

/ / guardar lo que ha hecho
XL.OleProcedure ( "Guardar");

/ / bastante la aplicación de Excel
XL.OleProcedure ( "Salir");

/ / Sin asignar variable
XL = Sin asignar;

Eso es todo. Aunque largo, el procedimiento sigue siendo estándar y simple.