Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Duda] Número de lineas y columnas de una hoja Excel (https://www.cobolforo.es/showthread.php?t=340)

Josber 1 de marzo de 2016 18:18
Número de lineas y columnas de una hoja Excel
 
¿Alguien sabe cómo puedo saber el número de filas y columnas que hay en una hoja de cálculo?, estoy usando el componente "ExcelConection" para importar unos datos, pero no sé cual es el último dato que hay.

Gracias

Un saludo.-

Kuk 1 de marzo de 2016 20:29
Josber, has intentado preguntando por SPACES o LOW-VALUES de una celda que sabes que en dicha fila (por ejemplo la 1) siempre debe estar informada?

Fito 1 de marzo de 2016 22:44
Hola:

Adhiero a lo que dice KUK. no veo otra forma.

Si buscás cómo hacer una macro desde excel para ir al ultimo dato, en todos lados vi usan un par de funciones para ir a la última fila posible (fila 1048576) y después otra para ir hacia atrás y encontrar el primer dato.

Saludos. Fito...

Josber 2 de marzo de 2016 07:57
Kuk, lo que dices tú es lo que tengo hecho, pero preguntando si el tamaño del dato es 0, porque preguntando por low-values, no funcionaba, el problema es que pueden haber, por ejemplo 20 lineas en blanco por el medio sin yo saberlo, y lo que dice fito, me parecería un bucle muuuuuy largo, con un retardo enorme, teniendo en cuenta que, como mucho la hoja tendrá 1000 lineas, aunque puede tener 50, 1000 o 25000, algo que no sé de antemano.

Gracias, seguiré buscando.

Un saludo.-

Kuk 3 de marzo de 2016 13:20
Josber, el problema es que no se puede saber realmente, ni Excel lo sabe como tal. Es difícil trabajar con una hoja Excel de tamaño variable. Deberías de fijar un estándar... Si no es posible, no hay otra manera que buscar. Si sabes el máximo de "ancho", por ejemplo 1000, buscas de 1000 para atrás como decía Fito.

En cuanto a LOW-VALUES, este es alfanumérico y equivale a X"00". Si no funciona, mira con H"00" (numérico).

Rapinto 3 de marzo de 2016 19:25
Josber,

Usando a ligação ao Excel por COM/OLE2 penso que é possível.

Eu tenho algum código em que utilizo o "Range" para formatar a folha de Excel:
Na Working:

Código COBOL:
  1.        WORKING-STORAGE SECTION.
  2.        01  EXCEL              OBJECT REFERENCE OLE.
  3.        01  WORKBOOK           OBJECT REFERENCE OLE.
  4.        01  SHEETS             OBJECT REFERENCE OLE.
  5.        01  WORKSHEET          OBJECT REFERENCE OLE.
  6.        01  CELL               OBJECT REFERENCE OLE.
  7.        01  COLUMNS            OBJECT REFERENCE OLE.
  8.        01  WCOLUMN            OBJECT REFERENCE OLE.
  9.        01  OBJRANGE           OBJECT REFERENCE OLE.
  10.        01  FITRANGE           OBJECT REFERENCE OLE.
  11. *******
  12.        01 ARRAYOBJ OBJECT REFERENCE COM-ARRAY.
  13.        01 LONG-INT-TYPE           PIC S9(9) COMP-5 VALUE 12.
  14.        01 ARRAY-DIMENSION         PIC S9(9) COMP-5 VALUE 2.
  15.        01 AXIS-1                  PIC S9(9) COMP-5 VALUE 22.
  16.        01 AXIS-2                  PIC S9(9) COMP-5 VALUE 22.
  17.        01  APPLICATION                    PIC X(20) VALUE "EXCEL.APPLICATION".
  18.        01  OLE-TRUE                       PIC 1(1)  BIT VALUE B"1".
  19.        01  FILLER                         PIC 1(7)  BIT.        
  20.        01  OLE-FALSE                      PIC 1(1)  BIT VALUE B"0".
  21.        01  FILLER                         PIC 1(7)  BIT.        
Na PROCEDURE:

Código COBOL:
  1.            INVOKE OLE "CREATE-OBJECT" USING APPLICATION RETURNING EXCEL.
  2.            INVOKE EXCEL "GET-WORKBOOKS" RETURNING WORKBOOK.
  3.            INVOKE WORKBOOK "ADD"                 RETURNING WORKBOOK.
  4.            INVOKE WORKBOOK "GET-WORKSHEETS" RETURNING SHEETS.
  5.            INVOKE SHEETS   "GET-ITEM" USING S-INDEX   RETURNING WORKSHEET.

Código COBOL:
  1.            INVOKE WORKSHEET "GET-RANGE" USING INIRANGE RETURNING OBJRANGE.
  2.            INVOKE OBJRANGE "SET-VALUE" USING ARRAYOBJ.
  3. *******
  4. ************ CALCULAR O RANGE DE CADA COLUNA PARA FORMATAR CAMPO
  5.  
  6. ************ UTILIZANDO O RANGE DAS COLUNAS/LINHAS UTILIZADAS 
  7. ************  VAI FAZER O AUTOFIT (ALARGAR AS COLUNAS)
  8. *******
  9.              INVOKE WORKSHEET   "GET-USEDRANGE"       RETURNING OBJRANGE.
  10.              INVOKE OBJRANGE "GET-ENTIRECOLUMN" RETURNING FITRANGE.
  11.              INVOKE FITRANGE "AUTOFIT".

Se puderes utilizar COM/OLE2 pode ser que se consiga fazer o que pretendes.

Un saludo,
Rui Pinto


La franja horaria es GMT +2. Ahora son las 00:49.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.