Retirar acentos via VB

[Carolina Marinho]

Boa tarde!

Eu tenho uma rotina genérica (servidores, bancos e tabelas diferentes, dependendo da solicitação do usuário) que tira informações do banco de dados e insere numa planilha do excel, mas essas informações podem ter acentos ( ex: ã, é, á...).

Em algumas tabelas, as palavras tem acento e em outras, não.

Utilizei o Select Case para fazer a compração, mas precisaria retirar os acentos, caso eles existam...

Alguém sabe se isso é possível?

Para facilitar o entendimento:

Select Case UCase(Trim(ws_file.Range("B" & contA4).Value))
             Case "OCUPADO"
                      ws_file.Range(ActualCol & contA4).Value = ocupado
             Case "não ATENDE"
                      ws_file.Range(ActualCol & contA4).Value = naoatende
             Case "SECRETARIA ELETRONICA"
                      ws_file.Range(ActualCol & contA4).Value = secretaria
             Case "TENTATIVA SEM SUCESSO"
                      ws_file.Range(ActualCol & contA4).Value = tentsemsucesso
          End Select

Na quarta linha do código, não é "não ATENDE" e sim "N A O ATENDE" sem os espaços. O forum tá editando para 'não'.

Editado Março 4, 2009 por Carolina Marinho

[kuroi]

carolina realmente nunca vi nenhuma funcao q faca isso, acho q você vai ter q montar a sua.

aqui tem um exemplo ó: http://www.bufaloinfo.com.br/forum_mensage...=1&CDM=2703

talvez fosse mais facil com replace, mas essa ai deve funcionar.

[Carolina Marinho]

Muito obrigada, kuroi! Mais uma vez! ;)

[Leandro Rodrigues]

Olá Carolina,

a minha sugestão é fazer o seguinte:

identifique qual é o código ASC referente a cada um dos acentos (você pode pegar na net o código asc...). Feito isso, no evento KeyPress do teu form coloque um comando assim:

if keyasc = (numero do codigo asc referente ao acento) then

keypress = 0

endif

Com isso, você "limpará" o valor da tecla pressionada.

Note que isso fará com que não seja permitido nenhum acento dentro do form. Se for necessário apenas em um textbox, coloque no keypress deste.

Espero ter ajudado! :blush:

Leandro Rodrigues

MCP

leandrosr82@hotmail.com