Office não reconhece caracter especial !!!

Moderador: Avelino Sampaio

leandroandrea07
Mensagens: 123
Registrado em: 02 Mai 2016, 18:06

Office não reconhece caracter especial !!!

Mensagempor leandroandrea07 » 29 Jun 2018, 11:39

Bom dia,

tenho um BD que uso para gerar em uma planilha do Excel, uma especie de script, que é usado em um programa da empresa.
Quando fiz esse BD ele funcionava normalmente na minha maquina, e passei para o usuário que continua usando.
Porem ontem fui usar na minha maquina e percebi que o caracter esta diferente.

Na maquina que esta funcionando roda o Win 7 64 Bits:
cmdOK.PNG


Na minha maquina que não esta funcionando roda o Win 10 Enterprise 64 Bits:
cmdNOK.PNG


Nos dois casos o Office é exatamento o mesmo, inclusive a Build:
OfficeOK.PNG


Ja tentei enviar o caracter via Skype, txt, e-mail e até copiei o BD da maquina que esta funcionando, mas assim que coloco na minha maquina, o caracter muda.

Alguem pode ajudar ?


Grato
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


bydevsis
Mensagens: 14
Registrado em: 09 Jun 2015, 01:47

Re: Office não reconhece caracter especial !!!

Mensagempor bydevsis » 02 Jul 2018, 18:41

Olá prezado tudo bem,

Voce nao especificou se este conjunto de caracteres sao uma cadeia de string com base em uma fonte especifica, caso nao seja tente usar a função Chr(valor) para ver qual o caractere que voce precisa usar. use este laço e veja todos os caracteres em ASCII.

Código: Selecionar todos

Sub teste4()
Dim i As Integer, res As String

For i = 0 To 255
    If i = 255 Then
        res = "Nº: " & i & "= " & Chr(i)
        Debug.Print res
    Else
        res = "Nº: " & i & "= " & Chr(i) & "  " & "Nº: " & i + 1 & "= " & Chr(i + 1)
        Debug.Print res
    End If
Next

End Sub

leandroandrea07
Mensagens: 123
Registrado em: 02 Mai 2016, 18:06

Re: Office não reconhece caracter especial !!!

Mensagempor leandroandrea07 » 03 Jul 2018, 14:23

Bom dia bydevsis, obrigado pela resposta.

O código que citei é usado para criar uma tabela que é exportada para Excel, conforme abaixo:
Capturar.PNG


Esse é o carácter que preciso usar:
Capturar1.PNG


Mas ao copiar e colar na linha de programação, ele fica da forma circula em vermelho (?), e se eu enviar esse caracter de outro PC, seja via e-mail, Skype, txt etc, ele converte o caracter () na forma circulada em azul ([]):
Capturar2.PNG


Resumindo, preciso utilizar o carácter ← em uma linha de programação, mas o VBA parece não reconhecer esse carácter.



Alguém sabe como resolver ?



Grato
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

bydevsis
Mensagens: 14
Registrado em: 09 Jun 2015, 01:47

Re: Office não reconhece caracter especial !!!

Mensagempor bydevsis » 04 Jul 2018, 19:39

opa Leandro, blz?

Na minha IDE tambem não apareceu o caractere "seta", se seu objetivo é exportar esta cadeia de strings, eu fiz uma outra tentativa e funcionou, assim.

Código: Selecionar todos

Sub teste4()
Dim i As Integer, res As String

For i = 1 To 10
    'chr(27) é o caractere "seta"   
    res = "c" & Format(i, "000000") & "B" & Chr(27) & "B" & Chr(27) & "B" & Chr(27) & "B" & Chr(27)
    Debug.Print res
    sql = "INSERT INTO tb_teste ( campo01 ) VALUES (" & Chr(34) & res & Chr(34) & ")"
    F_RunSQL sql
Next
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "tb_teste", "C:\Sistemas\Temp\teste.xls", True
Debug.Print "Pronto"

End Sub


E este foi o resultado na janela imediata:

Código: Selecionar todos

c000001BBBB
c000002BBBB
c000003BBBB
c000004BBBB
c000005BBBB
c000006BBBB
c000007BBBB
c000008BBBB
c000009BBBB
c000010BBBB
Pronto


Ao exportar esta tabela teste para o Excel as setas também foram, creio que ao usar a função chr(27) (seta a esquerda) vai funcionar no seu projeto.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


leandroandrea07
Mensagens: 123
Registrado em: 02 Mai 2016, 18:06

Re: Office não reconhece caracter especial !!!

Mensagempor leandroandrea07 » 05 Jul 2018, 13:48

Bom dia bydevsis, obrigado pela ajuda,

infelizmente não estou conseguindo fazer funcionar.
Veja abaixo que utilizei sua sugestão, porem a "seta a esquerda" não aparece, nem na tabela do Access, nem quando é exportada para o Excel:
Erro.png


Em uma maquina com o Win7 instalado, isso não acontece. Até na linha de comando do VBA aparece a "seta a esquerda".
Seria uma problema do SO ? Alguma configuração ?

Estou bem preocupado, pois nas maquinas com Win7 instalado, sera feito o a mudança para o Win10, e tenho medo que todas apresentem o problema.
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

bydevsis
Mensagens: 14
Registrado em: 09 Jun 2015, 01:47

Re: Office não reconhece caracter especial !!!

Mensagempor bydevsis » 06 Jul 2018, 14:07


leandroandrea07
Mensagens: 123
Registrado em: 02 Mai 2016, 18:06

Re: Office não reconhece caracter especial !!!

Mensagempor leandroandrea07 » 12 Jul 2018, 13:30

bydevsis escreveu:Opá Leandro tudo bem?

Achei estes dois artigos que talvez possam te ajudar, veja se lhe ajudam.

http://blog.nkadesign.com/2013/vba-unicode-strings-and-the-windows-api/
https://www.spreadsheet1.com/how-to-display-foreign-characters-in-vbe.html


Bom dia bydevsis,

não consegui usar os artigos para adaptar meu código.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Módulos VBA”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes