Problema con Hoja De Excel
Posted: Wed Aug 08, 2007 9:40 pm
tengo el Siguiente Programa:
#Include 'FiveWin.ch'
Function Main()
Local oExcel,oHoja,nFila,nColu,I,J,_Val
oExcel:=TOleAuto():New('Excel.Applicati
oExcel:WorkBooks:Open("C:\Atento.xls")
oHoja:=oExcel:Get( "ActiveSheet" ) // Aqui falla
nFila:=oHoja:UsedRange:Rows:Count()
nColu:=oHoja:UsedRange:Columns:Count()
Select A
Use Cheq_ate Shared
Set Index To ('Cheq_ate.Id1'),('Cheq_ate.Id2')
For I=2 To nFila
For J=2 To nColu
Select A
Append Blank
_Val_:=oHoja:Cells(I,J):Value
FieldPut(J,_Val_)
Next
Commit
Next I
Select A
Use
oExcel:Quit()
oHoja:End()
oExcel:End()
Return(Nil)
Y me sale el siguiente error:
Error description: Error Excel.Application/16389
E_FAIL:ACTIVESHEET
-------------------------------------
Called from: => TOLEAUTO:ACTIVESHEET(0)
Called from: => HB_EXECFROMARRAY(0)
Called from: source\rtl\tget.prg => TOLEAUTO:GET(349)
Called from: exce_pr.prg => MAIN(9)
¿Que puede ser? uso FiveWin 7.05 con Harbour y tengo instalado el excel.
Se agradece la ayuda
Jaime
#Include 'FiveWin.ch'
Function Main()
Local oExcel,oHoja,nFila,nColu,I,J,_Val
oExcel:=TOleAuto():New('Excel.Applicati
oExcel:WorkBooks:Open("C:\Atento.xls")
oHoja:=oExcel:Get( "ActiveSheet" ) // Aqui falla
nFila:=oHoja:UsedRange:Rows:Count()
nColu:=oHoja:UsedRange:Columns:Count()
Select A
Use Cheq_ate Shared
Set Index To ('Cheq_ate.Id1'),('Cheq_ate.Id2')
For I=2 To nFila
For J=2 To nColu
Select A
Append Blank
_Val_:=oHoja:Cells(I,J):Value
FieldPut(J,_Val_)
Next
Commit
Next I
Select A
Use
oExcel:Quit()
oHoja:End()
oExcel:End()
Return(Nil)
Y me sale el siguiente error:
Error description: Error Excel.Application/16389
E_FAIL:ACTIVESHEET
-------------------------------------
Called from: => TOLEAUTO:ACTIVESHEET(0)
Called from: => HB_EXECFROMARRAY(0)
Called from: source\rtl\tget.prg => TOLEAUTO:GET(349)
Called from: exce_pr.prg => MAIN(9)
¿Que puede ser? uso FiveWin 7.05 con Harbour y tengo instalado el excel.
Se agradece la ayuda
Jaime