Если система не юникодовая, то можно все перекодировать вручную.
Обычно на клиенте стоит кодировка win-1251, если клиент работает под виндами, а на серваке - ISO.
Тогда можно перед отправкой строки перекодировать примерно так (здесь важно помнить, что Excel хранит все строки в Unicode, поэтому преобразование такое - Unicode - win1251 - ISO - Unicode):
Code:
Private Function RecodeWinToISO(S As String) As String
Dim I As Integer
Dim BA() As Byte
Dim S1 As String
S1 = StrConv(S, vbFromUnicode)
BA() = S1
For I = LBound(BA) To UBound(BA)
If BA(I) >= 192 And BA(I) <= 255 Then
BA(I) = BA(I) - 16
End If
Next I
S1 = BA()
RecodeWinToISO = StrConv(S1, vbUnicode)
End Function
Функция перекодирует все русские символы кроме буквы \ё\
Если на клиенте кодировка другая, то можно написать другой перекодировщик.