Uma família de softwares de planilhas da Microsoft com ferramentas para analisar, criar gráficos e comunicar dados
Olá
Bem vndo à Comunidade Microsoft 365 e Office
Tudo bem, Silvio? Obrigado pelo seu contato.
Esse comportamento geralmente ocorre por diferenças de codificação de caracteres (ANSI vs. UTF-8) ao manipular textos no VBA. Para contornar o problema, você pode:
·Garantir que o arquivo esteja salvo em um formato compatível com ANSI (Windows-1252), que suporta acentuação em português.
·Ao ler ou gravar arquivos, utilizar o parâmetro FileSystemObject ou Open ... For Input/Output especificando a codificação correta.
·Caso esteja importando dados externos (CSV, TXT), abra o arquivo no Excel usando o Assistente de Importação de Texto, selecionando a codificação UTF-8 ou a adequada ao conteúdo.
Exemplo com FileSystemObject que preserva acentos:
Dim fso As Object, ts As Object, texto As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("C:\arquivo.txt", 1, False, -1) ' -1 = Unicode, 0 = ANSI
texto = ts.ReadAll
ts.Close
Recomendo também consultar a documentação oficial sobre manipulação de arquivos e texto no VBA:
Se possível, compartilhe mais detalhes sobre o contexto (ex.: leitura de planilha, importação de arquivos externos, gravação em banco de dados), para que possamos indicar a solução mais adequada.