Не читаемые данные при Импорте внешних данных (unicode)

[al2]

Подскажите пожалуйста!
ПОльзубсь в Excel web-запросом данных (Данные-->Импорт внешних данных--> Создеть веб-запрос)

Но в одном случае, данные на исходном сайте выдаются в Unicode
и в Excel - выводится набор не читаемых символов.
Как Обойти проблемы и получить в Excel ответ на русском языке?
спасибо.

[slan]

я пользуюсь простой программкой, использующей эти функции.

программка, к сожалению у меня дома, сейчас выложить не могу.

НО она проста до ужаса - 2 строки..

я написал ее для синхронизации со своим палмом, кот сохраняет в юникоде русский шрифт

[slan]

Function raskl(s As String, Optional uni As Boolean = False) As String
Dim i As Integer
For i = 1 To Len(s)
If uni Then
raskl = raskl & ChrW(Asc(Mid(s, i, 1)))
Else
raskl = raskl & Chr(AscW(Mid(s, i, 1)))
End If
Next
End Function

ну и для автоматизации у меня она дополнена в модуле класса:

Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, cancel As Boolean)
If Left(Wb.name, 4) = "palm" Then
Dim r As Range
On Error Resume Next
For Each r In Wb.ActiveSheet.Cells.SpecialCells(x lCellTypeFormulas, xlTextValues)
r.Formula = raskl(r.Formula, 1)
Next
For Each r In Wb.ActiveSheet.Cells.SpecialCells(x lCellTypeConstants, xlTextValues)
r.Formula = raskl(r.Formula, 1)
Next
End If
End Sub

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
If Left(Wb.name, 4) = "palm" Then
Dim r As Range
On Error Resume Next
For Each r In Wb.ActiveSheet.Cells.SpecialCells(x lCellTypeFormulas, xlTextValues)
r.Formula = raskl(r.Formula)
Next
For Each r In Wb.ActiveSheet.Cells.SpecialCells(x lCellTypeConstants, xlTextValues)
r.Formula = raskl(r.Formula)
Next
End If
End Sub