Макросы и функции VBA

Функция "Перекодировка текста"

Изменяет кодировку символов в текстовых строках.

=ChangeTextCharset(A1;"Windows-1251";"cp866"), где:

• Txt - ссылка на ячейку с текстом;

• DestCharset - исходная кодировка ("Windows-1251") /наименование кодировки указывается в кавычках/;

• SourceCharset - конечная кодировка ("cp866") /наименование кодировки указывается в кавычках/.

Function ChangeTextCharset(ByVal txt$, ByVal DestCharset$, _
                           Optional ByVal SourceCharset$) As String
    On Error Resume Next: Err.Clear
    With CreateObject("ADODB.Stream")
        .Type = 2: .Mode = 3
        If Len(SourceCharset$) Then .Charset = SourceCharset$
        .Open
        .WriteText txt$
        .Position = 0
        .Charset = DestCharset$
        ChangeTextCharset = .ReadText
        .Close
    End With
End Function