Error al abrir excel
Publicado por Titanic (11 intervenciones) el 18/12/2006 10:21:13
Hola,
Tengo un problema al intentar abrir un excel. El código es el siguiente :
//Conexión a Excel
obj_excel = Create OLEObject
lerror = obj_excel.ConnectToNewObject( "Excel.APPLICATION" )
If lerror < 0 then
MessageBox ("Error","No pudo conectarse)",stopsign!)
Destroy obj_excel
return false
end If
//Abrir hoja de datos
obj_excel.Application.Visible =true
obj_excel.workbooks.ADD
obj_excel.workbooks.open (ruta)
obj_excel.application.DisplayAlerts = true
El error que me da es :
"Error calling extenal object function open"
Veo que excel se abre correctamente, el add lo hace correctamente pero al llegar al open casca. También lo he probado quitando la línea de ADD pero nada.
¿Alguien tiene alguna idea?
Gracias.
Tengo un problema al intentar abrir un excel. El código es el siguiente :
//Conexión a Excel
obj_excel = Create OLEObject
lerror = obj_excel.ConnectToNewObject( "Excel.APPLICATION" )
If lerror < 0 then
MessageBox ("Error","No pudo conectarse)",stopsign!)
Destroy obj_excel
return false
end If
//Abrir hoja de datos
obj_excel.Application.Visible =true
obj_excel.workbooks.ADD
obj_excel.workbooks.open (ruta)
obj_excel.application.DisplayAlerts = true
El error que me da es :
"Error calling extenal object function open"
Veo que excel se abre correctamente, el add lo hace correctamente pero al llegar al open casca. También lo he probado quitando la línea de ADD pero nada.
¿Alguien tiene alguna idea?
Gracias.
Valora esta pregunta


0