.:: Importando CSV - Erro Acentos ::.  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

.:: Importando CSV - Erro Acentos ::.

Mensagempor BrUnOaFs » Qua Fev 13, 2019 10:00 am

Bom dia,
Estou usando esse código abaixo, porém os acentos estão desconfigurados.
Quando faço a importação sem a macro os acentos estão normais.

Alguém consegue me ajuda ?

Código: Selecionar todos
    Function consultaArquivo(nomeArquivo As String, planilhaDestino As String) As Boolean
        Dim diretorioRaiz As String
        diretorioRaiz = "C:\I.MERCADO$\45. POWER BI\CE"
        nomeArquivo = "ZSD028 - CE.txt"
        Dim connectionName As String

        nomedaConexaoArquivoCSV = "TEXT;" + diretorioRaiz + "\" + nomeArquivo

        With Worksheets("CE").QueryTables.Add(Connection:=nomedaConexaoArquivoCSV, _
            Destination:=Worksheets("CE").Range("A1"))
            .Name = nomeArquivo
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlOverwriteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 437
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = False
            .TextFileSemicolonDelimiter = True
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .Refresh BackgroundQuery:=False
        End With
  End Function
BrUnOaFs
Membro
Membro
 
Mensagens: 196
Registrado em: Seg Mar 11, 2013 3:18 pm
Has thanked: 39 times
Have thanks: 1 time

{ SO_SELECT }

Re: .:: Importando CSV - Erro Acentos ::.  [Resolvido]

Mensagempor BrUnOaFs » Qua Fev 13, 2019 10:05 am

Resolvido:

.TextFilePlatform = 65001
BrUnOaFs
Membro
Membro
 
Mensagens: 196
Registrado em: Seg Mar 11, 2013 3:18 pm
Has thanked: 39 times
Have thanks: 1 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot], robertonl e 7 visitantes