VBA Excel_Query Импорт данных Web_Issue с ​​форматом ячейки в результате

Question

Я выполняю веб-запрос на лист Excel и смог собрать данные с сайта Yahoo-finance.Однако вместо того, чтобы в каждой ячейке были цифры, касающиеся цены тикера, мой лист Excel заполнен текстом и числами.Например, результат будет следующим:

Date              close
August 7, 2019    2.015 (correct)
August 6, 2019    févr.00 (wrong data)
August 5, 2019    janv.00 (wrong data)

Пожалуйста, найдите ниже мой код и экран печати результата .Не могли бы вы посоветовать мне, как я должен изменить свой код?Заранее большое спасибо за вашу помощь.

 Dim url As String
    url = "URL;https://finance.yahoo.com/quote/BALYO.PA/history?period1=1496959200&period2=1565128800&interval=1d&filter=history&frequency=1d"
    With Worksheets("Sheet1").QueryTables.Add(Connection:=url, Destination:=Worksheets("Sheet1").Range("A1"))

        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlOverwriteCells
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileCommaDelimiter = True
        .Refresh BackgroundQuery:=False
    End With

Answer 1

Ваш же код, без форматирования текста:

Sub test()
 Dim url As String
    url = "URL;https://finance.yahoo.com/quote/BALYO.PA/history?period1=1496959200&period2=1565128800&interval=1d&filter=history&frequency=1d"
    With Worksheets("Sheet1").QueryTables.Add(Connection:=url, Destination:=Worksheets("Sheet1").Range("A1"))

        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlOverwriteCells
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .Refresh BackgroundQuery:=False
    End With
End Sub

Это отчетность:

С заголовком я ужескрыть.