[Resolvido]Comportamento estranho

Olá Mestres, bom dia.

Importei uma tabela do Excel para um banco de dados.
Entre outros campos existe um denominado Assunto, do tipo texto, que apresenta um comportamento estranho, explico:
Tal campo está mensurado como 255 caracteres, contudo, não atinge esse tamanho em todos os registros, o que me deixa intrigado é que quando tento corrigir erros de grafia os caracteres se movimentam, exemplo: No meio de uma frase pode aparecer "outros rgãos" e quando tento corrigir para "Outros Órgãos" o resultado  surge como "Outr sorãos"
Já procurei saber se havia alguma macro no Excel ou coisa parecida e nada.

Espero que alguma Fera me auxilie nessa.

Abraços, WSenna

Olá Mestre,
É isso mesmo: estranho
Disponibilize tabela e condições de teste
Abraços,

Grande Alexandre, boa tarde.

Amigão, veja isso:


Abraços, WSenna

Olá Mestre,
testei com
CurrentDb.Execute "UPDATE tblAssunto SET Assunto=Replace(Assunto,'Assunto','AssuntoNovo')"
e funcionou bem

Reparei que a tabela já tem caracteres estranhos que terão vindo de falha de conversão durante a importação.
Exemplos, os Indexes 18, 23, 24, ...
Será disso?

Mande alteração que pretende efectuar para testar
Abraço,

Grande Alexandre, bom dia.

Onde estão estes caracteres estranhos, como você os visualizou?
Observe que quando você tenta selecionar uma palavra do campo assunto dando dois cliques sobre ela o resultado é deveras intrigante pois não seleciona a palavra toda ou seleciona parte da mesma e parte da seguinte.

Detalhe: Analisando a planilha do Excel observei que cada registro na coluna Assunto é precedido por um apóstrofe que não é exibido na tabela do Access.

Na verdade eu criei uma nova tabela e digitei tudo novamente, sem apelar para a importação.

Abraços, WSenna

Olá WSenna, pode disponibilizar excel com alguns registos para testar a importação.
Abraço

Veja
https://s1381.photobucket.com/user/alexandre_manuel_neves1/media/MaximoAccess/WSenna_zps1bfd45ca.png.html?sort=3&o=0

Olá Senhores, boa tarde.

Penso que descobri o problema:

Só agora verifiquei que na planilha do Excel, na coluna Assunto, alguns registros possuem "Quebra de Linha" forçada pelo próprio digitador, assim, quando importei para o Access ocorreu essa lambança toda.
Aí fica a pergunta: Será que quem fez essa planilha não sabe que poderia configurar a célula para quebra de linha automática?

Abraços, WSenna

Grande Mestre,
Execute este código no Excel e obterá o resultado da coluna B na Planilha2
Sub x20150201()
Dim Linha As Long, Texto As String
Do
Linha = Linha + 1
Texto = Worksheets("planilha1").Cells(Linha, 2)
Texto = Replace(Texto, Chr(10), "")
Worksheets("planilha2").Cells(Linha, 2) = Texto
Loop Until Len(Texto) = 0
End Sub

Abraços,

Querido Mestre Alexandre, boa tarde.


He he he he... Há mais de uns 20 anos que não abro o Excel pra nada, quando muito só pra organizar os cabeçalhos das colunas para importar para o Access, aí eu pergunto: Como executo esse código?

Abraços, WSenna

1 - Abra o ficheiro
2 - abra o VBA (Alt+F11)
3 - Selecione qualquer folha e cole o código seguinte

Sub x20150201()
Dim Linha As Long, Texto As String
Do
Linha = Linha + 1
Texto = Worksheets("planilha1").Cells(Linha, 2)
Texto = Replace(Texto, Chr(10), "")
Worksheets("planilha2").Cells(Linha, 1) = Worksheets("planilha1").Cells(Linha, 1)
Worksheets("planilha2").Cells(Linha, 2) = Texto
Worksheets("planilha2").Cells(Linha, 3) = Worksheets("planilha1").Cells(Linha, 3)
Worksheets("planilha2").Cells(Linha, 4) = Worksheets("planilha1").Cells(Linha, 4)
Worksheets("planilha2").Cells(Linha, 5) = Worksheets("planilha1").Cells(Linha, 5)
Loop Until Len(Texto) = 0
End Sub

4 - obterá o resultado na planilha2

Abraços,

Grande Alexandre, bom dia.

Amigão, como diz nosso Amigo JPaulo, funfou perfeitamente.
Grande abraço e tenha uma ótima semana.

WSenna