exportar de un ADOQuery a Excel

[lmpadron]

Hola comunidad.

Necesito exportar de un ADOQuery a Excell realice una busqueda en google y encontre un tema en el archivo del foro donde previamente se trato

copie el codigo cambie lo que indica el ejemplo para que se adecue a mi codigo y me devuelve este error, la verdad no tengo idea de la razon. Si alguien lo ha echo antes y puede indicarme seria genial

//declaracion de variables
Variant XL,v0,v1,v2,v3;

//abres excel
XL=Variant::CreateObject("excel.application");
//la abres con la ventana visivle o si tiene false la ventana es invisible
XL.OlePropertySet("Visible", true);
//abre el archivo C:\\mi_archivo.xls, se puede "SaveAs" en lugar de "Open" para crear en lugar de abrir
XL.OlePropertyGet("Workbooks").OleProcedure("Open", "C:\\mi_archivo.xls");
//abres la hoja1 en este caso llamada reporte
v0=XL.OlePropertyGet("Sheets", "Reporte");
v1=v0.OlePropertyGet("Cells");

//aqui pones el nombre de las columnas que vas usar de la BD
String columnas[6]={"ueb", "expediente", "fecha_pago", "orden", "convenio", "salario_total"};

//qq es un query ya con una consulta hecha
ADOQuery1->First();
for (int i = 1; i <= ADOQuery1->RecordCount; i++) {
for (int ii = 0; ii < 6; ii++) {
//se va escribiendo dato por dato
v1.OlePropertyGet("Cells", i+4, ii+1).OlePropertySet("Value",
ADOQuery1->FieldByName(columnas[ii])->AsString);
}
ADOQuery1->Next();
}

XL.OlePropertySet("DisplayAlerts", false);
XL.OleProcedure("Save");
XL=Unassigned;

---------------------------
Debugger Exception Notification
---------------------------
Project VB.exe raised exception class EOleSysError with message 'Tipo de variable incorrecto'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

[Neftali [Germán.Estévez]]

Hay otra opción por si la quieres probar, que a mi me resulta más sencilla. Se trata de conectar a Excel usando un ADOTable. De esa forma lees de un sitio y vas insertando en el otro (lees en el ADOQuery e insertas en el ADOTable).

Aquí puedes ver cómo "montar" la conexión hacia el EXCEL.

[lmpadron]

he probado y me conecto bien, pero todavia no logro completar el SQL del ADOQuery y con el ADOTable no me deja agregar en TableName si me puedes poner un ejemplo seria de gran ayuda !!!

[Neftali [Germán.Estévez]]

El Tablename si no recuerdo mal, era el nombre de la hoja.
Si haces una búsqueda en los foros por "ADO* Excel" sin comillas salen bastantes temas al respecto.


Incluso en el FTP tienes varios ejemplos.

[lmpadron]

no me deja me devuelve un error esta ves en el FROM parece de la sentencia SQL. Con el ADOQuery consulto bien pero no me deja guardar usando el DBNavigator me dice:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EOleException with message '[Microsoft][Controlador ODBC Excel] La operación debe usar una consulta actualizable'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

[Neftali [Germán.Estévez]]

¿Puedes poner la consulta que utilizas para cargar datos y para guardarlos?
Piensa que si realizas una consulta que involucra varias tablas, luego no puedes editar esos datos directamente (consulta no actualizable) porque no sabría qué datos meter en cada tabla.