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
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


0