Office não reconhece caracter especial !!!

[leandroandrea07]

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

[bydevsis]

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]

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

[bydevsis]

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.

[leandroandrea07]

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.

[bydevsis]

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

[leandroandrea07]

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.