MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Função replace (excel)

    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função replace (excel) Empty [Resolvido]Função replace (excel)

    Mensagem  ilvecchio 6/9/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?
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 7/9/2016, 23:55

    Olá, efetue um busca aqui no fórum de "plaintext".
    Veja como fazer a pesquisa:
    https://www.maximoaccess.com/t1115-busca-no-forum-search
    Abraço
    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ilvecchio 8/9/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.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 9/9/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:
    https://www.maximoaccess.com/t860-resolucao-de-topicos


    Entretanto, fica mais uns links da mesma questão, pode ajudar outros membros com a mesma questão
    http://www.access-programmers.co.uk/forums/showthread.php?t=257440
    https://bytes.com/topic/access/answers/922291-memo-field-get-truncated-while-exporting-into-excel-docmd-transferspreadsheet

    Abraço
    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ilvecchio 9/9/2016, 16:17

    Buenas!

    Obrigado.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 19/9/2016, 10:52

    cheers

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 16:45