Cobol Foro - [Duda] Traspaso de Excel a ListView

Cobol Foro (https://www.cobolforo.es/index.php)

- Fujitsu COBOL (https://www.cobolforo.es/forumdisplay.php?f=77)

- - [Duda] Traspaso de Excel a ListView (https://www.cobolforo.es/showthread.php?t=1091)

Traspaso de Excel a ListView

No consigo encontrar más información, que la descrita en el ejemplo de "Excel Connection Control" y aquí en el Foro, no he sabido encontrar una solución a mi problema que es el siguiente:
Al intentar transferir datos de Excel a mi programa pocas veces me ha traspasado los datos de la hoja excel completamente, son más las veces que se para en cada traspaso, es decir que los pasa de uno en uno mediante hacer 'click' con el mouse, en la ventana que me 'dice' The property array index is invalid, seguida de otra que 'dice' Error ocurred: The object is not set or an invalid object pointer is set.
Aunque pueda parecer una tontería, para mi es un problemon, que ni hablo inglés, aunque utilizando el traductor Google, la verdad es que tampoco me soluciona nada, y que por más pruebas que hago no consigo solucionarlo.
Agradezco de antemano cualquier sugerencia que se me haga al respecto, para conseguir mi objetivo.
Con gracias anticipadas. Un saludo.:hi:

Código COBOL:

01 SET-DATA  PIC X(35).
 01 PEP      PIC 999.
 PROCEDURE       DIVISION.
        PERFORM MAIN-PRC VARYING ROW-NUM FROM 1 BY 1 UNTIL ROW-NUM > PLIN.
 MAIN-PRC SECTION.
 PROVA.
     MOVE 0 TO PEP.
 COMENSA.
     ADD 1 TO PEP. 
*********************************************************
* Obtenga los datos de "Texto" (Nombre) y muévalos a la tabla *
*********************************************************
        MOVE "Text"(ROW-NUM PEP) OF CmExcel1 TO TABLE-NAME.
        MOVE TABLE-NAME TO "Text" OF "TableCells"(ROW-NUM PEP) OF CmTable1.
******************************************************************
*Obtenga los datos de "Texto" (puntaje, total y promedio) y muévalo *
* a la mesa. * *
******************************************************************
          ADD 1 TO PEP.
        MOVE "Text"(ROW-NUM PEP) OF CmExcel1 TO SET-DATA.
        MOVE SET-DATA TO "Text" OF "TableCells"(ROW-NUM PEP) OF CmTable1.
            ADD 1 TO PEP.
        MOVE "Text"(ROW-NUM PEP) OF CmExcel1 TO SET-DATA.
        MOVE SET-DATA TO "Text" OF "TableCells"(ROW-NUM PEP) OF CmTable1.
            ADD 1 TO PEP.
        MOVE POW-TEXT(ROW-NUM PEP) OF CmExcel1 TO SET-DATA.
        MOVE SET-DATA TO "Text" OF "TableCells"(ROW-NUM PEP) OF CmTable1.
            ADD 1 TO PEP.
        MOVE "Text"(ROW-NUM PEP) OF CmExcel1 TO SET-DATA.
        MOVE SET-DATA TO "Text" OF "TableCells"(ROW-NUM PEP) OF CmTable1.
        ADD 1 TO PEP.

Socavi, por lo pronto, pon un DISPLAY después de cada ADD 1 TO PEP. luego mira en qué columna te lo hace.

Buenas Tardes Kuk, despues del primer ADD 1 TO Pep, de la linea 9, de la 19 y de la 22, la respuesta es
001
002
003
pero cuando ejecuto el programa sólo me muestra la primera línea y se para

Hola:

La propiedad "Text" del control Excel, es para datos alfanuméricos, y ahi, si no entiendo mal, estás trabajando con numéricos, para eso utilizá la propiedad "Numeric".

Para ayudarte mejor deberíamos saber qué contiene el excel y que tipos de datos tenés definido en el control Table...

Saludos.

Fito...

Hola Fito:

Los datos, son alfabéticos, numericos y coordenadas geográficas con seis decimales, por cierto lei tu fórmula, con dos valores w-texto, w-numero, pero no lo consegui, si no es mucha molestia, te agradeceria un ejemplo practico.

He 'captado' dos imagenes de los excel, pero no sé adherirlos aqui, por lo que también agradeceria instrucciones, para poder corresponder a tu solicitud.

Hola:

Fiajte en este ejemplo que te paso.

Saludos.

Fito.

Fito:

Are pruebas y te informaré, muchas gracias

---------- Post añadido : 13:00 ---------- Post anterior : 12:47 ----------

Kuk

Creo que he enviado las dos imagenes, aunque no las veo, de momento en mi respuesta

---------- Post añadido : 13:13 ---------- Post anterior : 13:00 ----------

he reducido las medidas, para ver si es eso, pues no sé si esta bien, ya me diras

---------- Post añadido : 13:35 ---------- Post anterior : 13:13 ----------

Fito:

El problema es que manejo un Excel de 8.300 lineas y de 4 a 8 columnas dependiendo de la información solicitada, como son Municipios, comarcas, población, superficie, coordinadas geograficas de latitud, longitud, altitud, etc. me viene bien el ejemplo de Fujitsu para con las modificaciones pertinentes conseguir en seis 'pasadas' captar los datos necesarios y ahi es donde tengo el problema, que no sé donde he de hacer las modificaciones y lo máximo que he conseguido es que me traspasa la primera línea y despues se para, pero voy insistiendo, espero conseguirlo.

Te pediria, si te es posible, lo de los 6 decimales, que llegado el momento, tambien tendre de resolver para las anotaciones geogaficas.

Muchas gracias por tu ayuda.-

Socavi, no, no has subido nada.

Aquí abajo donde respondes en el hilo, haz clic en "Modo avanzado", se te redirigirá a una una página con un editor grande, que entre otras cosas tiene 2 botones :

https://www.cobolforo.es/images/editor/insertimage.gif - este es para colgar una imagen que está en otra WEB
https://www.cobolforo.es/images/editor/attach.gif - este es para subir cualquier fichero a nuestro foro.

Si tienes los pantallazos en tu PC, utiliza el botón del clip

---------- Post añadido : 16:07 ---------- Post anterior : 15:25 ----------

Cita:

Citación del post de Socavi (Mensaje 5369)

Buenas Tardes Kuk, despues del primer ADD 1 TO Pep, de la linea 9, de la 19 y de la 22, la respuesta es
001
002
003
pero cuando ejecuto el programa sólo me muestra la primera línea y se para

A loq ue me refería es que con estos displays sepas en qué momento, entre qué comando te salta el error y cuantas veces para determinar en qué línea/comando te lo da.

Kuk

ahora espero que si. Muchas Gracias