Кодировка в ексель

[CradleOfSong]

Здравствуйте. Встречался ли кто из вас с таким случаем:
В таблице екселя есть ячейки с ссылками, ссылаются они на сайты с одинаковой кодировкой, но почему-то в ссылке на первый сайт все впорядке, а при переходе по ссылке на второй сайт почему то меняется кодировка в URL
Во вложении тестовый xml файлик, с образцами того как именно генерируются ссылки (ссылки ссылаются на сервисы яндекса. поиск и статистика поисковых запросов)

Если я не ошибаюсь, то в случае с второй страницей ексель отсылает данные в кодировке CP1251, но я не могу понять почему он вдруг сменил кодировку сам. И вообще где можно поменять кодировку для урл в екселе?

[doober]

Что за странное вложение с пустым файлом

[CradleOfSong]

прошу прощения. я перезалил.

[doober]

Excel здесь не виноват.
Вы наберите эту ссылку в блокноте,и вставте в браузер,результат не изменится.

[Teslenko_EA]

Здравствуйте CradleOfSong.
"ссылаются они на сайты с одинаковой кодировкой..." - очевидно на страницы сайтов ?
"...почему то меняется кодировка в URL..." - URL (Uniform Resource Locator) не содержит информацию о кодировке, соответственно "...ексель отсылает данные в кодировке CP1251..." - Excel никому ничего не "отсылает", выполняется запрос по URL. И если CP "страницы сайта" явно не задана, может происходить подобное.
Евгений.

[CradleOfSong]

Да, урл не содержит информацию о кодировке, он содержит адрес страницы, который может быть закодирован любыми кодировками, цель которых убрать из адреса все не латинские символы, главное, что бы их понимал сервер.
Teslenko_EA, прошу прощения за столь грубые оскорбления в сторону екселя.

действительно, даже при правке текста ссылки в строке запроса и последующей отправки, все-равно вылазят эти иероглифы.

Еще раз прошу прощения за беспокойство. Буду пытаться решить эту проблему другими способами.

[EducatedFool]

Проблема решается просто - надо добавить в книгу Excel пользовательскую функцию, которая преобразовывала бы Unicode (русский текст) в URLencode

Часа два искал в интернете подобную функцию - не нашел

Это и это не подходит.

Самостоятельно написать функцию не получилось.
Все испробованные функции в результате выполнения команды Debug.Print UrlEncode("тестик")
возвращают строку %F2%E5%F1%F2%E8%EA
а нужна строка %D1%82%D0%B5%D1%81%D1%82%D0%B8%D0%B A

Если кто сможет найти или написать такую функцию - было бы неплохо, мне бы она тоже пригодилась...

[CradleOfSong]

EducatedFool, я попытаюсь решить этот вопрос с помощью маленького JS скрипта, если получится, то я отпишусь

[motorway]

У меня была похожая проблема, но как раз функция с первой ссылки EducatedFool'a у меня и используется в виде заготовки. Может, вам нужно немного другое? У меня такая функция, но я мог не так понять ваши потребности.

Public Function URLEncode_Ascii(ByVal plain_text As String) As String
Dim i As Long, ts As String, cur_char As Byte
Dim reserved_symbols_allowed As String, unreserved_symbols As String
Static flagTableInited As Boolean
Static ascii_map(0 To 255) As String

If Not flagTableInited Then
    ' Незарезервированные символы.
    ' Символы допустимые в URL
    unreserved_symbols = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~абвгдеёжзийклмнопрстуфхцчшщьыъэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ"
    For i = 1 To Len(unreserved_symbols)
        ascii_map(Asc(Mid$(unreserved_symbols, i, 1))) = Mid$(unreserved_symbols, i, 1)
    Next i
    ' Зарезервированные символы: !*'();:@&=+$,/?%#[] и пробел
    ' Спецсимволы которые не должны появляться в URI.
    ' Но в зависимости от контекста некоторые из них могут быть разрешены и не должны быть закодированы
reserved_symbols_allowed = "абвгдеёжзийклмнопрстуфхцчшщьыъэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ"
    For i = 1 To Len(reserved_symbols_allowed)
        ascii_map(Asc(Mid$(reserved_symbols_allowed, i, 1))) = Mid$(reserved_symbols_allowed, i, 1)
          Next i
  
    ' Все остальные символы
    For i = 0 To 191
        If i < 16 Then
            ascii_map(i) = "%0" & Hex$(i)
        Else
            If Len(ascii_map(i)) = 0 Then ascii_map(i) = "%" & Hex$(i)
        End If
    Next i
    flagTableInited = True
End If

For i = 1 To Len(plain_text)
    ts = ts & ascii_map(Asc(Mid$(plain_text, i, 1)))
Next i

URLEncode_Ascii = ts

End Function

[EducatedFool]

Написал я всё-таки эту функцию самостоятельно:

Function RussianStringToURLEncode(ByVal txt As String) As String
    For i = 1 To Len(txt)
        l = Mid(txt, i, 1)
        Select Case AscW(l)
            Case Is > 256: t = "%" & Hex(AscW(l) \ 64 + 192) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
            Case 32: t = "+"
            Case Else: t = l
        End Select
        RussianStringToURLEncode = RussianStringToURLEncode & t
    Next
End Function

Вот что получилось: