0
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' , seguida de otra que 'dice'
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.COBOL Código:
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.
Marcadores