Заранее СПАСИБО всем кто откликнется !!!
Подскажите Уважаемые,
есть запрос вида:

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://**************/reports/control_list?d=" & day & "&m=" & mouns & "&y=" & yar & "&crs=1007&submit=%3E%3E%3E" _
, Destination:=Range("A2"))
.Name = "control_list"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

Результат на листе не читаем (крякозяблы).
Есть необходимость преобразовать данные из unicode в 1251 и потом поместить в лист
Как этот код дополнить StrConv(Мой_Запрос, vbUnicode)
Ещё раз СПАСИБО !

Сам мпрашиваю - сам и отвечаю ;-)
На самом деле ещё вопрос.
В Эксплорере всё как надо, может проблема с реестром.
Вечная тема шрифтов и кодировок.
Может и для Excel гдето править нужно 1250,1252,1253 на 1251 ?
Или всёже своими силами?

Дело в том видимо что файла как такового то и нет, в запрашиваемом объеме данных
так что на .TextFilePlatform = 1251 ругается
.PreserveFormatting = 1251 не ругается, но и нет эффекта