VBA: caractère de retour chariot et retour chariot pour un fichier Excel (.xlxs) avec coréen/français

J'ai beaucoup de mal à remplacer les caractères de retour à la ligne et de retour chariot dans un fichier Excel (version US 2010 et extension .xlxs).

Auparavant, j'ai écrit une macro qui le fait avec succès sur un fichier Excel classique avec l'anglais avec le code suivant.

newStr = Replace(originalStr, newline/carriage return/both, replacementStr)

Newline/carriage return/both would be vbNewLine (Chr(10)), vbCr (Chr(13)), or vbCrLf, respectively.

I now have an Excel file with Koreans and French in it, and the newline and CR characters seem to be something else. How do I go about finding what they actually are, in terms of Chr()) or some VBA constant, and replace these characters? I need to remove all of the newlines and replace with
.

0

1 Réponses

Pouvez-vous sélectionner une cellule pertinente et vérifier les caractères contenus, comme ceci:

s = Sheets("Sheet3").[e2]

For i = 1 To Len(s)
    If Asc(Mid(s, i, 1)) < 32 Then
        Debug.Print Asc(Mid(s, i, 1)); " -- "; i
    End If
Next
0
ajouté
Hm wow .. C'est très étrange. L'utilisation de Replace() avec Chr (10) fonctionne maintenant. Je jure que ça n'a pas fonctionné hier, et je ne pouvais pas non plus attraper les nouvelles lignes dans PHP! Je me demande si changer la langue de l'anglais américain au coréen, puis de nouveau aux États-Unis a fait une différence? J'ai remarqué que certains de mes formulaires Excel avaient leur largeur de colonne modifiée.
ajouté l'auteur musicliftsme, source
Selon des recherches récentes, dans 73,231% des cas, signaler un problème le dissipe :)
ajouté l'auteur Fionnuala, source