Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

j_r_m_c

como colocar a informação em células específicas

Mensagens Recomendadas

j_r_m_c

Estou aalterar a minha macro, melhorias funcionais :)

a macro actual gera para uma folha excel na cálula A1 uma série de dados separados por ;

o código é este

fich$ = Dir(caminho + "\" + cod_rel + data_ano + ".xls")

    'If Mid(fich$, 2, 4) <> data_ano Then fich$ = ""

    If fich$ = "" Then

        numero = cod_rel + data_ano + "0000"

    Else

        Open caminho + "\" + fich$ For Input As #1

        Do While Not EOF(1)

            Input #1, numero, data, un, equip, Assunto, nota, ordem

        Loop

        Close #1

no entanto gostaria de colocar o numero em A1, a un em A2, o assunto em A3 e assim sucessivamente

alguem tem ideias como faço isto?

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
rogi_cps

que tal criar um loop par ao lugar do input com o comando activesheet.cells(x,y).value = variável?

sendo que cada variável vai par uma coluna.  Talvez isso melhore e resolva seu problema.

Espero eu ajude.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
MetalFatigue

Usa a função Split. Podes agarrar em cada linha de string e dizer para separar cada valor entre os ;

Por exemplo:

    Dim s As String 
    Dim v() As String
    s = "1234;11/03/2010;15;xpto"
    v = Split(s, ";")

o array v() ficará com os seguintes valores:

v(0) = "1234"

v(1) = "11/03/2010"

v(2) = "15"

v(3) = "xpto"

O que te aconselhava era cada vez que extrais linhas através do input chamas um procedimento e passas-lhe essa linha extraída. O procedimento faz o split e cola no sitio correcto cada entrada do vector.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.