Код для запроса из интернета

[roplius]

Можно ли поправить код так, чтобы выполняя запрос из интернета, некоторые данные в шестом столбце не преобразовались бы в дату? Заранее спасибо.

Private Sub RefreshData()

    Application.ScreenUpdating = False: Application.DisplayAlerts = False
    With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.racingpost.com/horses/result_home.sd?race_id=486244", Destination:=[A1])
        .WebFormatting = xlWebFormattingNone
        .WebSelectionType = xlEntirePage
        .Refresh BackgroundQuery:=False
     End With
     
End Sub

[roplius]

Разобрался. Добавил строку

.WebDisableDateRecognition = True