VBA: caracter nou și caractere retur pentru un fișier Excel (.xlxs) cu coreeană/franceză

Sunt destul de greu să înlocuiesc caracterele din noul rând și carul de întoarcere într-un fișier Excel (versiunea americană din 2010 și extensia .xlxs).

Anterior, am scris o macrocomandă care face acest lucru într-un fișier Excel obișnuit, cu limba engleză, cu următorul cod.

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ăspunsuri

Puteți selecta o celulă relevantă și puteți verifica caracterele conținute, cum ar fi:

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
adăugat
Hm wow .. Acest lucru este foarte ciudat. Folosind Replace() cu Chr (10) acum funcționează. Jur că nu a funcționat ieri, și nu am putut să recuperez linii noi în PHP! Mă întreb dacă schimbarea limbii de la engleza americană la coreeană, apoi înapoi în SUA a făcut o diferență? Am observat că unele dintre formularele mele Excel create au avut lățimea coloanelor toate schimbate.
adăugat autor musicliftsme, sursa
Conform cercetărilor recente, în 73,231% din cazuri, raportarea unei probleme se risipește :)
adăugat autor Fionnuala, sursa