Добрый день!
Вопрос с перекодированием текстовой информации при web запросе.
Созданный web запрос в мастере запросов Excel отображает таблицу совершенно корректно.
По нажатии кнопки импорт, таблица оказывается на листе но уже нечитаемой.
Изменение запроса типа: сохранение формата html - кроме раскрашивания клеток, ситуацию не меняет. Что можно использовать в данном случае ? Перекодировку уже на листе Excel, но как ?
Заранее благодарен за отзыв.
С уважением Владимир.

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

Образец .
В мастере так и выглядит

Принудительно в Эксплорере ?
Это не помогает.
Может можно сделать так :
Сохранить во временный файл а уж из него в Excel
********************************************
dd = Mid(Dat, 1, 2)
mm = Mid(Dat, 4, 2)
yy = Mid(Dat, 7, 4)
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://abr.les.loc/cabr/reports/control_list?d=" & dd & "&m=" & mm & "&y=" & yy & "&crs=1007&submit=%3E%3E%3E" _
, Destination:=Range("A2"))
.Name = "control_list?d=" & dd & "&m=" & mm & "&y=" & yy & "&crs=1007&submit=%3E%3E%3E"
.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
***********************************************************************
В данный момент запрос такой
Как можно полученные данные в файл сохранить ?
Прежде их внедрения на лист.