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...
Si recorro el archivo, sin intentar actualizar las celdas.... termina bien el proceso. Pero si modifico aunque sea una celda. Se bloquea...
*************************
*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()Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com
[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com
[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]