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

[doober]

мин через 15-20
руки в тараньке

[Hugo121]

Я тут код EducatedFool ковыряю - "KOI8-R" -> "windows-1251" работает, а "windows-1251" -> "UTF-8" ни в какую, пусто на выходе...

[nerv]

Сообщение от Hugo121

берём из ячейки кириллицу, макросом конвертим в UTF-8

что такое кириллица?

http://ru.wikipedia.org/wiki/%D0%9A%...B8%D1%86%D1%8B

и что вообще надо? (я не понял) помимо "кириллицы"

Сообщение от doober

руки в тараньке

а я сало пошел резать

[Hugo121]

Александр, нужно то, что в текстбоксе, перевести под х64 в UTF-8, и чтоб то, что после "z" , не искажалось.
И в VBA
Но если что - можно попробовать и в JScript под VBA, но не хотелось так всё усложнять...

[doober]

а я сало пошел резать

А я люблю по выходным зеленый туборг

Function ConvertCharset(strUnicode) As String
        Dim oStream
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 2
        oStream.Charset = "utf-8"
        oStream.WriteText strUnicode
        oStream.Position = 0
       ConvertCharset = oStream.ReadText
        oStream.Close
        Set oStream = Nothing
End Function

[Hugo121]

Спасибо, но не работает

Т.е. вот это выдаёт на выход то же, что и на входе:

Sub test()
Dim teststring$
teststring = "ZzПроверка"
Debug.Print ConvertCharset(teststring)
End Sub

[nerv]

1. может проблема в офисе или системе?
2. такую пробовал?

Сообщение от doober

А я люблю по выходным зеленый туборг

я спиртное вообще не употребляю )

[Hugo121]

Не знаю... Два других способа работают.
Короче, мне нужно получить тоже самое, что выдаёт

s = CreateObject("OlePrn.OleCvt.1").ToUtf8(s)

но другим способом, и без использования MultiByteToWideChar, WideCharToMultiByte.

[Hugo121]

Такс, ребята, что-то не густо мнений за 250 просмотров-то...
Неужели у всех всё работает на х32 и ни у кого не работает на х64?
Хотя в теме прозвучала одна подсказка, правда неявно... Но нужно ещё всё проверить, напрячь облачного админа...
И в общем я и сам лоханулся... Дал неправильный посыл.