Win64, Windows Server 2008, Excel 2010-64 - проблема конвертации в UTF-8

[Step_UA]

Как вариант: в x64 строку "ку-ку" преобразовать в байтовый массив и сравнить с байтовыми массивами в различных кодировках под x32

[Hugo121]

Проверил - байты одинаковые.
Вот как бы теперь эти байты превратить в UTF-8-строку?

[Step_UA]

также побайтово сравнить после перевода в utf 8 в разных версиях, чтоб убедиться в правильности преобразования
... не мое http://www.cyberforum.ru/vba/thread4...ml#post3005889

[Hugo121]

MultiByteToWideChar - это было первое, что не заработало под х64
Это просто выпадает в ошибку.
ADODB.Stream просто тупо молчит...

[Hugo121]

Пока вижу такое начало пути - преобразовываем исходную строку в байтовый массив, далее каждую пару чисел (или всегда каждое первое из пары?) преобразуем в 4 других... Уже это адская работа, чтоб не накосячить - да и сперва нужно соответствия где-то найти...
Но тогда следующий вопрос - как из этих чисел составить строку?
Наверняка есть путь прямее

[Step_UA]

MultiByteToWideChar - это было первое, что не заработало под х64

под х64 нужно менять типы при декларировании, меняли?

[Step_UA]

#If Win64 And VBA7 Then
    Private Declare PtrSafe Function WideCharToMultiByte Lib "Kernel32" ( _
        ByVal CodePage As LongPtr, ByVal dwflags As LongPtr, _
        ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As LongPtr, _
        ByVal lpMultiByteStr As LongPtr, ByVal cchMultiByte As LongPtr, _
        ByVal lpDefaultChar As LongPtr, ByVal lpUsedDefaultChar As LongPtr) As LongPtr
#Else
    Private Declare Function WideCharToMultiByte Lib "Kernel32" ( _
        ByVal CodePage As Long, ByVal dwflags As Long, _
        ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, _
        ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, _
        ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
#End If

[Hugo121]

Менял - но похоже что там этого просто нет...

Так, стоп - спотыкается на StrPtr... Почему может такое быть?
Вернее что это может заменить в х64?

Нет, это обошёл - спотыкается на WideCharToMultiByte... Тип не известен - хотя Kernel32 есть... ?

[doober]

ADODB.Stream просто тупо молчит...

У меня W7 х64 офис 2013 отработал ADODB.Stream нормально,создал текстовик с кодировкой UTF-8.
Перегрузился,W7 x32 офис 2010 создал новый текстовик,тот же текст с кодировкой UTF-8.
Перезрузился на ХР,посмотрел файлы,везде кодировка UTF-8.

OlePrn.OleCvt.1 этой штукой не пользуюсь,у меня она как правило косячит,только ADODB.Stream
вот такой результат испытаний.

[Hugo121]

Сергей, можно попросить код с ADODB.Stream, но не для файла, а функцию для конвертирования одной строки. Может там какая мелочь мешает, не знаю... У меня просто выдало нулевую строку и всё. Дома тот же код работал корректно.

Не, похоже что наврал - дома тоже уже не работает с UTF-8...