cerrar objeto de excel

[OSKR]

Creo recordar haber respondido esto antes pero eso fue hace mucho antes, yo uso algo asi y nada de excepciones:

//Para abrir excel
Variant xlApp;
xlApp = CreateOleObject("Excel.Application");
//hacer visible EXCEL
xlApp.Exec(PropertySet("Visible") << true);
//Acceso a un objeto libro
Variant xlBooks = xlApp.Exec(PropertyGet("Workbooks"));
//crea un nuevo archivo
xlBooks.Exec(Procedure("Add"));
//elige el primer libro de la aplicación
Variant xlBook = xlBooks.Exec(PropertyGet("Item") << 1);
//crea un acceso a un objeto hoja
Variant xlSheets = xlBook.Exec(PropertyGet("Worksheets"));
//Elige una hoja
Variant xlSheet = xlSheets.Exec(PropertyGet("Item") << 1);
//En esta parte es en donde agregas los datos
Variant VRange;
VRange = xlSheet.Exec(PropertyGet("Range") << "A4");
VRange.Exec(PropertySet("Value") << "RUT");
VRange = xlSheet.Exec(PropertyGet("Range") << "B4");
VRange.Exec(PropertySet("Value") << "NOMBRE");
int fila=5;
VRange = xlSheet.Exec(PropertyGet("Range") << "A"+IntToStr(fila));
VRange.Exec(PropertySet("Value") << Edit1->Text);
VRange = xlSheet.Exec(PropertyGet("Range") << "B"+IntToStr(fila));
VRange.Exec(PropertySet("Value") << Edit2->Text);
fila++;
//Guarda el archivo
xlBook.Exec(Procedure("SaveAs") << "\\archivo.xls");
//-------- Cierra excel
//xlApp.Exec(PropertySet("Visible") << false);
xlApp.Exec(Procedure("Quit"));
xlApp.Clear();

[mak8888]

Hola. Gracias por contestar. Probaré a traducirlo de Borland C a Delphi. Solo una pregunta, ¿que significa el "<<"?
Saludos y gracias de antemano

[OSKR]

Oooops!!! peqeño detalle , es un operador sobrecargado q indica la inclusión de un valor a un objeto, pero concentrate en el " xlApp.Exec(Procedure("Quit"));" , o sea... trata de ejecutarlo dentro del Procedure, si necesitas como sea de un operador así a como de lugar ....entonces,.....este..............bueno.....habra q explorar las propiedades del variant en delphi...deberian ser las mismas......................sino...........pues invoca a un Delphiniano.......q mas te podria decir?

[mak8888]

Gracias. Mañana después de haber dormido y estando a buenas con el compilador volveré a probar jejeje.
Ya os contaré.
Saludos y gracias