come impostare unicode il file di testo

[RaidPartecipante Raid Karma: 1 pt]

salve,

vorrei ,se possibile, poter impostare la tipologia di formato di testo da ANSI a unicode.

come posso fare?

grazie

Sub Command()
On Error Resume Next
Dim filename As String, lineText As String
Dim myrng As Range, i, j
filename = ThisWorkbook.Path & "\Command.txt"
Open filename For Output As #1
Set myrng = Range("M4:M160")
finalrow = Cells(Rows.Count, "M").End(xlUp).Row
For i = 1 To myrng.Rows.Count
     For j = 1 To myrng.Columns.Count
     If myrng.Cells(i, j) = "Errore 2007" Then
    GoTo ritorno
     End If
            lineText = IIf(j = 1, "", lineText & ",") & myrng.Cells(i, j)

Next j
filename = StrConv(filename, vbUnicode)
Print #1, lineText
ritorno:
Next i
Close #1
End Sub

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

Naturalmente ti renderai conto che le due linee non si riferiscono alla stessa cosa. La linea di testo stampata nel file è quella letta dal file originale, non dalla conversione che fai a posteriori (a fine ciclo).

filename = StrConv(filename, vbUnicode)
Print #1, lineText

Non mi è chiaro il problema iniziale nè il risultato atteso. Magari StrConv non è la funzione adatta.

[RaidPartecipante Raid Karma: 1 pt]

grazie mille

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

Ma non abbiamo risolto.... dacci qualche info in più 🙂

[RaidPartecipante Raid Karma: 1 pt]

in verità hai proprio ragione,

stato appunto cambiando il Risolto

non cambia nulla

rimangono i "??".

capita che nelle formule debba mettere dei simboli (pigreco,teta,phi ecc.)

perciò ho chiesto se era possibile mettere il formato di testo in unicode.

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

Credo che con Open ... For Output As il testo sia sempre ASCII.

Occorre cambiare strategia e utilizzare, mi sembra, un oggetto FileSystemObject. Però ricordo che c'erano elle difficoltà eprciò prima di sparare stupidaggini devo documentarmi un attimo.

[RaidPartecipante Raid Karma: 1 pt]

mi sembra corretto

nessun problema

[Autore]

Articoli