FoxPro/Visual FoxPro - CODIGO DE ERROR OLE 0x800a03ec: Codigo de estado d

   
Vista:

CODIGO DE ERROR OLE 0x800a03ec: Codigo de estado d

Publicado por carlos de austria (1 intervención) el 09/03/2009 11:07:03
Hola!:

Estoy pasando una formula desde Foxpro a una tabla de Excel y cuando lo paso me sale el error [CODIGO DE ERROR OLE 0x800a03ec: Codigo de estado de COM desconocido].

Si le paso un valor simple o una formula menos compleja (como una suma) no tengo ningun problema, pero si le paso una formula un poquito mas compleja (en este caso un simple SI) me muestra el error.

Si escribo directamente (copiar y pegar) la formula en la celda de Excel no me da error y hace lo que quiero.

Si me pudieran ayudar estaria eternamente agradecido. Gracias.

les paso el codigo:

Local oNueva, celda, funcionAutover

oNueva = CreateObject("Excel.Application")

select 1
use "c: arifasarticu01.dat" alias ori
go top

select 2
use "c: arifas aesco01.dat" alias ori2
index on alltrim(art)+cod to cosa
go top

oNueva.visible= .T.
oNueva.Workbooks.Add

oNueva.Cells(1,1).Value ="Referencia"
oNueva.Cells(1,2).Value ="Eurocode"
oNueva.Cells(1,3).Value ="Codigo sap"
oNueva.Cells(1,4).Value ="Autover"
oNueva.Cells(1,5).Value ="Andaluza"
oNueva.Cells(1,6).Value ="Guardian"
oNueva.Cells(1,7).Value ="Tomelloso"

oNueva.Cells(1,1).Font.Bold = .T.

celda = 2
select 1
do while !eof()
if (alltrim(ori->fam)=="1")
oNueva.Cells(celda, 1).Value=ori->cod
oNueva.Cells(celda, 2).Value=ori->euc
oNueva.Cells(celda, 3).Value=ori->rep
funcionAutover = "=si(('C: arifas[AUTOVER.XLS]E09'!B2)=c2;1;2" && funcion
? funcionAutover
oNueva.Cells(celda, 4).Value=funcionAutover
celda=celda+1
endif
select 1
skip
enddo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder