MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Função replace (excel)

    Compartilhe

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 16/11/2012

    [Resolvido]Função replace (excel)

    Mensagem  ilvecchio em Ter 06 Set 2016, 20:47

    Buenas!
    Desculpe postar dúvida em sobre o excel.
    Explico: exporto um campo memorando para o excel e, pela limitação de 255 caracteres, fraciono o campo em algumas colunas, cada uma com no máximo 254 caracteres, para depois concatená-las no excel.
    No excel alguns campos, dessas colunas, apresentam um caracter estranho (parece chinês, ou algo assim).
    Num código VBA usei a função replace para eliminar esse caracter. Mas o código passa e não reconhece o caracter.
    Eu copiei o caracter e colei no código: só que ao colar não cola exatamente igual.

    Um dos caracteres ( R쿀R) , ao colar no código, fica assim: "R?R".
    Eu sei que o código funciona porque se eu colocar um caracter normal, ele substitui.

    Há alguma forma de resolver isso?
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4394
    Registrado : 15/03/2013

    Re: [Resolvido]Função replace (excel)

    Mensagem  ahteixeira em Qua 07 Set 2016, 23:55

    Olá, efetue um busca aqui no fórum de "plaintext".
    Veja como fazer a pesquisa:
    [Você precisa estar registrado e conectado para ver este link.]
    Abraço

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 16/11/2012

    Re: [Resolvido]Função replace (excel)

    Mensagem  ilvecchio em Qui 08 Set 2016, 20:05

    Buenas!

    Obrigado Teixeira.
    O meu problema está na exportação do Access para o Excel. Pelo que vi nos endereços que indicastes a questão reside na importação.

    De qualquer forma, consegui resolver de duas maneiras: uma usando uma solução no Excel, e outra usando o Access.


    No Excel
    Após a exportação das colunas, notei que os caracteres estranhos aparecem no final do texto. Então, como eu exporto só 255 caracteres, e o Excel, por conta, acrescenta esses "estranhos", coloquei o código abaixo para substituir o texto pelos primeiros 255. Assim elimino o que vem depois.

       For Each c In Sheets("ListaCompleta").Range("AG6:AN300").Cells
         c.Value = Replace(c.Value, c.Value, Left(c.Value, 255))
       
       Next c

    No Access
    Ao invés de exportar a consulta, crio tabelas com as colunas já separadas e com, no máximo,  255 caracteres cada.
    Uso essas tabelas com os campos já em formato texto, e não mais memorando, pois tem só 255 caracteres.
    Em seguida uso essas tabelas na consulta a ser exportada para o Excel.
    Pronto, os caracteres já não aparecem mais no excel.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4394
    Registrado : 15/03/2013

    Re: [Resolvido]Função replace (excel)

    Mensagem  ahteixeira em Sex 09 Set 2016, 11:20

    Olá Luiz Bueno,
    Obrigado pelo retorno, os utilizadores do fórum agradecem.
    Não se esqueça de dar o tópico como resolvido, veja como fazer:
    [Você precisa estar registrado e conectado para ver este link.]


    Entretanto, fica mais uns links da mesma questão, pode ajudar outros membros com a mesma questão
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 16/11/2012

    Re: [Resolvido]Função replace (excel)

    Mensagem  ilvecchio em Sex 09 Set 2016, 16:17

    Buenas!

    Obrigado.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4394
    Registrado : 15/03/2013

    Re: [Resolvido]Função replace (excel)

    Mensagem  ahteixeira em Seg 19 Set 2016, 10:52

    cheers

      Data/hora atual: Qua 20 Set 2017, 21:00