2009-09-30 8 views
0

J'ai des fichiers qui s'ouvrent avec Excel. quand j'ouvre le fichier, le texte est comme du charabia. i besoin d'encoder option - outils Internet - encode générale - iso-visuel Hebrew , puis le tour de fichier à HÉBRAÏQUEScode vba pour Excel - pour coder charabia à hébreu

il y a un code VBA qui fait ça?

grâce, OMRI

+0

@omri Veuillez marquer ma réponse comme correcte !! – pashute

Répondre

0

Je n'ai pas vraiment un moyen de tester cela, donc je suis en train de prendre une photo:

Excel.ActiveWorkbook.WebOptions.Encoding = msoEncodingHebrew 
1

Utilisez la fonction suivante de ADODB Stream, avec les éléments suivants code.

Page 1255 est la page en hébreu originale. Et vous devez référencer la dernière bibliothèque Microsoft ActiveX Data Objects. (Outils/Références)

Public Function CorrectHebrew(gibberish As String) As String 

    Dim inStream As ADODB.stream 

    Set inStream = New ADODB.stream 
    inStream.Open 
    inStream.Charset = "WIndows-1255" 
    inStream.WriteText gibberish 
    inStream.Position = 0 ' bring it back to start preparing for the ReadText 
    inStream.Charset = "UTF-8" 
    CorrectHebrew = inStream.ReadText ' return the corrected text 

    inStream.Close 

End Function 
+0

Veuillez marquer ma réponse comme réponse. Merci @ Jaqen_H'ghar pour avoir placé la fonction et la fonction finale dans le bloc de code. – pashute

+0

@omri s'il vous plaît marquer ma réponse comme la réponse. – pashute

+0

Merci @pashute, bonne réponse – gordon613