
MSExcel7.OpenFile (No habre archivo excel antes si)
Publicado por freeser (16 intervenciones) el 19/03/2017 19:53:57
Buenas.
Antes esta línea me abría los archivos excel hoy ya no abre nada y no da error simplemente regresa al browse, alguien que le haya pasado esto y me ofrezca una solución.
de antemano muchas gracias.
C9.1
MSExcel7.OpenFile(CLIP(LOC:filename))
-----------------------------------------------------------------
Code Utilizado
MSExcel7.OpenFile(CLIP(LOC:filename))
NEXT(SITZON)!Limpiando Queue
LOOP X# = 1 to Clip(Loc:Cantidadregistros)
SIT1:ID_SITZONE = MSExcel7.Read('A'&X#)
SIT1:SITE_ID = MSExcel7.Read('B'&X#)
SIT1:MNEMONICO = MSExcel7.Read('C'&X#)
SIT1:NOMBRE = MSExcel7.Read('D'&X#)
SIT1:PROVINCIA = MSExcel7.Read('E'&X#)
SIT1:CANTON = MSExcel7.Read('f'&X#)
SIT1:ZONA = MSExcel7.Read('g'&X#)
SIT1:PRICE_ZONIFICACION_MANT = MSExcel7.Read('H'&X#)
SIT1:PRICE_ZONIFICACION_CONS = MSExcel7.Read('I'&X#)
SIT1:DETALLE_ZONA = MSExcel7.Read('J'&X#)
ADD(SITZON)
END!LOOP
DISPLAY()
THISWINDOW.RESET(1)
MSExcel7.Close(True)
Saludos comunidad Clarion
.
Antes esta línea me abría los archivos excel hoy ya no abre nada y no da error simplemente regresa al browse, alguien que le haya pasado esto y me ofrezca una solución.
de antemano muchas gracias.
C9.1
MSExcel7.OpenFile(CLIP(LOC:filename))
-----------------------------------------------------------------
Code Utilizado
MSExcel7.OpenFile(CLIP(LOC:filename))
NEXT(SITZON)!Limpiando Queue
LOOP X# = 1 to Clip(Loc:Cantidadregistros)
SIT1:ID_SITZONE = MSExcel7.Read('A'&X#)
SIT1:SITE_ID = MSExcel7.Read('B'&X#)
SIT1:MNEMONICO = MSExcel7.Read('C'&X#)
SIT1:NOMBRE = MSExcel7.Read('D'&X#)
SIT1:PROVINCIA = MSExcel7.Read('E'&X#)
SIT1:CANTON = MSExcel7.Read('f'&X#)
SIT1:ZONA = MSExcel7.Read('g'&X#)
SIT1:PRICE_ZONIFICACION_MANT = MSExcel7.Read('H'&X#)
SIT1:PRICE_ZONIFICACION_CONS = MSExcel7.Read('I'&X#)
SIT1:DETALLE_ZONA = MSExcel7.Read('J'&X#)
ADD(SITZON)
END!LOOP
DISPLAY()
THISWINDOW.RESET(1)
MSExcel7.Close(True)
Saludos comunidad Clarion
.
Valora esta pregunta


0