Ayuda con Objetos OLE
Publicado por David (45 intervenciones) el 21/03/2003 19:55:54
Amigos,
para abrir un objeto excel busque en la internet y encontre este código:
of_connectar(ai_version integer) return integer
/*Establece una conexión OLE a Excel y crea un nuevo libro retorna
1 : Satisfactorio, la exportación es factible.
-1 : Error, la exportación NO es factible.*/
long ll_retorno
MyOLEObject = Create OLEObject
if isnull(ai_version) then return -1
ll_retorno = MyOLEObject.ConnectToObject("","excel.application." +
string(ai_version))
if ll_retorno < 0 then
ll_retorno =MyOLEObject.ConnectToNewObject("excel.application."+string(ai_version))
if ll_retorno < 0 then
messagebox('Error Conetandose','Microsoft Excel no fue encontrado')
RETURN -1
end if
end if
MyOLEobject.workbooks.Add
return 1
EL PROBLEMA: no encontre la parte donde me permite saber el parametro enviado (ai_version) entiendo que debe ser la versión de excel instalado pero no se como obtener o de donde leer ese valor.
Por favor una ayuda con este problema
David
para abrir un objeto excel busque en la internet y encontre este código:
of_connectar(ai_version integer) return integer
/*Establece una conexión OLE a Excel y crea un nuevo libro retorna
1 : Satisfactorio, la exportación es factible.
-1 : Error, la exportación NO es factible.*/
long ll_retorno
MyOLEObject = Create OLEObject
if isnull(ai_version) then return -1
ll_retorno = MyOLEObject.ConnectToObject("","excel.application." +
string(ai_version))
if ll_retorno < 0 then
ll_retorno =MyOLEObject.ConnectToNewObject("excel.application."+string(ai_version))
if ll_retorno < 0 then
messagebox('Error Conetandose','Microsoft Excel no fue encontrado')
RETURN -1
end if
end if
MyOLEobject.workbooks.Add
return 1
EL PROBLEMA: no encontre la parte donde me permite saber el parametro enviado (ai_version) entiendo que debe ser la versión de excel instalado pero no se como obtener o de donde leer ese valor.
Por favor una ayuda con este problema
David
Valora esta pregunta
0