error de sistema en excel

[lanovata]

hola, estoy realizando unos reportes en excel usando macros al ejecutar una de ellas me aparece el siguiente error

System Error &H80040E21 (-2147217887)

les agradeceria mucho que me ayudaran

Gracias

[yenay]

es un mensaje muy raro, al menos así leido, si te explicas mejor...

[lanovata]

es que ese es el mensaje que literalmente sale en una ayuda que aparece al lado te da la siguiente descripcion:

The specified system error occurred


Visual Basic encountered an error that was generated by the system or an external component.

revisando me di cuenta que ocurre cuando tengo activa esta libreria Microsoft ActiveX Data Objects 2.8 Library pero ahora no se que hacer porq la necesito activa para poder conectar las macros a un archivo excel

[abrahamvj]

Y en que momento sale ese mensaje? Si es en una macro, en que parte del codigo?

Abraham

[lanovata]

El error aparece justo cuando abre el recorset, en la instruccion

Set rs_Record = New ADODB.Recordset
Set rs_Record.ActiveConnection = SQL_conexion
rs_Record.CursorType = adOpenKeyset

s_SQL = "select sum([Amount]) from [ventas$] where [Segment] = 'SE' and [Quarter] = 'Q1'"
rs_Record.Open s_SQL <------ AQUI
Range("D14").FormulaR1C1 = rs_Record(0)
rs_Record.Close

El resto de la macro es muy similar.

[abrahamvj]

entre otras cosas que despues podriamos ver, me intriga algo, que es o que esta definido con:

SQL_conexion

Abraham

[lanovata]

SQL_conexion es como llame al objeto de tipo Connection y esta declarada de la siguiente manera

Global SQL_conexion As Connection

[abrahamvj]

Ya, claro, lo pense, pero, en que momento le das un valor? En ninguna parte veo que a la variable de la conexion, pues, justamente le des esa conexion.

Abraham

[lanovata]

Aqui es donde creo la conexion esto esta justo al principio de todo

Set SQL_conexion = New Connection

With SQL_conexion
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & ThisWorkbook.Path & "\archivo\BD_03102008.xls" & "; ReadOnly=False;"
.Open

End With

[abrahamvj]

.Provider = "MSDASQL" ¿?¿?

MSDASQL? Y eso.

Hummm.. dale un vistazo a esta pagina:

http://www.mvp-access.es/softjaen/ar..._dao_excel.htm

Abrahan

[lanovata]

Gracias por el link me sirvio muchisimo!!! en efecto era el provider que estaba usando, el error ya no aparece mas!!

[abrahamvj]

Listo, de nada!!!!

Abraham