Abrir archivo de excel y actualizar informacion

[leandro]

Buenas tardes para todos como dice el encabezado necesito abrir un archivo en excel y actualizar algunas de sus columnas. El problema es que al finalizar el proceso el programa se bloquea... q estoy haciendo mal?

Si recorro el archivo, sin intentar actualizar las celdas.... termina bien el proceso. Pero si modifico aunque sea una celda. Se bloquea...

Code: Select all  Expand view

*************************
*PROCESO EN EXCEL
*************************
Function Procesos_especiles2(oCuadrS,oMeter,oMeter2,vGruta)
Local vHoActiva,NroHojas:=0,posicion:=0

if MsgNoYes("Desea Buscar Centros de Costo para el Archivo"+CRLF+;
        alltrim(vGruta),"Confirme" )

  oExcel:= TOleAuto():New("Excel.Application")
  oBook := oExcel:Workbooks:Open(vGruta)
  NroHojas:=oExcel:ActiveWorkBook:Sheets:Count()
  oMeter:nTotal = NroHojas
  oMeter:Set( 0 )  

  for n = 1 to NroHojas
     vHoActiva:=oExcel:ActiveWorkBook:Sheets:Item(n):Name()
     msginfo(vHoActiva)

     oExcel:Sheets(vHoActiva):Select()
     oHoja := oExcel:ActiveSheet()
     nTotRowCount:= oHoja:UsedRange:Rows:Count()
     oMeter2:nTotal = nTotRowCount
     oMeter2:Set( 0 )
     posicion:=0

     FOR Q=2 TO nTotRowCount
   
       oHoja:Cells( Q, 9 ):Value:="Valor a registrar"
       
       posicion++
       oMeter2:Set( posicion )
       sysrefresh()

     NEXT
     
     oMeter:Set( n )  

  next n

oExcel:WorkBooks:Close()
oExcel:Application:Quit()
oExcel:Quit()
oExcel := NIL

Msginfo("fin del proceso")

endif

oCuadrS:end()