Duvida Excel

Discussão em 'Progress 4GL' iniciado por Rogerio, Abril 7, 2015.

Página 1 de 2
  1. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Alguem saberia me dizer se no comando abaixo ao inves de informa a coluna como string existe a possibilidade de informa a coluna como inteiro??? tipo :

    ao inves de:

    chExcel:Range("E" + STRING(i-linha)):VALUE

    poder ser:

    chExcel:Range(5 + STRING(i-linha)):VALUE
    Rogerio, Abril 7, 2015
    #1
  2. fernandofarah

    fernandofarah Membro Participativo

    Amigo, infelizmente não.. O progress não entende numero aí, por esse range concatena letra + numero para formar o nome da célula.

    (Y)
    fernandofarah, Abril 7, 2015
    #2
  3. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Faz uma variável EXTENT com as letras de A a Z e usa no lugar, mais fácil!
    rafael.andrade, Abril 7, 2015
    #3
  4. Eilleen

    Eilleen Membro Ativo

    Boa noite!
    Faz uma funçãozinha no seu programa que retorna a coluna correspondente a cada número, pode ser bem simples, por exemplo:

    Código:
    FUNCTION obterColuna RETURNS CHARACTER
  ( INPUT vNroColuna AS INTEGER ) :
/*------------------------------------------------------------------------------
  Purpose: Retornar a letra de uma coluna de acordo com a sua numeração ordinal
------------------------------------------------------------------------------*/
DEFINE VARIABLE vColunas AS CHARACTER   NO-UNDO INITIAL "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,AA,AB,AC,AD,AE,AF,AG,AH".

  RETURN ENTRY(vNroColuna, vColunas, ',').

END FUNCTION.
    Eilleen, Abril 7, 2015
    #4
  5. Eilleen

    Eilleen Membro Ativo

    OBS: a última coluna do Excel é a XFD, mas acredito q vc não vai usar tudo isso... ;)
    Eilleen, Abril 7, 2015
    #5
  6. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    planilha:ActiveWorkBook:ActiveSheet:cells(linhaAtual, colunaAtual):value = valorCaracter.
    bootstrapmaster, Abril 7, 2015
    #6
Página 1 de 2

Compartilhe esta Página