🔄 Смена кодировки UTF-8 на UTF-16
Перекодировка текста с UTF-8 на UTF-16 может понадобиться для корректного открытия CSV-файла с кодировкой UTF-8 в приложении Excel.

🛠 Функции для смены кодировки:

'Функция WinApi, использующаяся для смены мультибайтовых кодировок в UTF-16
Private Declare PtrSafe Function MultiByteToWideChar Lib "kernel32.dll" (ByVal CodePage As LongPtr, ByVal dwFlags As LongPtr, ByVal lpMultiByteStr As String, ByVal cchMultiByte As LongPtr, ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As LongPtr) As LongPtr
 
'Пользовательская функция для смены кодировки с UTF-8 на UTF-16
Function FromUTF8(ByVal sText As String) As String
Dim nRet As Double, strRet As String
    strRet = String(Len(sText), vbNullChar)
    nRet = MultiByteToWideChar(65001, &H0, sText, Len(sText), StrPtr(strRet), Len(strRet))
FromUTF8 = Left(strRet, nRet)
End Function

✨ Пример смены кодировки у CSV-файла:

Sub Primer()
Dim num1 As Integer, a1 As String, str1 As Variant
    'Выбираем файл CSV с кодировкой UTF-8
    a1 = Application.GetOpenFilename("Текст с разделителями,*.csv", , "Выбор файла")
        If Right(a1, 4) <> ".csv" Then Exit Sub
    'Открываем файл и считываем текст в переменную
    num1 = FreeFile
        Open a1 For Input As num1
            str1 = Input(LOF(num1), num1)
        Close num1
            'Меняем кодировку с UTF-8 на UTF-16
            str1 = FromUTF8(str1)
            'Меняем, если нужно, разделитель с (,) на (;)
            str1 = Replace(str1, ",", ";")
    'Записываем перекодированный текст в новый файл CSV
    a1 = Replace(a1, ".csv", "-UTF-16.csv")
    num1 = FreeFile
        Open a1 For Output As num1
            Print #num1, str1
        Close num1
    'Открываем файл для просмотра
    ThisWorkbook.FollowHyperlink (a1)
    ActiveWindow.ActiveSheet.Columns.AutoFit
End Sub

💡 Пояснения:
🔹 Microsoft Excel не дружит с кодировкой UTF-8 и отображает символы в этой кодировке в виде «кракозябр».
🔹 Excel использует внутреннее представление строк, которое основано на Unicode. Начиная с Excel 2000, это представление — UTF-16LE (Little Endian).
🔹 Если строка на кириллице существует в кодировке UTF-8, Excel может попытаться интерпретировать UTF-8 как ANSI (Windows-1252 или Windows-1251 для кириллицы), что приводит к «кракозябрам».

Текст с картинками на сайте Время не ждёт.

#VBA #ExcelVBA #СменаКодировки #UTF8 #UTF16 #MultiByteToWideChar