MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 127
    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?

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3227
    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 : 127
    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.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3227
    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 : 127
    Registrado : 16/11/2012

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

    Mensagem  ilvecchio em Sex 09 Set 2016, 16:17

    Buenas!

    Obrigado.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Seg 19 Set 2016, 10:52

    cheers

      Data/hora atual: Dom 11 Dez 2016, 00:18